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ABSTRACT 

A  Fortran  executive  program  has  been  developed  for 
generalized  process  design  and  simulation  calculations. 
This  executive  is  completely  general  and  is  limited  only  by 
the  equipment  module  subroutines  available  to  it.  The 
executive  incorporates  optimization  of  the  ordering  of  the 
process  calculations.  This  optimization  involves  analysis  of 
the  process  flowsheet/  and  is  done  using  an  extension  of  a 
method  presented  in  the  literature. 

The  executive  has  been  applied  to  the  specific  design 
and/or  simulation  of  sulphur  plants.  The  equipment  module 
subroutines  required  for  this  application  have  been 
developed. 

Stream  compositions  must  be  calculated  throughout  the 
sulphur  plants  and  a  thermodynamic  equilibrium  approach  has 
been  used.  A  generalized  routine  for  determining 
equilibrium  compositions  involving  large  numbers  of 
molecular  species  has  been  programmed.  A  method  presented 
in  the  literature  which  is  based  on  the  concept  of 
minimization  of  system  free  energy  was  utilized.  In  the 
application  of  this  method,  allowances  have  been  made  for 
the  peculiarities  of  the  sulphur  recovery  reaction  system. 

The  developed  program  is  user  oriented.  Data  input  is 
by  free  format  and  is  as  simplified  as  possible. 
Multi-level  output  is  available  to  the  user  for  controlling 


' 

1 


. 


the  detail  of  calculation  output. 

A  comparison  of  the  program  results  for  several  sulphur 
plants  has  been  done  using  the  industrial  data  available. 
The  results  of  this  comparison  are  encouraging  but  not 


conclusive 
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I  NTRODUCT I  ON 


A  shortage  of  sulphur,  resulting  from  increased  world 
demand,  began  to  inflate  sulphur  prices  beginning  about 
1964.  Diminished  sulphur  stockpiles  and  improved  sulphur 
production  economics  stimulated  much  interest  in  sulphur. 
Both  existing  and  unused  sources  of  sulphur  were  reviewed  in 
the  light  of  improved  economic  feasibility.  Since  that  time 
production  has  remained  high  but  sulphur  demand  and  prices 
have  peaked. 

Interest  in  sulphur  production  as  a  by-product  of  sour 
natural  gas  processing  has  remained  high  in  spite  of  the 
sulphur  price  slump.  This  is  partly  due  to  the  continued 
high  demand  for  natural  gas.  Presently  some  of  the 
by-product  sulphur  accompanying  sour  natural  gas  must  be 
stockpiled.  The  recent  concern  regarding  air  pollution  has 
also  sustained  interest  in  sulphur.  In  sour  gas  processing 
care  must  be  taken  in  plant  design  and  operation  to  keep  air 
pollution  at  tolerable  levels.  Attention  has  been  focused 
on  this  problem  both  by  governments  and  by  the  companies 
concerned . 

In  view  of  this  active  interest  in  sour  gas  sulphur 
production,  the  development  of  a  general i zed  computer 
program  for  the  design  and  simulation  of  such  sulphur  plants 
would  seem  to  be  a  worthwhile  project.  This  thesis 


describes  such  a  program. 
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A .  Sulphur  Plant  Description 

Several  methods  of  recovering  sulphur  from  manufactured 
and  natural  gases  have  been  developed.  Goar(l)  has 
concisely  described  these.  Sulphur  contained  in  sour 
natural  gas  is  recovered  exclusively  by  "dry  bed  catalytic 
conversion"  processes  and  the  scope  of  this  thesis  has 
accordingly  been  limited  to  processes  of  this  type: 

1 .  mod i f i ed  Claus 

-  straight  through  process 

-  split  stream  process 

2.  Direct  Oxidation  process 

3.  sulphur  recycle  process 

Processing  of  sour  natural  gas  includes  removal  of 
carbon  dioxide  and  sulphur  compounds,  achieved  using  a  gas 
treating  process  such  as  monoethanol  ami ne .  The  extracted 
"acid  gas"  consists  of  hydrogen  sulphide,  carbon  dioxide, 
water  and  small  percentages  of  mercaptans,  light  hydro¬ 
carbons  and  aromatics.  It  is  this  acid  gas  which  is  the 
feed  to  the  sulphur  plant. 

A  detailed  description  of  both  gas  treating  and  sulphur 
recovery,  together  with  an  extensive  literature  review  can 
be  found  in  Advances  in  Petroleum  Chemistry  and  Refining(2). 

1 .  Modified  Claus  Process 

The  modifed  Claus  process  is  favoured  for  acid  gas 
feeds  containing  more  than  fifteen  mole  percent  hydrogen 
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sulphide.  Burning  one-third  of  the  inlet  hydrogen  sulphide 
is  the  first  step  of  the  process.  This  results  in  a  two  to 
one  ratio  of  hydrogen  sulphide  to  sulphur  dioxide  throughout 
the  rest  of  the  plant.  For  feed  streams  with  greater  than 
twenty-five  percent  hydrogen  sulphide,  the  "straight 
through"  variation  of  the  process  is  preferred.  The  whole 
feed  is  passed  through  a  burner-waste  heat  boiler  with 
sufficient  air  to  burn  all  hydrocarbons  and  one  third  of  the 
hydrogen  sulphide.  For  more  dilute  feeds,  difficulty  in 
maintaining  a  stable  flame  is  encountered.  The  alternate 
"split  stream"  process  may  then  be  used.  In  this  case,  one 
third  of  the  feed  is  passed  through  the  boiler  with 
sufficient  air  to  burn  all  hydrogen  sulphide  and 
hyd roca r bons  .  The  combusted  stream  is  later  combined  with 
the  unburned  two  thirds  of  the  feed.  This  approach  results 
in  burning  only  one  third  of  the  total  hydroca rbons,  which 
is  sometimes  an  important  consideration.  Reducing  the 
hydrocarbons  burned  cor  respond i ngl y  reduces  the  undesireable 
formation  of  carbon,  carbon  disulphide  and  carbonyl 
sulphide. 

Frequently  if  the  boiler  discharge  contains  a 
significant  amount  of  converted  sulphur,  it  is  condensed  out 
at  this  stage.  This  may  increase  overall  recovery, 
particularly  in  the  straight  through  process,  but 
necessitates  reheating  the  stream  before  catalytic 
conve  r s i on . 

The  second  step  of  the  Claus  process  involves  two  or 
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three  stages  of  conversion.  Each  stage  begins  with 
reheating  the  partly  combusted  gas,  using  one  of  several 
options.  A  catalyst  bed  then  converts  some  of  the  hydrogen 
sulphide  and  sulphur  dioxide  to  elemental  sulphur  and  water. 
The  sulphur  produced  is  recovered  by  condensation.  Demister 
pads  or  a  coalescer  may  be  added  to  improve  recovery  of 
sulphur  fog  formed  in  the  condensers. 

Reheating  the  gas  in  preparation  for  catalytic 
conversion  may  be  done  in  one  of  four  ways: 

a.  in-line  burners 

b.  hot-gas  by-pass 

c.  gas-to-gas  exchangers 

d.  i nd i rec t-f i red  heaters 

The  first  two  of  these  are  preferred  and  have  been 

included  in  this  work.  The  last  two  are  expensive  and  the 
trend  is  to  use  them  less.  They  have  not  been  included 

here . 

The  in-line  burner  option  consists  of  burning  a  small 
fraction  of  the  acid  gas  separately,  and  combining  it  with 
the  stream  to  be  heated.  Hot-gas  by-pass  involves  combining 

the  stream  to  be  heated  with  hot  waste  heat  boiler  gas 

extracted  before  the  primary  exit. 

Burning  the  residual  gas  in  an  incinerator  is  the  last 
step  of  the  process.  The  hot  tail  gas  is  vented  to 
atmosphere  via  a  stack. 

The  classical  paper  by  Gamson  and  Elkins(3)  describes 
the  history  of  this  process  and  the  rationale  of  its 
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development.  The  important  design  and  operation 
considerations  are  outlined. 

2 .  D i rect  Oxidation 

Pan  American  Petroleum  Corporation's  Direct  Oxidation 
process  is  sometimes  used  for  low  percentage  hydrogen 
sulphide  feeds.  This  process  eliminates  the  waste  heat 
boiler.  Preheated  acid  gas  is  combined  with  air  and  fed 
directly  into  the  first  catalytic  converter.  From  this 
stage  on,  the  process  resembles  the  Claus  process  except 
that  air  may  be  added  before  one  or  more  converters  to 
achieve  conversion  of  hydrogen  sulphide  to  sulphur. 

3  .  Sul phur  Recycl e 

Jefferson  Petrochemicals  Canada  Ltd.  has  developed  a 
sulphur  recycle  process.  This  process  is  suitable  for  low 
hydrogen  sulphide  feeds,  especially  if  significant  amounts 
of  hydrocarbons  are  present.  None  of  the  acid  gas  feed  is 
burned  in  this  process,  avoiding  the  formation  of 
troublesome  carbon-sulphur  compounds.  Product  sulphur 
recycled  through  a  burner,  is  used  to  maintain  a  two  to  one 
ratio  of  hydrogen  sulphide  to  sulphur  dioxide.  This  burner 
stream,  besides  supplying  a  reactant,  heats  the  feed  to  the 
first  converter.  The  remainder  of  the  plant  is  identical  to 
the  Claus  type . 

Several  schematic  sulphur  plant  flowsheets  are 
illustrated  in  Figure  I. 
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B .  Project  Ob i ect i ves 

The  objectives  defined  at  the  outset  of  this  program 

development  were: 

1.  To  develop  a  generalized  and  versatile  "executive"  to 
serve  as  the  framework  for  the  program.  This  executive 
concept,  to  be  explained  in  Chapter  II,  renders  the 
program  "flowsheet  independent". 

2.  To  incorporate  optimization  of  the  flowsheet  calculation 
sequence . 

3.  To  include  those  "equipment  modules"  necessary  to  design 

and/or  simulate  a  variety  of  "dry  bed  catalytic 

conversion"  sulphur  recovery  processes. 

4.  To  utilize  an  efficient,  dependable  method  for  calcula¬ 
tion  of  equilibrium  compositions  involving  large  numbers 
of  molecular  species. 

5.  To  use  rigorous  calculations  throughout  the  program, 
provided  this  was  within  the  confines  of  reasonable 
computing  times. 

6.  To  emphasize  user  orientation  of  the  program.  Towards 
this  end,  data  input  wa  s  to  be  as  simplified  as 
possible,  data  error  checks  and  error  messages  were  to 
be  used  extensively  and  multi-level  output  was  to  be 
incorporated  for  the  user's  benefit. 

To  compare  the  program  results  with  industrial  data  to 
confirm  the  program's  usefulness. 


7. 
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The  initial  program  development  began  using  an  I.B.M. 
1800  time  sharing  system.  This  system  is  limited  to  Fortran 
II  and  the  initial  programming  was  so  limited.  Later,  when 
the  program  became  too  large  for  this  system,  from  both 
program  storage  requirements  and  execution  time  standpoints, 
development  was  transferred  to  the  Computing  Services  I.B.M. 
360/67  system.  Even  though  up  to  date  Fortran  was  available 
here,  Fortran  II  was  maintained  to  preserve  continuity.  All 
program  listings,  execution  output  and  the  thesis  body 
proper  were  produced  using  the  CP/CMS  time  sharing  monitor 
system. 
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EXECUTIVE  PROGRAM  DEVELOPMENT 


A .  Executive  Programming  Concept 

The  variety  of  sulphur  plant  flowsheets  that  must  be 
accommodated  by  the  proposed  program  necessitates  an 
executive  of  some  form.  Using  the  process  flowsheet,  the 
executive  directs  if  and  when  program  functions  are  done. 

It  was  decided  that  the  executive  developed  should  in 
no  way  be  inherently  restricted  to  sulphur  plant  design  and 
simulation.  Rather,  it  should  only  be  limited  by  the 
equipment  modules  available  to  it.  A  module  in  this  context 
refers  to  an  independent  group  of  subroutines  which  performs 
a  particular  task.  An  equipment  module  is  used  to  either 
design  or  simulate  one  type  of  equipment  (one  or  more 
physical  pieces  of  equipment).  Thus,  to  apply  the  executive 
to  sulphur  plants,  the  only  requirement  is  that  the 
necessary  modules  be  included. 

The  concept  of  an  executive  program  to  manage  process 
calculations  is  not  new  and  many  have  been  developed.  Some 
of  these  are  briefly  discussed  in  the  literature  review  in 
the  following  section.  There  has  been  a  continuous 
evolution  from  hand  computation  to  sophisticate d  executives. 

With  the  advent  of  computers  used  for  engineering 
calculations,  repeated  hand  computation  was  replaced  with 
special  purpose  programs.  The  most  efficient  means  of  doing 
a  single  type  of  problem  could  be  utilized  in  these 
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programs.  However,  they  were  very  inflexible  and  a  minor 
problem  change  necessitated  a  new  program,  or  at  least  a 
modification  of  an  existing  one.  It  was  a  desire  for 
flexibility  that  provoked  the  concept  of  executive 
programming.  The  only  difference  between  various  process 
calculations  using  this  technique  would  be  the  encoded 
flowsheet  data  and  perhaps  the  equipment  modules.  The 
generality  produced  using  the  executive  approach 
substantially  increases  flexibility,  but  inherently 
compromises  efficiency  in  most  specific  problems. 

The  primary  function  of  the  executive  program  is  to 
replace  the  engineer  as  the  decision-maker,  at  least  as  far 
as  the  calculations  are  concerned.  The  executive  directly 
controls  the  order  of  equipment  calculations  and  supervises 
data  input,  output  of  results  and  calculation  bookkeeping. 
If  iteration  on  process  recycle  loops  is  required,  as  it 
usually  is,  the  executive  must  repeat  the  calculations  at 
the  appropriate  time  and  detect  when  convergence  is 
achieved. 

The  most  primitive  executives  rely  on  a  calculation 
sequence  supplied  as  data.  More  advanced  programs  devise 
their  own  feasible  ordering  of  calculations,  either  as  the 
calculations  proceed  or  beforehand.  The  additional 
sophistication  of  calculation  sequence  optimization  may  be 
incorporated  into  the  executive  to  improve  efficiency  and 
convergence.  In  this  event,  the  optimum  sequence  should  be 
established  before  the  equipment  calculations  are  begun.  The 
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calculation  starting  point  is  an  integral  part  of  the 
optimum,  and  starting  at  an  arbitrary  point  in  the  flowsheet 

may  preclude  using  the  optimum  sequence. 

Once  the  executive  has  been  developed,  the  modules  it 
requires  to  complete  the  desired  calculations  must  be 
supplied.  Although  these  modules  must  be  compatible  with 
the  executive,  they  are  essentially  independent  program 
packages.  Some  of  them  are  actually  sub-executives  which 
temporarily  maintain  program  control.  The  following  modules 
have  been  developed  and  included  with  the  present  executive 
program : 

1.  data  input  module  (Chapter  V.) 

2.  calculation  sequence  optimization  nodule  (Chapter  II.) 

3.  equilibrium  composition  module  (Chapter  III.) 

4.  process  calculation  summary  module  (Chapter  V.) 

5-13  equipment  modules  (Chapter  IV.) 

Because  of  their  distinctive  nature,  each  module  will 
be  described  individually. 

B  .  L  i  terature  Survey 

Since  the  innovation  of  the  executive  programs,  there 
has  been  a  steady  increase  in  their  sophistication, 
capability  and  objectives.  The  first  ones  to  appear,  such 
as  Kellogg's  "Flexible  Flowsheet' "(4)  and  I.B.M.  s  G I F S ( 5 ) , 
required  specification  of  the  computational  sequence  as  part 
of  the  input  data.  Even  though  more  flexible  than  the 
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special  purpose  programs,  they  merely  called  the  provided 
routines  in  the  specified  order  and  maintained  iteration 
bookkeep i ng . 

The  first  version  of  PACER(6)  was  more  ambitious.  A 
feasible  computational  ordering  could  be  supplied,  but  in 
lieu  of  this,  the  executive  would  attempt  to  find  a  feasible 
path,  making  recycle  assumptions  as  necessary.  The 
calculation  path-seeking  took  place  after  each  "equipment 
block"  calculation.  On  recycling,  the  same  search  took 
place  again.  This  version  of  PACER  made  no  attempt  to 
optimize  the  order  of  the  calculations. 

Many  attempts  have  been  made  to  find  effective  ways  of 
optimizing  calculation  sequences.  This  task  is  complicated 
by  process  recycle  loops  and  by  stability  and  convergence 
considerations.  A  systematic  analysis  of  the  calculation 
network  is  necessary  to  achieve  optimality.  Extensive  work 
on  analysis  of  recyc 1  e-process  calculation  networks  has  been 
done.  Basically  there  are  two  different  approaches,  with  a 
third  being  a  combination  of  the  two. 

The  first  of  these  is  the  direct  method,  whereby  the 
equations  describing  the  process  are  formulated  and  the 
resulting  set  is  solved  simultaneously.  Solution  is  normally 
achieved  with  an  iterative  technique  utilizing  linearized 
equations.  Rosen(7)  whose  work  was  based  on  the  previous 
work  of  Nag i ev ( 8 , 9 ) ,  devised  a  method  using  this  approach. 
The  direct  method  fails  to  take  advantage  of  problem 
structure  which  could  be  used  to  simplify  the  problem.  For 
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large  problems/  simultaneous  solution  of  many  equations 
becomes  an  impractical  task.  Since  this  approach  attacks 
the  whole  problem  at  once,  the  only  possible  use  for  an 
executive  function  is  in  formulating  and  grouping  the  system 
equations. 

Tiie  second  approach,  which  does  take  account  of  problem 
structure,  is  known  as  the  ’"tearing"  method  or  successive 
substitution.  Methods  using  this  approach  assume  quantities 
necessary  to  make  the  initial  calculations,  follow  the 
process  flow  and  subsequently  find  improved  values  of  the 
assumed  quantities.  Iteration  is  necessary  to  arrive  at  a 
converged  solution.  This  procedure  is  identical  to  that 
used  by  an  engineer  doing  the  calculations  by  hand,  and 
lends  itself  to  the  use  of  an  executive. 

The  rate  at  which  the  overall  process  calculation 
converges  is  related  to  the  number  of  recycle  parameters 
assumed  and  iterated  upon.  As  a  result,  much  study  has  been 
devoted  to  ordering  calculations  to  minimize  recycle 
assumptions.  This  minimization  is  the  most  common  criterion 
for  calculation  sequence  optimizing. 

Most  methods  of  the  second  type  involve  matrix 
represen  tat i on  of  the  process  flowsheet.  Lee  and  Rudd(lO) 
have  devised  a  four  algorithm  method  that  assumes  previous 
identification  of  the  recycle  loops.  Tiie  method  seems  to  be 
concept i ona 1 1 y  sound  but  difficult  to  implement.  Norman ( 11 ) 
has  presented  a  matrix  method  using  Boolean  algebra  which 
can  be  used  to  identify  the  recycle  loops  of  a  process.  A 
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method  by  Rubin(12)  uses  a  special  process  matrix  to  obtain 
at  least  a  local  minimum  for  the  desired  optimization. 
Sargent  and  Westberg(13)  dislike  the  inefficient  use  of 
computer  space  involved  in  the  matrix  methods.  They  have 
devised  a  two  step  method  of  ordering.  Using  an  algorithm, 
the  process  is  first  broken  into  groups  of  units.  Then  the 
units  within  each  group  are  optimally  ordered  using  dynamic 
programm i ng . 

Ravicz  and  Norman(14)  and  Naphtali(lS)  have  developed 
similar  combinations  of  the  two  approaches.  Using  these 
methods,  the  parts  of  the  process  excluding  recycle  loops 
are  solved  sequentially.  The  remaining  recycle  portions  are 
solved  simultaneously. 

Himmelblau  and  Bischoff(16)  describe  a  method  similar  to 
Norman's(ll)  for  identifying  recycle  loops  and  apply  Boolean 
algebra  to  algebraic  equations  as  well  as  to  equipment 
units.  A  method  of  "precedence  ordering"  is  described  and 
signal  flow  graph  theory  is  applied  to  recycle  networks. 

Rudd  and  Watson(17),  besides  outlining  a  design 
philosophy  in  their  text,  give  an  algorithm  for  design 
variable  selection.  The  method  presupposes  the  designer  is 
at  liberty  to  interchange  design  and  stream  specifications, 
which  is  not  usually  true.  Methods  of  attacking 
mac  ro- sys  terns  are  outlined.  These  methods  may  have 
application  to  single  processes  as  well. 

Most  recycle  network  analyses  (and  therefore  derived 
executives)  assume  a  common  "rule  of  calculations' !  outputs 
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should  be  calculated  from  inputs  for  all  equipment. 
Ca 1 cu 1  a t i ona 1  stability  has  been  shown  to  be  much  greater 
for  forward  calculations  than  for  backward  0065.(17,18)  If 
this  rule  is  strongly  adhered  to,  it  is  quite  restrictive. 
For  instance,  process  feed  unknowns  and  product 
specifications  are  eliminated.  This  restriction  can  largely 
be  overcome  by  integrating  a  "material  and/or  energy 
balance  envelope"  program  with  the  executive  as  done  by 
Nieman(19)  using  the  PACER  executive.  This  program  feature 
has  not  been  included  In  the  executive  developed  for  this 
proj  ect . 

Process  optimization  is  another  refinement  that  may  be 
added  to  the  executive.  Although  little  seems  to  have  been 
published  on  Shell's  CHEOPS,  it  apparently  has  this  feature 
to  some  extent.  Intentions  to  include  this  phase  in 
SPEED-UP( 13 )  and  later  versions  of  PACERC20)  have  been 
stated.  The  approaches  to  process  optimization  are  dynamic 
p rog ramm i ng ( 1 7 )  for  the  acyclic  cases  and  either  non-linear 
programmi ng( 21)  or  hill  climbing  techn i ques ( 1 7 )  for 
processes  involving  recycle.  Process  optimization  is  beyond 
the  scope  of  the  present  work. 

A  more  extensive  list  of  executive  programs  may  be 
found  In  the  text  by  Rudd  and  Wat  son (17).  Cavette( 22 )  has 
presented  a  comprehensive  review  of  numerical  methods  used 
for  solving  recycle  processes. 
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C .  Optimization  of  Calculation  Sequence 

None  of  the  methods  for  optimizing  recycle  networks 
presented  in  the  Literature  were  considered  suitable  for  the 
present  executive's  needs.  The  possibility  of  using  one  of 
these  methods  as  a  starting  point  for  the  development  of  a 
new  method  was  explored.  It  was  found  that  Rubin's 
Method(12)  showed  the  most  promise  in  this  regard. 

1 •  Rubin's  Optimizing  Strategy 

Rubin's  method  will  not  be  described  in  detail  since  it 
is  the  underlying  principles  that  are  of  primary  interest. 
For  a  detailed  description  of  his  method,  and  examples  of 
its  use,  the  reader  is  referred  to  the  original  paper. 

Rubin  utilizes  a  modified  form  of  the  process 
"association"  matrix.  The  process  equipment  units  are 
denoted  as  nodes  N(k),  (k=l,2...n  )  which  are  connected  by 
the  flowsheet  streams  S(j),  (j=l,2...n  ).  Associated  with 
each  stream  are  U(j),(j=l,2...n  )  stream  unknowns.  A 
particular  sequence  of  these  nodes  represents  an  order  of 
process  calculations.  The  nodal  sequence  is  denoted  as 
N(k)<I>,  (i=l,2...n),  where  the  kth  process  node  N ( k )  is  the 
ith  node  in  the  sequence.  The  corresponding  association 
matrix  is  formed  as  follows: 

A  is  an  n  x  n  association  matrix,  with 
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A(i/j)  =0  if  no  stream  exists  from  N(k)<j>  to  N(k)<i> 

A  ( I  /  J  )  =  U  ( 1  )  if  stream  1  exists  from  N(k)<j>  to  N(kXi> 

A  simple  process  and  the  association  matrices  resulting 
from  two  nodal  sequences  for  this  process  are  illustrated  in 
Figure  il.  It  will  be  noted  that  feed  and  product  streams 
are  not  represented  in  the  matrix  and  are  ignored  in  the 
analysis.  Also  it  should  be  noted  that  "self  loops" 
(diagonal  entries)  are  not  allowed. 

In  the  association  matrix,  the  number  of  stream 
parameters  that  must  be  assumed  for  the  related  nodal 
sequence  appear  above  the  diagonal.  Rubin  uses  the  minimum 
recycle  assumptions  criterion  for  optimizing  the  sequence. 
This  criterion  is  met  if  the  sum  of  the  elements  above  the 
diagonal  is  a  minimum.  A  different  criterion  of  optimality 
can  easily  be  used  by  attaching  a  different  significance  to 
the  U(j)'s.  For  instance,  U(j )  could  become  the  weighted 
difficulty  or  weighted  sensitivity  of  calculating  stream 
S(j). 

Rubin  attempts  to  minimize  the  upper  triangular  sum  of 
the  association  matrix  by  a  systemmatic  exchanging  of  nodal 
positions  in  the  sequence.  He  gives  a  description  of  a 
complicated  procedure  for  finding  the  most  profitable 
exchange.  This  procedure  will  not  be  described  here.  The 
mechanics  of  both  sequence  position  exchanging  as  well  as 
other  sequence  changes  will  be  explained  with  the  modified 
method.  The  effect  of  exchanging  two  positions  in  a  nodal 
sequence  is  illustrated  in  Figure  II.  It  can  be  seen  that 
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A.  -  Process  flowsheet  (one  unknown  parameter  associated 

with  each  stream  in  this  case). 
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B.  -  Association  matrices  for 


two  calculation  sequences. 


FIG.  I  ! 


A  SIMPLE  PROCESS  FLOWSHEET  AND  TWO 
CORRESPONDING  ASSOCIATION  MATRICES 
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in  the  example  shown,  exchanging  nodes  N(2)<1>  and  N ( 3 ) < 4 > 
in  sequence  1  to  produce  sequence  2,  results  in  a  net 
reduction  of  recycle  assumptions. 

The  sequential  exchanging  of  nodal  positions  is  the 
only  modification  Rubin  makes  to  the  nodal  sequence.  He 
gives  two  criteria  for  termination  of  this  exchanging. 
These  are  not  used  in  the  new  method.  Rubin  admits  the 
method  is  empirical  and  without  rigorous  mathematical  proof. 
He  even  gives  an  example  of  a  flowsheet  for  which  the 
optimum  is  not  found.  The  method  was  programmed  as  presented 
by  Rubin  and  several  difficult  process  flowsheets  were 
formulated.  Several  problems  were  encountered  in  using  the 
original  method  and  are  described  below. 

1.  Wh i 1 e  Rubin's  method  usually  improved  an  arbitrary 
initial  sequence,  it  failed  to  reach  the  true  optimum 
for  any  of  the  examples  tried. 

2.  The  sequence  changes  frequently  became  periodic  after  a 
certain  point.  Alternating  between  two  sequences  is 
prevented  by  an  algorithm  stipulation.  However,  a 
repeated  series  of  three  or  more  sequences  is  not 
prevented  and  when  this  cycling  occurs  the  completion 
criteria  were  never  met. 

3.  Rubin  suggests  that  when  the  algorithm  is  completed,  the 
final  sequence  may  be  reversed  and  the  algorithm 
re-applied.  The  resulting  best  sequence  may  be  more 
optimal  than  one  obtained  with  a  single  application  of 
the  algorithm.  When  repeated  reversal  of  final  sequence 
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was  tried  in  an  effort  to  reach  the  true  optimum/  these 
sequences  were  found  to  repeat. 

4.  The  method  inherently  has  great  difficulty  in  moving 
groups  of  nodes  within  the  sequence.  Thus,  even  if 

moving  such  a  group  would  be  advantageous  the  method 

often  fails  to  do  this,  since  it  is  limited  to 

exchanging  two  nodes  at  a  time.  A  string  of  nodes 
connected  by  single  streams  is  an  example  of  this. 
Moving  any  one  of  the  nodes  within  the  string  may 

adversely  effect  the  sequence,  but  moving  the  whole 
string  may  significantly  improve  it.  It  was  suspected 
that  this  problem  often  accounted  for  the  method  failing 
to  reach  the  optimal  sequence. 

Because  of  these  problems,  Rubin's  method  was 
considered  inadequate.  Many  modifications  to  his  method  were 
tried  in  an  attempt  to  find  a  procedure  which  would  quickly 
and  dependably  find  an  optimum  calculation  sequence.  Several 
of  these  modifications  were  very  successful. 

2 .  The  New  Optimization  Technique 

The  new  optimization  method  developed  can  be  logically 
broken  into  three  parts: 

a.  flowsheet  simplification 

b.  nodal  sequence  modification 

c.  randomization  and  termination. 
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a .  Flowsheet  Simplification 

Often  the  search  for  the  optimum  sequence  is  made 
difficult  by  flowsheet  complications  which  can  be 
simplified.  Such  a  simplification  consists  of  "reducing" 
the  flowsheet  by  eliminating  nodes  which  are  irrelevant  from 
an  optimization  standpoint.  However,  care  must  be  taken  not 
to  obscure  or  eliminate  the  true  optimum  by  such  a  flowsheet 
reduction  (ie.  the  optimum  of  the  simplified  flowsheet  must 
correspond  to  the  original  flowsheet  optimum).  Several 
flowsheet  reduction  criteria  were  tried.  The  following  two 
step  procedure  was  found  satisfactory. 

Phase  1  consists  of  eliminating  from  optimization 
consideration  those  nodes  which  are  extraneous  to  the 
recycle  portion  of  the  flowsheet.  This  is  done  using  a 
procedure  similar  to  the  "precedence  ordering"  described  by 
H immel bl au( 16) .  Nodes  without  anticedents  and  then  those 
without  descendants  are  successively  eliminated.  Hence  in 
Figure  I  I  i -A  nodes  1  -  11  -  10  -  2,  can  be  eliminated  in 
turn  since  they  lack  anticedents.  They  are  placed  in  that 
order  at  the  beginning  of  the  final  calculation  sequence. 
Similarly  nodes  6  -  7  -  8  can  be  eliminated,  since  they  lack 
descendants,  and  placed  at  the  end  of  the  sequence. 
Optimization  then,  is  concerned  only  with  the  ordering  of 
nodes  3  -  4  -  5  -  9. 

Phase  2  of  the  flowsheet  simplification  is  concerned 
with  grouping  of  nodes  to  form  single  nodes.  A  node  may  be 
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A.  -  Elimination  of  nodes  extraneous  to  recycle  network. 


B.  -  Forward  reduction  -  elimination  of  node  N(a). 


C.  -■  Backward  reduction  -  elimination  of  node  N(a). 


FIG.  Ill 


FLOWSHEET  SIMPLIFICATIONS 


23 


eliminated  if  it  can  be  replaced  by  a  single  pseudo-stream. 
The  conditions  required  for  the  node  elimination  are 
illustrated  in  Figure  I  I  I  - ( B  &  C).  Referring  to  this 
figure,,  forward  or  backward  elimination  of  node  N(a)  by 
combining  it  with  node  N(b)  may  be  done  if: 

-  N(a)  has  only  one  input  and  one  output/  and 

-  N(b)  has  only  one  input/  and 

-  U(l)  is  less  than  or  equal  to  U(k). 

All  possible  forward  eliminations  are  done  first.  A 
string  of  two  or  more  nodes  similar  to  N(a)  may  be  combined 
to  form  a  single  node  by  repeated  use  of  this  elimination. 
When  this  has  been  completed/  any  possible  backward 
eliminations  are  done.  It  will  be  noted  that  backward 
elimination  will  result  in  groups  of  two  nodes  at  most/  and 
that  N ( a )  in  Figure  lll-C.  cannot  be  eliminated  by  forward 
el  i m i na  t i on . 

After  each  elimination  of  a  node/  a  link  relating  the 
true  flowsheet  to  the  simplified  one  is  saved.  Stream  S(k) 
is  el iminated  and  pseudo- s t ream  S(s)  ,  identical  to  stream 
S(l)  is  introduced  between  nodes  N(b)  and  N(c). 

It  should  be  emphasized  here  that  the  simplification  of 
the  flowsheet  is  temporary  and  for  optimization  purposes 
only.  Once  optimization  has  been  completed,  the  actual 
flowsheet  is  restored.  The  final  calculation  sequence  is 
derived  from  the  optimum  reduced  flowsheet  using  the  links 
stored  during  node  elimination. 

The  flowsheet  reduction  technique  was  found  to  greatly 
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aid  the  optimization.  The  fourth  problem  mentioned 
regarding  Rubin*s  method  was  entirely  eliminated. 

b .  Nodal  Sequence  Modification 

Three  sequence  modifications  were  implemented  in  the 
new  method: 

nodal  exchange/ 
nodal  promotion,  and 
nodal  demotion. 

The  mechanical  effect  of  these  modifications  on  the 
association  matrix  are  illustrated  in  Figure  IV.  It  can  be 
seen  that  some  matrix  elements  "cross"  the  diagonal.  It  is 
desirable  if  this  results  in  a  decrease  in  the  upper 
triangular  sum  of  the  matrix.  The  decrease  in  this  sum  that 
will  result  from  the  sequence  modifications  can  be  evaluated 
as  foil ows : 

if  E  (  i , j  )  is  the  decrease  in  the  upper  triangular  sum 

resulting  from  exchanging  the  nodes  in  positions  i 
and  j  , 

P(i,j)  from  promoting  the  node  in  position  i  to  j, 
D(t,j)  from  demoting  position  j  to  i, 

k=j  k=j-l 

then  E  (  I  ,  j  )  =  SUM  (A( i , k)-A( k, I ) )  +  SUM  ( A ( k, j ) -A ( j , k) ) , 

k= i +1  k= I +1 

k=j-l 

P(I,j)  =  SUM  ( A ( k , j )  -  A ( j , k ) )  ,  and 
k=i 
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A.  -  Sequence  "exchange1*  of  positions  2  and  4. 


B.  -  Sequence  "promotion"  of  position  4  to  position  2. 


C.  -  Sequence  "demotion"  of  position  2  to  position  4. 

(Note:  elements  crossing  the  diagonal  are  underlined.) 


FIG.  IV 


CALCULATION  SEQUENCE  MODIFICATIONS 
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k-j 

D(i,j)  =  SUM  (A(i,k)  -  A ( k, i ) )  . 

k=  i  + 1 

also,  E(i,j)  =  P(i,j)  +  D  (  i  ,  j  )  -  A  (  i ,  j  )  +  A(j,i) 

The  most  advantageous  sequence  change  can  be  found  by 
eva 1 ua  t i ng 

E  (  i ,  j  ) ,  P  (  i  ,  j  )  and  D(i,j)  for 

(i  =  n -1,0-2 . 2,1)  and 

(j  =  i+1,  1  +  2, . .  .  .n)  . 

and  then  choosing  the  largest  positive  value  among  these. 

The  exchange  used  by  Rubin  ,  E(i,j),  is  in  fact  a 

simultaneous  promotion,  P(i,j),  and  demotion,  D(i,j). 
Because  he  always  does  these  together,  the  advantage  of  a 
promotion  is  often  nullified  by  the  disadvantage  of  the 
cor  respond i hg  demotion  and  vice  versa.  By  allowing 
promotion  and  demotion  to  be  done  individually,  this  can  be 
overcome . 

The  priority  of  the  changes  used  in  the  improved  method 
i  s : 

1.  profitable  exchange 

2.  profitable  promotion 

3.  profitable  demotion 

4.  least  adverse  exchange  if  no  profitable 
modification  exists. 

In  the  event  of  equally  advantageous  changes,  the  last 
one  encountered  using  the  designated  evaluation  of  E,  P  and 
D  is  used.  The  fourth  priority  is  usually  a  null 
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improvement  change  (ie.  no  change  in  the  number  of  recycle 
assumptions  required.) 

c .  Randomization  and  Termination 

After  a  number  of  sequence  changes  have  been  made  a 
stage  is  reached  when  no  improvement  of  the  sequence  can  be 
found.  At  this  point  null  improvement  changes  usually  occur 
indefinitely.  The  useless  continuation  of  the  search  is 
stopped  after  a  specified  number  of  such  null  improvement 
modifications  have  been  made.  A  new  initial  sequence  is 
produced  using  a  random  number  generator.  The  search  for 
the  optimum  sequence  is  re-begun  using  this  randomized 
sequence.  Although  the  optimum  is  usually  achieved  with  the 
first  application  of  the  algorithm,  this  is  not  guaranteed 
since  the  method  is  empirical.  After  a  specified  number  of 
sequence  randomizations  the  optimization  is  discontinued. 

The  problems  associated  with  Rubin’s  original  method 
were  effectively  eliminated  by  the  method  modifications. 
The  true  optimum  of  every  example  tried,  was  achieved  and 
was  invariably  reached  quickly.  The  example  cited  by  Rubin 
as  being  unsolvable  by  his  method  was  easily  solved  using 
the  modifed  method.  If  this  success  gives  a  meaningful 
indication,  the  developed  method  is  most  satisfactory  for 
optimization  of  calculation  sequence. 


. 


28 


D .  Executive  Program 

The  executive  program  begins  a  design  or  simulation  job 
by  transferring  control  to  a  "sub-executive"  data  input 
module.  Optimization  of  the  calculation  sequence  to  be  used 
is  nornally  done  next.  This  is  completed  by  a  module 
utilizing  the  method  described  in  the  previous  section. 
Optimization  is  not  done  if  'NO  OPTIMIZATION'  is  specified 
in  the  data.  In  this  case  a  user  supplied  calculation 
sequence  is  used  (see  Chapter  V.). 

The  necessary  process  calculations  are  completed  using 
the  calculation  sequence  (optimized  or  specified).  The 
executive  calls  the  equipment  modules  in  turn.  As  the 
calculations  proceed,  assumed  quantities  are  stored  by  the 
executive.  When  new  improved  values  are  calculated,  these 
are  compared  with  the  old  ones  to  check  for  convergence. 
Recycling  the  calculations  when  required  is  achieved  by 
merely  changing  the  location  in  the  calculation  sequence. 

Several  recycling  strategies  may  be  adopted.  Perhaps 
the  simplest  is  to  recycle  whenever  a  previously  assumed 
stream  is  calculated.  Figure  V.  shows  the  results  of  this 
as  strategy  1.  It  was  felt  this  would  result  in  an 
unnecessary  amount  of  nested  looping  and  could  lead  to 
convergence  problems. 

The  strategy  adopted  was:  recycle  after  a  previously 
assumed  stream  has  been  calculated,  but  only  if  all 
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Strategy  1 

Calculation  path:  <1,  (  2-3, 2-3  .  .  .  ) ,  4X1,  (  2-3, 2-3  .  .  .  ) ,  4>  .  .  . 
Convergence  of  stream  S(4)  obtained  for  each  estimate  of  S(2) 
Strategy  2 

Calculation  path:  < l-2-3-4> <1- 2  —  3 - 4 > . . . 

Convergence  of  streams  S(2)  and  S ( 4 )  obtained  simultaneously. 


Strategy  1 

Calculation  path:  <( 1-2-3, 1-2-3  ...), 4>< ( 2-3, 1-2-3 ...), 4> .. . 
Convergence  of  stream  S ( 2 )  obtained  for  each  estimate  of  S(4) 
Strategy  2 

Calculation  path:  <l-2-3-4Xl-2-3-4>.  .  .  . 

Convergence  of  streams  S ( 2 )  and  S ( 4 )  obtained  simultaneously. 


FIG.  V 


TWO  RECYCLE  CALCULATION  STRATEGIES 
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previously  assumed  streams  have  been  calculated.  The 
results  of  this  are  shown  in  Figure  V .  as  strategy  2. 

When  the  process  calculations  are  complete  a  process 
calculation  summary  module  is  called  If  a  summary  is  desired 
(See  Chapter  V).  This  completes  the  job  execution. 

The  executive  developed  is  far  more  sophisticated  than 
is  necessary  for  sulphur  plant  process  calculations.  The 
sophistication  is  necessary  to  achieve  the  general 
applicability  that  was  desired. 


e'dt 
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1  1  I  •  DETERMINATION  of  equilibrium  compositions 

During  the  process  calculations,  the  determination  of 
stream  compositions  entails  more  than  material  balances  if 
chemical  reactions  are  involved.  Ideally  the  reaction 
compositions  are  found  using  chemical  kinetics.  However,  in 
the  sulphur  plant  application,  this  Is  presently  impossible 
due  to  a  lack  of  kinetic  data.  In  many  reaction  systems  not 
limited  severely  by  kinetics,  thermodynamic  equilibrium  is 
nearly  achieved.  For  this  type  of  system,  the  stream 
compositions  predicted  by  a  thermodynamic  equilibrium 
approach  become  valid.  It  has  been  assumed  that  when  proper 
reaction  conditions  exist,  the  sulphur  recovery  reactions 
achieve  equilibrium.  The  determination  of  thermodynamic 
equilibrium  compositions  by  free  energy  minimization  will  be 
desc  r i bed . 

A .  Minimization  of  Free  Energy  (M.F.E.) 

There  has  been  a  considerable  amount  of  work  done  on 
the  efficient  computation  of  complex  equilibria 
(23,24,25,26,27,28,29),  particularly  in  the  field  of 
rocketry.  The  "equilibrium  constant"  method  has  long  been 
used  for  determining  equilibria  for  simple  reaction  systems. 
This  method  uses  algebraic  equations,  derived  from 
stoichiometry,  which  take  account  of  the  reaction 
equilibrium  constants.  However,  complex  systems  involve 
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large  numbers  of  chemical  reactions  and  molecular  species 
which  result  in  sizeable  sets  of  highly  non-linear 
equations.  The  solution  of  these  equations  by  a  method  such 
as  Newton-Raphson  is  very  difficult.  Convergence  to  the 
solution  is  invariably  slow  and  often  cannot  be  achieved 
even  with  good  guesses. 

A  more  recent  method  of  determining  complex  equilibria 
involves  minimization  of  the  system  free  energy.  Reaction 
stoichiometry  is  ignored.  Since  minimum  free  energy  is  a 
criterion  of  thermodynamic  equilibrium,  the  location  of  the 
minimum  Is  equivalent  to  finding  the  equilibrium 
composition.  This  approach  is  far  less  susceptible  to 
convergence  difficulties  and  will  converge  even  with  very 
poor  initial  guesses. 

A  comprehensive  paper  has  been  written  by  Zeleznik  and 
Gordon(29),  reviewing  the  thermodynamic  principles  involved 
in  equilibrium  calculations.  The  development  and  extensions 
of  the  two  approaches  mentioned,  as  well  as  their  relative 
merits  and  use  are  discussed.  They  seem  to  favour  the  free 
energy  approach. 

White,  Johnson  and  Dantzig(23)  presented  the  original 
method  utilizing  free  energy  minimization.  They  described 
two  alternate  means  of  minimizing  a  derived  objective 
function  -  one  using  Newton-Raphson  steepest  descent  and  the 
other,  linear  programming.  The  method  developed  was  limited 
to  gaseous  equilibria  but  was  later  extended  to  multi-phase 
equilibria  by  Oliver,  Stephanou  and  Baier(24). 
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The  original  method  of  Dantzig  et  al  was  considered 
adequate  for  the  reaction  systems  encountered  in  sulphur 
recovery  processes.  The  steepest  descent  procedure 
described  by  them  was  used  for  the  free  energy  minimization. 
A  brief  derivation  of  this  method  follows. 

The  free  energy  of  a  mixture  of  n  molecular  species, 
containing  x(i)  moles  of  the  i th  specie  can  be  expressed  as: 


i  =n 

F(X)  =  SUM  f ( i )  (1) 

i  =1 


where 


X.  =  x  ( 1 ) ,  x  (  2 ) ,  .  . ,  x  ( n ) ,  the  set  of  mole  numbers, 
f ( i )  =  x( i ) . (  c ( i )  +  In  <  x ( i ) /XB  >  )  , 


c ( i )  =  F/RTC i )  +  In  P  , 


P  =  the  total  pressure  in  atmospheres, 

I  =n 

XB  =  SUM  x ( i )  ,  and 

i  =1 

F / RT ( i )  =  the  ith  specie  molal  standard  (Gibb's) 
free  energy  function. 

The  equilibrium  composition  is  that  non-negative  set  of  mole 
numbers  which  minimizes  (1),  subject  to  the  atomic  mass 
balance  constraints: 


i  -n 

SUM  a(i,j).x(i)  =  b(j)  ,  0=1,2,.  ..m) 

i  =1 

where  m  =  the  number  of  atomic  species, 

a  (  i  ,  j  )  =  element  of  formula  matrix.  A,  representing 

the  number  of  atoms  of  the  jth  atomic  specie 
associated  with  the  ith  molecular  specie, 
b(j)  =  total  number  of  jth  specie  atoms  in  system. 
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Starting  with  a  positive  set  of  values  for  the  mole  numbers, 
Y.  =  y( 1) , y( 2) , . . . y(n)  ,  satisfying  the  mass  balance 
constraints,  the  free  energy  of  the  mixture  is: 

i  =n 

F(Y)  =  SUM  y ( i ) . (  c ( i )  +  In  <  y ( i ) / YB  >  ) 
i  =1 

Using  a  Taylor  expansion  about  Y  and  introducing  Lagrangian 
multipliers,  ( 1 ( j ) ,  j=l,2,..m),  to  ensure  that  the  mass 
balance  constraints  are  satisfied,  an  approximation  for  X  is 
ob ta i ned : 


j=m 

x ( i )  =  -f ( i )+(y( i )/YB)+y( i ) .SUM  l(j).a(i,j)  (2) 

j=l 

where  f ( i )  =  y(i).(  c(i)  +  ln(y(i)/YB)  )  (3) 

Summi ng  over  i , 

j =m  i=n 

SUM  1 ( j ) . b ( j )  =  SUM  f  (  i  )  . 

j=l  i=l 

If  the  following  constants  are  defined: 

i  =n 

r ( j , k )  =  r ( k , j ) =  SUM  a ( i , j ) . a ( i , k) . y ( i ) ,  ( j , k  =  l, 2 . .m) , 

i  =1 


i  =n 

p(j)  =  SUM  a(i,j).f(i)/  (j=l,2...m), 
i  =1 

i  =  n 

q  =  SUM  f ( i ) ,  and 
i  =1 

u  =  XB/YB-1, 

then  a  set  of  m+1  linear  equations  in  the  unknowns 
1 (1) , 1 (2) , . . . 1 (m)  and  u  results: 


r 
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r(l/D.l(l)  +  r  ( 1/  2 ) .  1  (  2 )  +  ...+  r(l/m).l(m)  +  b(l).u  =  p  ( 1 ) 
r(2/l).1(l)  +  r(2/2).l (2)  +  ...+  r(2/m).l(m)  +  b(2).u  =  p ( 2 ) 

•  •  .  .  . 

r(m/l).l(l)  +  r(m,2).l(2)  +  ...+  r(m/m).l(m)  +  b(m).u  =  p(m) 
bCl).l(l)  +  b(2).l(2)  +...+  b(m).l(m)  +  0  =  q 

The  solution  of  these  equations  (by  Gaussian  elimination) 
yields  l(j),  the  Lagrangian  multipliers.  Substitution  of 
these  multipliers  and  the  results  of  Equation  (3)  into 
Equation  (2)  produces  a  new  approximation,  )(/  to  the 
equilibrium  mole  numbers.  This  procedure  is  repeated  until 
convergence  is  achieved. 

if  the  procedure  described  is  unconstrained,  some  mole 
numbers  may  become  negative.  Since  this  is  impossible 
physically,  it  is  unacceptable.  To  prevent  negative  mole 
numbers,  the  following  procedure  is  used: 

1.  the  computed  changes  are  found, 

d ( i )  =  x( i )-y( i )  , 

2.  the  limiting  change  is  found, 

S  =  min.  abs.  y(i)/d(i),  over  all 
non-positive  x ( I ) 9  s , 

S  =  1  if  all  x(i)'s  are  positive, 

3.  new  approximations  are  defined, 

x  ( I )  1  =  y  ( i )  +  S  .  F  .  d  (  i  )  . 

Due  to  the  nature  of  Lagrangian  multipliers,  the  mass 
balance  constraints  are  satisfied  for  any  value  of  F  (or 
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S.F).  Therefore/  the  value  of  F  may  be  adjusted  to  render 
all  mole  numbers  positive.  For  F  =  l,  the  limiting  specie 
(ie.  specie  defining  S)  is  set  to  zero.  This  is 
undesireable  because  of  the  nature  of  Equation  (2).  Once  a 
molecular  specie  becomes  zero  it  remains  zero  interminably. 
Dantzig  et  al  attempt  to  optimize  the  selection  of  F,  but 
this  was  not  done  in  the  present  application.  Rather,  a 
constant  value  F  =  0.99,  was  chosen  as  done  bt  Oliver  et  al. 
This  is  found  satisfactory,  as  it  limits  a  specie  reduction 
to  99  percent  (one  hundred  fold  reduction)  of  its  previous 
value. 

B .  Implementation  of  the  M.F.E.  Method 

The  free  energy  minimization  method  was  programmed  and 
tested  using  several  literature  examples  (23,24),  and 
identical  results  were  obtained.  The  use  of  the  program  for 
other  applications,  however,  resulted  in  several 
difficulties. 

The  first  of  these  was  the  determination  of  an  initial 
positive  (non-  negative,  non-zero)  set  of  mole  numbers. 
Frequently,  some  of  the  mole  numbers  in  the  specified  feed 
(particularly  reaction  product  species)  are  zero.  As  stated 
previously,  the  method  will  not  alter  mole  numbers  which  are 
identically  zero.  The  generation  of  an  initial  positive  set 
of  mole  numbers,  rigorously  satisfying  the  mass  balance 
constraints  is  not  trivial  in  this  case.  The  number  of 
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molecular  species  is  invariably  greater  than  the  number  of 
atomic  species  and  this  results  in  more  unknown  mole  numbers 
than  mass  balance  equations.  Arbitrary  specification  of  the 
excess  unknowns  does  not  guarantee  the  remaining  ones  will 
be  pos i t i ve . 

Several  means  of  resolving  this  problem  were  tried. 
The  only  method  found  which  generated  a  positive  set 
rigorously  satisfying  the  mass  balance  constraints  was  a 
modification  of  the  simplex  (linear  programming)  algorithm. 
Unfortuna tel y,  finding  the  initial  positive  set  took  much 
longer  than  the  free  energy  minimization  itself.  It  was 
decided  in  the  interests  of  saving  the  time  and  space 
required  by  the  simplex  algorithm,,  that  species  initially 
zero  would  be  equated  to  an  arbitrarily  small  number  (say 
10“®  ).  This  introduces  small  errors  into  the  mass  balances 
but  results  in  a  negligible  difference  in  the  equilibrium 
compositions.  Convergence  takes  longer  because  of  the  very 
poor  guesses,  but  is  always  achieved  due  to  the  excellent 
convergence  characteristics  of  the  method.  Obtaining  an 
initial  positive  set  in  this  way  was  found  to  be  completely 
sat i sf ac tory . 

The  safeguards  taken  to  prevent  negative  or  prematurely 
zero  mole  numbers  sometimes  impede  convergence.  This  is 
because  species  tending  to  zero  are  limited  to  a  one  hundred 
fold  decrease.  Non-zero  species  are  prevented  from  becoming 
zero  but  convergence  of  zero  species  is  considerably  slowed. 
Furthermore,  while  species  not  present  are  decreasing  to 
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zero,  the  minimization  is  effectively  suspended,  due  to  the 
negl igible  changes  being  imposed.  For  example,  the 
composition  may  remain  essentially  constant  for  30 
iterations  while  one  specie  is  driven  from  1G~^  moles  to  a 
stable  value  of  10  ^  moles.  The  minimization  then 
continues  until  a  similar  situation  is  encountered  or  until 
convergence  is  achieved.  This  convergence  impairment  can  be 
partly  eliminated  if  species  less  than  some  criterion  (say 
10  ^ )  are  equated  to  zero.  The  choice  of  the  criterion  is 
quite  critical.  Some  species  (particularly  those 
initialized  to  10  ^  )  decrease  before  obtaining  their  final 
equilibrium  value.  If  this  value  should  be  positive,  it  is 
imperative  that  the  mole  number  not  be  equated  to  zero 
during  the  minimization,  as  this  will  result  in  an  invalid 
equilibrium  composition.  The  choice  of  10~i0  is  a 
compromise  between  waste  of  computer  time  and  risk  of  an 
invalid  composition.  If  the  latter  is  suspected,  the 
calculations  can  be  repeated  using  a  positive  set  derived 
from  the  "equilibrium  composition".  If  the  composition  is 
valid,  it  should  be  reproduced. 

The  paramount  importance  of  including  all  molecular 
species  that  might  exist  and  positive  initial  mole  numbers 
for  them  should  be  emphasized.  Species  which  are 
thermodynamically  precluded  at  equilibrium  will  be  driven  to 
zero  during  the  minimization.  However,  species  not  included 
or  initially  zero  cannot  possibly  have  a  final  positive 
value.  If  a  significant  specie  is  so  omitted,  an  invalid 
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composition  will  result. 

It  is  useful  to  realize  that  if  a  "good"  initial  guess 
exists,  the  generation  of  a  positive  set  of  mole  numbers  may 
be  unnecessary.  If  species  which  are  initially  zero  are 
known  to  be  nonexistent  at  equilibrium,  a  considerable  time 
saving  results  from  skipping  the  positive  set  generation. 
Convergence  is  then  faster  because  fewer  species  must  be 
driven  to  zero. 

C .  Application  of  the  M.F.E.  Method 

The  adapted  method,  when  programmed,  was  found  to  be 
satisfactory  for  all  the  examples  tried.  The  program  was 
then  generalized  to  accommodate  any  reaction  system,  as 
defined  by  a  feed  composition.  Any  molecular  specie  may  be 
included  in  the  feed  (with  a  mole  number  of  zero)  as  a 
possible  product.  Those  species  which  are  physically 
impossible  (eg.  COS  in  an  HO  S  N  system)  are  eliminated 
during  initialization  and  ignored  thereafter.  Program 
generation  of  an  initial  positive  set  of  the  remaining  mole 
numbers  may  be  specified  or  skipped.  Species  which  are 
non-existent  at  equilibrium  will  be  driven  to  zero  (10  ^) 
during  the  free  energy  minimization.  The  program 
generalization  was  necessary  to  accommodate  the  variation  of 
atomic  species  present  in  the  different  plant  streams;  all 
compositions  were  to  be  calculated  using  the  same 
equilibrium  program  and  the  same  thermodynamic  property 
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data  . 

An  example  of  the  use  of  the  composition  calculation 
module  as  an  independent  program  is  illustrated  in  Figure 
VI.  The  variation  of  equilibrium  mole  fractions  with 
temperature  has  been  plotted  for  a  typical  sulphur  plant 
feed  compos  J  t i on . 

Reaction  Quenching  and  Sulphur  Shift 

An  important  restriction  must  be  imposed  on  the 
calculations  for  the  sulphur  recovery  reactions.  At  high 
temperatures  (above  1000  F),  the  reactions  take  place 
homogeneously  and  thermodynamic  equilibrium  is  approached. 
However,  at  low  temperatures,  total  equilibrium  is 
approached  only  in  the  presence  of  a  catalyst.  In  the 
absence  of  a  catalyst,  essentially  no  reaction  takes  place; 
only  the  distribution  of  sulphur  among  the  elemental  sulphur 
species  changes.  This  sulphur  shift  occurs  at  all 
tempe ra tu res .  Therefore,  in  Figure  VI,  at  temperatures 
below  1000  F,  the  presence  of  a  catalyst  has  been  assumed, 
since  the  equilibrium  compositions  have  been  plotted. 

Thermodynamic  equilibrium  compositions  are  independent 
of  the  presence  of  a  catalyst.  This  Is  because  catalysis  is 
a  kinetics  phenomena.  Thermodynamic  equilibrium  represents 
the  limiting  reaction  condition,  while  kinetics  is  related 
to  the  rate  at  which  this  condition  is  approached.  Even 
though  kinetics  are  not  dealt  with  directly  in  the 
calculations,  some  account  must  be  taken  of  severely 
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limiting  kinetics  if  realistic  results  at  all  conditions  are 
to  be  obtained.  An  "equilibrium  cutoff  t empe ra tu re"  concept 
has  been  used  to  achieve  this.  Below  this  temperature,  in 
the  absence  of  a  catalyst,  all  reactions  but  the  sulphur 
shift  are  assumed  to  be  completely  quenched.  Above  this 
temperature  or  in  the  presence  of  a  catalyst,  complete 
equilibrium  is  assumed. 

The  sulphur  shift  is  simulated  (at  temperatures  below 
the  cutoff  temperature)  by  extracting  the  elemental  sulphur 
species  from  the  real  stream  and  placing  them  in  a 
pseudo-stream.  The  equilibrium  distribution  of  sulphur 
species  in  the  pseudo-stream  is  calculated  at  the  specified 
temperature  and  sulphur  partial  pressure  of  the  real  stream. 
Iteration  Is  required  due  to  the  change  in  sulphur  partial 
pressure  produced  by  the  sulphur  redistribution.  The  real 
and  pseudo-streams  are  then  combined. 

Conditions  when  equilibrium  is  calculated  and  when 
kinetic  limitations  are  artificially  imposed  are  shown  in 
Table  I . 


Iterative  Temperature  Determination 

The  composition  module  is  also  used  for  obtaining 
adiabatic  and  non-ad i aba t i c  reaction  temperatures.  The  heat 
balance  for  a  reacting  stream  is: 

H  ( 1 )  =  H  C  2  )  +  Q  , 

where  the  functions  of  temperature  are: 

H(l)  =  the  inlet  stream  enthalpy  (a  function  of 
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inlet  composition  and  tempe ra tu re ) , 

H  ( 2 )  =  the  outlet  stream  enthalpy  (a  function  of  the 
unknown  outlet  temperature  and  composition), 

Q  =  stream  heat  loss  (zero  for  adiabatic  case). 

The  problem  is  to  find  the  final  temperature  ( T ( 2 ) ) 
which  satisfies  the  heat  balance.  If  enthalpy  was  a 
function  only  of  temperature,  this  would  be  quite  simple. 
However,  enthalpy  is  a  strong  function  of  composition  which 
in  turn  is  a  moderate  function  of  temperature.  The 
determination  of  the  outlet  temperature  therefore  involves 
iterative  guessing.  At  each  temperature,  the  equilibrium 
composition  and  heat  loss,  if  any,  are  calculated  and  the 
resulting  heat  balance  error  is  evaluated.  Convergence  has 
been  achieved  using  the  secant  method.  After  two  initial 
guesses  have  been  made,  succeeding  approximations  to  the 
correct  temperature  are  obtained  as  follows: 

T  (  i  + 1 )  =  T(i-l)-A.(T(i-l)-T(i)).E(i“l)/(E(i-l)“E(i)) 

where  T(i+l),T(i)  and  T(i-l)  are  the  new,  present  and  old 

outlet  temperature  guesses  respectively, 

E(i)  =  H  (1 )  -  1-1(2)  ~  Q  (heat  balance  error) 

=  H ( 1 )  -  H(2)  for  adiabatic  case,  and 
A  =  a  convergence  accelerator  (usually  set  to  1.0 
if  no  convergence  problems  exist). 

Iteration  on  the  outlet  temperature  is  discontinued  when  the 
relative  error, 

ER( i )  =  abs.  E (  i  ) / H ( 1 )  , 

Is  less  than  some  predetermined  criterion. 
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Since  each  temperature  guess  involves  an  iterative 
calculation  of  the  equilibrium  composition,,  it  can  be  seen 
that  determination  of  adiabatic  and  non-ad i abat i c 
temperatures  involves  a  large  amount  of  computation.  This 
can  be  reduced  by  skipping  the  positive  set  initializations 
(during  composition  calculations)  when  the  correct 
temperature  is  approached. 

D .  Thermodynamic  Data  Sources 

Improved  convergence  characteristics  is  not  the  only 
aspect  of  free  energy  minimization  that  is  superior  to  the 
equilibrium  constant  method.  Another  significant  advantage 
is  that  no  account  of  reaction  stoichiometry  must  be  taken. 
This  greatly  assists  the  gene ra 1 i za t i on  of  a  program 
utilizing  the  method,  since  "reaction  bookkeeping"  is 
eliminated.  To  complete  the  composition  calculations,  only 
the  molecular  specie  free  energy  functions  are  required. 
Similar  functional  forms  are  required  for  enthalpy 
evaluations.  However,  if  stoichiometry  Is  to  be  ignored, 
these  functions  must  be  in  a  particular  form.  Both  free 
energy  and  enthalpy  must  be  functions  of  temperature 
relative  to  a  common  reference.  If  this  is  so,  the 
functions  include  both  chemical  and  sensible  energies. 
Therefore,  the  changes  in  free  energy  and  enthalpy  with 
reaction  are  automatically  accounted  for  and  need  not  be 
calculated  separately.  Most  thermodynamic  data  sources  use 
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many  bases  and/  to  ignore  stoichiometry,  this  data  must  be 
converted  to  a  common  base. 

Thermodynamic  property  data  in  tabular  or  functional 
form  may  be  obtained  from  several  sources  (30,31,32,33).  A 
comprehensive  listing  of  sources  has  been  detailed  (34). 

For  the  sulphur  plant  application,  a  particularly  good 
source  of  thermodynamic  data  was  the  NASA  "Thermodynamic 
Properties  to  6000  K  for  210  Substances  Involving  the  First 
18  E 1 ement s" ( 30 ) .  This  data,  accumulated  for  rocket 
studies,  is  very  well  suited  to  the  present  needs.  Besides  a 
tabular  presenta t i on,  functional  constants  are  given  for 
thermodynamic  properties  including  F/RT,  Cp/R,  H/RT  and 
S/R.  This  data  is  referenced  to  a  common  base  and  so  may  be 
used  directly.  Most  of  the  molecular  species  encountered  in 
sulphur  recovery  are  available  from  this  source.  The 
notable  exceptions  are  S ( 6 )  and  S ( 8 )  forms  of  elemental 
sulphur  and  hydrocarbons  excluding  methane.  Kelley(35)  has 
presented  functions  for  free  energy  changes  for  S(2)  to  S ( 8 ) 
and  for  S(2)  to  S(6).  Since  S(2)  was  included  in  the  NASA 
presentation,  constants  compatible  with  the  NASA  form  were 
derived  for  S ( 6 )  and  S(8).  No  other  forms  of  elemental 
sulphur  were  included,  although  some  data  on  these  has  been 
presented  (36).  Except  for  methane,  no  hydrocarbon  data  in 
the  derived  form  was  found.  Existing  hydrocarbon  data, 
referenced  to  many  bases,  may  be  converted  from  other 
sources  to  a  form  compatible  with  the  NASA  source  by  curve 
fitting.  This  data  conversion  has  not  been  done  here. 
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1V.1.  EQUIPMENT  MODULES 


As  stated  previously,  the  equipment  modules  are 
independent  programs,  but  must  be  compatible  with  the 
executive  program.  In  particular,  the  compatibility  of  data 
accessing  and  storing  by  the  modules  is  essential.  Of 
lesser  importance  is  a  compatible  form  of  output.  Data  is 
stored  primarily  in  a  program  'common*  area  and  is 
manipulated  entirely  by  the  modules  and  not  by  the 
executive.  Data  input,  data  storage  and  output  of  results 
are  described  in  detail  in  Chapter  V. 

During  the  process  calculations,  the  executive 

repeatedly  decides  which  equipment  number  is  to  be  done 

next.  The  streams  to  and  from  this  equipment  are  found  and 
the  area  of  data  storage  allotted  to  that  equipment  number 
is  defined.  An  output  priority  flag  (see  Chapter  V.)  is  set 
for  the  process  calculations  to  follow.  Finally,  the 
equipment  type  is  determined  and  program  control  is 
transferred  to  the  appropriate  equipment  module. 

The  process  calculations  involve  three  types  of 
streams.  These  are  defined  as  follows: 

1.  conventional  material  streams  which  involve  mass  and 
energy  flow  and  associated  physical  properties  (eg.  most 
process  streams), 

2.  service  streams  which  are  identical  to  material  streams 

but  are  ignored  during  the  calculation  optimization  (eg. 

boiler  feedwater  and  steam,  furnace  fuel  etc.),  and. 
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3.  information  streams  which  have  only  information 

associated  with  them,,  and  are  frequently  opposite  in 
direction  to  material  stream  flow  (eg.  stream  split 
ratio,  energy  transfer  etc.) 

The  modules  which  are  developed  must  be  programmed  to 
accommodate  the  presence  or  absence  of  these  stream  types. 

Several  "executive  type  function"  routines  have  been 
included  which  are  not  directly  related  to  the  executive, 
but  which  can  be  used  by  the  modules  when  required.  These 
include  stream  utility  routines  and  data  compatibility 
checking  etc. 

Nine  equipment  modules  have  been  developed  for  the 
sulphur  plant  application.  Each  of  these  is  capable  of 
functioning  in  either  a  design  or  a  simulation  mode,  as 
determined  by  the  data  accessed.  These  are: 


1.  reaction  furnace  and  waste  heat  boiler  (RXWHB) 

2.  in-line  burner  (INLNB) 

3.  catalytic  sulphur  converter  (CNVTR) 

4.  sulphur  condenser  (CONOR) 

5.  adiabatic  stream  combiner  (COMBN) 

6.  stream  combiner  and/or  divider  (CMBDV) 

7.  combustion  air  adder  (AiRAD) 

8.  tail  gas  incinerator  (INCIN) 

9.  effluent  stack  (STACK) 


These  modules  can  be  used  to  design  or  simulate  a  large 
variety  of  sulphur  plants,  but  will  not  accommodate  all 
possible  flowsheets.  To  do  this  would  require  several  more 


' 


. 


49 


special  purpose  modules.  The  distinct  parts  of  the  modules 
which  have  been  developed  will  be  described  individually. 

1 •  Reaction  Furnace  and  Waste  Heat  Boiler 

The  most  complex  module  that  has  been  developed  is  the 
reaction  furnace  -  waste-heat  boiler.  The  complexity  arises 
from  the  large  number  of  boiler  designs  and  options  that  are 
used  in  sulphur  recovery  plants.  The  purpose  of  the 
reaction-boiler  is  to  burn  some  of  the  feed  hydrogen 
sulphide  and  hydrocarbons  with  the  air  supplied.  The 
combusted  gas  is  then  cooled  from  the  flame  temperature 
(about  2000  F)  to  a  significantly  lower  temperature. 

The  module  developed  will  accommodate  a  large  variety 
of  boilers,  but  not  all  industrially  used  boilers.  To  begin 
with,  only  fire-tube  boilers  can  be  handled.  The 
calculation  of  heat  losses  (particularly  radiative)  are  much 
simpler  for  this  type  of  boiler  than  for  the  alternate 
water-tube  type.  The  accomodation  of  the  latter  would 
entail  development  of  additional  and  entirely  different 
convective  and  radiative  heat  loss  routines. 

The  combustion  may  be  done  using  either  a  muffle 
furnace  or  a  boiler  fire-tunnel.  A  muffle  furnace  is  an 
insulated  reaction  chamber  external  to  the  boiler. 
Combustion  of  the  acid  gas  takes  place  ad i aba t 1 ca 1 1 y  and  a 
multi-tube  first  pass  is  used  in  the  adjoining  boiler.  A 
boiler  fire-tunnel  is  a  single  large  diameter  tube  which 
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forms  the  first  pass  of  the  boiler.  In  this  case,  some  heat 
transfer  occurs  during  combustion  and  so  the  reaction  is 
non-ad i aba t i c .  For  either  type  of  combustion  chamber,  the 
boiler  section  of  the  equipment  may  consist  of  one,  two  or 
three  tube  passes. 

The  design  of  the  boiler  combustion  chamber  is 
identical  to  that  used  for  the  in-line  burner,  and  will  be 
described  with  that  equipment  module.  It  has  been  assumed 
that  thermodynamic  equilibrium  is  achieved  in  the  combustion 
chamber  if  sufficient  residence  time  (eg.  0.6  sec.)  is 
provided.  This  is  because  the  high  temperatures  reached 
during  combustion  are  accompanied  by  very  rapid  kinetics. 
However,  as  the  cooling  in  the  boiler  takes  place,  the 
combustion  reactions  reverse  and  the  reaction  rates 
decrease.  Since  no  catalyst  is  present,  the  reactions  are 
quenched  as  the  temperature  decreases.  Industrially  it  has 
been  found  that  the  boiler  exit  composition  and  hence 
sulphur  conversion  (at  say  600  F)  resembles  the  equilibrium 
prediction  at  a  higher  temperature.  The  quenching 
responsible  for  this  is  simulated  by  using  an  equilibrium 
cutoff  temperature  (say  1100  F)  that  produces  a  realistic 
outlet  stream.  Below  the  cutoff  temperature,  only  the 
sulphur  shift  reactions  occur. 

Another  boiler  option  that  has  been  implemented  is  the 
use  of  boiler  bypass  for  process  reheating.  If  bypass  is 
used,  one,  two  or  three  boiler  bypass  reheat  streams  may 
exist.  Whereas  in  reality  the  bypass  is  a  single  stream. 


. 

r 

bi 

. 


51 


cal cul at iona 11 y  It  Is  divided  within  the  boiler  into  the 
number  of  reheat  streams  required.  The  bypass  is  always 
extracted  at  the  exit  of  the  second  last  tube  pass, 
regardless  of  the  number  of  boiler  passes.  The  reheat 
streams  are  found  by  successively  multiplying  the  remaining 
boiler  stream  by  a  split  fraction  (bypass  ratio).  The 
residual  gas  then  passes  through  the  last  boiler  pass. 

Boiler  Tube  Pass  Design 

Valdes(37)  has  presented  a  paper  for  the  design  of 
firetube  reactor-was tehea t  boilers,  with  special  reference 
to  sulphur  plants.  This  method  was  not  considered 
sufficiently  rigorous  since  it  was  assumed  that  composition 
was  constant  throughout  the  boiler.  The  enthalpy  changes 
accompanying  chemical  reaction  during  cooling  have  been 
found  to  be  significant  and  so  are  not  ignored  in  this  work. 
Although  the  approach  proposed  by  Valdes  was  not  used,  his 
work  provided  a  useful  reference  for  heat  transfer  and 
pressure  drop  calculations. 

The  design  variables  associated  with  each  tube  pass  are 
tube  length,  tube  diameter  and  the  number  of  tubes.  in  the 
present  method  of  design,  the  tube  length  must  be  specified 
if  a  muffle  furnace  is  used.  If  a  boiler  firetube  is  used, 
the  design  of  the  first  pass  firetube  will  define  the  boiler 
tube  length.  In  either  case,  the  choice  of  length  (same  for 
all  passes)  is  limited  by  commercial  availability. 

For  each  boiler  tube  pass  the  maximum  allowable 
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pressure  drop  and  the  outlet  temperature  are  specified.  The 
number  of  tubes  and  the  tube  diameter  which  satisfy  these 
specifications  must  be  found.  This  is  done  by  iteratively 
guessing  the  tube  number.  For  each  guess,  a  commercially 
available  diameter  which  results  in  less  than  the  specified 
maximum  pressure  drop  is  found.  The  resulting  heat  loss  is 
then  calculated.  Since  the  outlet  temperature  is  specified, 
the  outlet  composition  must  be  calculated  only  once.  The 
secant  method  is  used  to  find  the  number  of  tubes  which 
results  in  the  specified  tube  pass  outlet  temperature. 

The  discrete  nature  of  the  tube  diameters  (commercial) 
adversely  affects  convergence  to  the  correct  tube  number. 
This  is  particularly  true  when  the  tube  diameter  alternates 
between  two  sizes  with  succeeding  tube  number  guesses. 
Convergence  is  improved  by  the  following  strategy: 

1.  the  two  initial  guesses  required  for  the  secant  method 
are  made  significantly  different, 

2.  a  convergence  accelerator  less  than  one  is  used  until 
the  correct  tube  number  is  roughly  approx i ma ted , 

3.  the  tube  diameter  is  fixed  at  the  current  value  if  a 
specified  number  of  tube  number  iterations  has  been 
exceeded . 

The  tube  number  is  rounded  to  the  nearest  integer 
number  of  tubes  once  it  and  the  cor  respond i ng  tube  diameter 
have  been  determined.  The  outlet  temperature  is  usually 
within  a  degree  of  that  specified  and  the  pressure  drop  is 
somewhat  below  the  maximum  specified. 
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After  each  tube  pass  design,  the  tube  pass  is 
simulated.  This  is  done  because  simulation  results  are 
continuous  (temperature  and  pressure)  whereas  design  results 
(diameter  and  tube  number)  are  discrete.  The  specified  tube 
pass  outlet  conditions  cannot  be  met  exactly;  simulation 
results  in  the  actual  outlet  conditions  for  the  designed 
pass. 

Sometimes  specification  of  all  tube  pass  outlet 
temperatures  is  not  desired.  In  this  event  "multiple  tube 
pass  design"  is  done.  The  intermediate  tube  pass  outlet 
temperatures  are  estimated  and  it  is  temporarily  assumed 
that  the  tube  passes  involved  are  identical.  This  type  of 
design  is  subject  to  all  outlet  (including  bypass) 
temperatures  being  specified.  The  "multiple  design"  should 
be  eludidated  by  the  following  calculation  sequence  for  a 
three  pass  boiler  (no  bypass)  with  all  pressure  drops  and 
only  the  final  exit  temperature  specified: 

1.  define  first  pass  design  to  satisfy  outlet 

specifications  on  basis  that  all  three  passes  are 
identical  -  estimate  first  and  second  pass  exit 
temperatures, 

2.  simulate  first  pass, 

3.  define  second  pass  on  the  basis  that  second  and  third 
passes  are  identical  -  estimate  second  pass  temperature, 

4.  simulate  second  pass, 

5.  define  third  pass  to  satisfy  the  outlet  temperature  and 
final  pass  pressure  drop  specifications. 
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6 .  simulate  third  pass . 

The  repeated  design  of  the  last  two  passes  is  necessary 
because  of  the  approximate  nature  of  the  initial  designs; 
averaged  stream  compositions  and  properties  over  a  large 
temperature  interval  are  used. 

Boiler  Tube  Pass  Simulation 

Tube  diameter/  tube  length  and  number  of  tubes  must  be 
specified  for  each  pass  when  boiler  simulation  is  being 
done.  The  simulation  of  each  pass  involves  a  non-ad i aba t i c 
temperature  determination.  At  each  estimate  of  outlet 
temperature,  the  resulting  composition,  heat  loss  and 
pressure  drops  are  calculated.  Iteration  on  the  temperature 
continues  until  the  tube  pass  energy  balance  is  satisfied. 

The  total  heat  loss  in  the  boiler  consists  of 
convective  and  radiative  heat  transfer.  The  latter  is  of 
primary  significance  at  high  tempe ra tu res .  Below  900  F 
(mean  tube  pass  temperature)  radiation  is  assumed  to  be 
negligible.  The  method  used  by  Valdes  to  evaluate 
convective  heat  losses  has  been  used,  but  his  method  of 
calculating  radiation  heat  losses  using  graphical  emissivity 
data  has  not  been  used.  It  is  desireable  to  avoid  tabular 
interpolation  or  graphical  data. 

Radiation  heat  losses  are  difficult  to  evaluate 
rigorously  because  of  the  effect  of  physical  geometry  and 
the  problem  of  obtaining  emi ss i v i t i es .  For  simple 
geometries,  a  radiating  beam  length  is  used  to  account  for 
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physical  structure.  In  the  present  case  the  beam  length 
used  Is  0.9  times  the  tube  diameter.  Empirical  correlations 
for  emissivity  data  as  a  function  of  temperature,  pressure 
and  composition  are  nearly  non-existent.  The  best  source  of 
emissivity  data  for  the  present  needs  was  found  in 
Hottel(38).  Emissivity  data  previously  obtained  for  water 
carbon-dioxide  mixtures  is  represented  with  a  single  curve. 
The  product  of  the  sum  of  water  and  carbon  dioxide  partial 
pressures  is  plotted  against  the  product  of  gaseous 
emissivity  and  absolute  temperature.  Several  points  along 
the  nearly  linear  plot  presented  by  Hottel  have  been  used  to 
find  emissivities  by  linear  interpolation.  It  has  been 
assumed  that  sulphur  dioxide  resembles  carbon  dioxide  and 
hydrogen  sulphide  resembles  water  in  this  context.  The 
partial  pressure  used  to  evaluate  the  emissivity  is  the  sum 
of  the  partial  pressures  of  all  polar  molecules  (molecules 
with  three  or  more  atoms  are  assumed  to  be  polar). 

The  equation  presented  by  Valdes  to  evaluate  pressure 
drops  in  the  tubes,  including  end  effects,  has  been  used. 
His  graphical  determination  of  friction  factor  has  been 
replaced  with  an  empirical  correlation. 

The  equations  pertaining  to  the  calculation  of 
convective  and  radiative  heat  transfer,  pressure  drops  and 
steam  production  for'  a  specified  boiler  steam  pressure  are 
presented  in  Appendix  A.l.  A  list  of  the  specifications 
required  for  various  boiler  designs  or  simulations  and  a 
list  of  boiler  equipment  parameters  are  to  be  found  in 
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Appendix  B. 


2 .  In-line  Bu rne r 


The  in-line  burner  is  used  for  the  combustion  of  a 
small  percentage  (eg.  5  percent)  of  the  acid  gas  feed  with 
the  stoichiometric  amount  of  air.  The  resulting  hot 
combusted  gas  is  used  for  process  reheating  by  combining  it 
with  the  stream  entering  a  converter.  In  reality  the 
burning  and  stream  combining  take  place  in  a  single 
equipment  unit.  However,  from  a  calculation  standpoint,  the 
burning  alone  takes  place  in  the  in-line  burner.  The 
in-line  burner  is  then  invariably  coupled  with  an  ''adiabatic 
stream  combiner1’  where  the  two  streams  are  combined  and  a 
sulphur  shift  is  done. 

It  has  been  assumed  that  the  hot  gas  is  instantly 
quenched  by  the  large  volume  of  cooler  gas.  Therefore  the 
reversal  of  the  combustion  reactions  that  occurs  in  the 
boiler  does  not  take  place  in  the  in-line  burner. 

Combustion  Chambers 

The  comhustion  chamber  aspects  of  the  in-line  burner, 
the  muffle  furnace,  and  the  boiler  fire-tube  are  handled  in 
exactly  the  same  manner.  The  following  therefore  applies 
equally  to  all  three  types  of  combustion  chambers.  Concern 
is  centered  only  on  a  characteristic  length  and  diameter  for 
the  chambers  and  on  the  resulting  unit  volume  heat  release 
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and  the  combustion  chamber  residence  time.  A  detailed 
mechanical  design  of  the  burners  etc.  is  not  done  and 
neither  is  an  analysis  of  the  flame  stability  (or  flame 
combustion  mechanism)  done.  Such  an  analysis,  as  done  by 
Fr i strom( 39) ,  requires  more  data  than  is  presently  available 
for  the  sulphur  system. 

The  first  step  of  either  the  simulation  or  the  design 
case  is  determining  the  adiabatic  flame  temperature.  In 
practise,  if  this  temperature  is  not  sufficiently  high, 
difficulties  in  maintaining  a  stable  flame  will  be 
encoun  te  red . 

Combustion  Chamber  Design 

In  the  design  case,  a  maximum  allowable  heat  release 
(per  unit  volume)  and/or  a  minimum  residence  time  within  the 
combustion  chamber  may  be  specified  (eg.  0.6  sec.  residence 
time  and/or  50,000  BTU/hr.  cu.  ft.  heat  release).  The 
minimum  volume  required  to  satisfy  the  spec i f i ca t i on ( s )  must 
be  found.  From  a  selection  of  commercially  available  tube 
lengths  and  diameters,  a  length  and  diameter  yielding  a 
volume  at  least  as  large  as  that  required  are  found. 
Furthermore  the  length  to  diameter  ratio  is  chosen  as  close 
to  4:1  as  possible.  The  actual  residence  time  and  heat 
release  are  then  found  by  simulation. 

Combustion  Chamber  Simulation 

For  combustion  chamber  simulation,  the  effective 
chamber  length  and  diameter  must  be  specified.  Once  the 
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adiabatic  flame  temperature  is  determined,  the  unit  volume 
heat  release  is  calculated.  Stoichiometry  and  heats  of 
reaction  are  not  involved  In  this  calculation;  the  total 
heat  release  is  defined  here  to  be  the  difference  between 
the  enthalpy  of  the  reaction  products  at  the  flame 
temperature  and  at  the  inlet  temperature.  The  unit  heat 
release  is  found  by  dividing  the  total  heat  release  by  the 
combustion  chamber  volume.  The  combustion  residence  time  is 
based  on  ideal  gas  behaviour.  The  volumetric  flow  rate  of 
inlet  gas  at  the  flame  temperature  is  divided  by  the  chamber 
volume  to  yield  the  residence  time.  (See  Appendix  A.l  and 
B.  ) 

3  .  Catalytic  Sulphur  Converter 

The  primary  purpose  of  the  converter  is  to 
ca ta 1 y t i ca 1 1 y  react  hydrogen  sulphide  and  sulphur  dioxide 
(usually  in  the  ratio  2:1)  to  form  elemental  sulphur  and 
water.  it  is  also  desireable  to  convert  other  non-e 1 emen ta 1 
forms  of  sulphur  (eg.  carbonyl  sulphide  and  carbon 
disulphide)  to  elemental  sulphur,  but  this  is  not  always 
achieved  in  commercial  units.  The  converters  are  operated 
within  the  catalytic  temperature  range  of  the  reactions 
involved,  since  in  this  region  high  equilibrium  conversions 
are  possible.  The  important  design  and  operating 
cons i de ra t i ons  are: 

1.  equilibrium  conversion  for  the  primary  reaction 
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increases  with  decreasing  temperature,  so  it  is 
desireable  to  operate  the  converter  at  low  temperatures, 

2.  kinetics  decrease  with  decreasing  temperature,  so  at 

sufficiently  low  temperatures  (below  425  F), 

equilibrium  will  not  be  approached  due  to  kinetic 
1 Imi tat i ons, 

3.  condensing  sulphur  within  the  converter  will  foul  the 
catalyst  and  so  all  points  within  the  converter  must  be 
above  the  sulphur  dew  point, 

4.  sufficient  residence  time  must  be  provided  in  the 
converter  for  equilibrium  to  be  kinetically  approached. 

Sometimes  the  first  converter  is  operated  at  a  higher 
temperature  to  eliminate  the  carbonyl  sulphide.  This  is  not 
always  successful.  In  contrast  to  the  primary  reaction,  the 
conversion  of  carbonyl  sulphide  to  sulphur  should  increase 
with  temperature  from  both  kinetic  and  thermodynamic 
s tandpo i n ts . 

Converter  Design 

Since  the  relevant  kinetic  data  is  not  available,  some 
other  means  of  designing  the  converter  must  be  used. 
Industrially,  even  though  converter  bed  temperature  rises 
may  occur  entirely  within  the  first  few  inches,  the  catalyst 
beds  are  invariably  three  feet  or  more  thick.  This  is 
partly  to  compensate  for  deactivation  of  the  catalyst  with 
time. 

The  converter  design  consists  o^  determining  the 
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required  bed  thickness  and  cross-sectional  area,  using 
empirical  criteria  and  assuming  ideal  gas  behaviour.  As 
common  practise  dictates,  the  cross-sectional  area  is 
defined  by  a  specified  max i mum  all owabl e  lineal  gas  velocity 
(eg.  1  foot  per  second)  through  the  bed.  The  minimum 
converter  volume  is  set  by  a  flowrate  criterion  (eg.  3. 
pound  moles  (or  1000  standard  cubic  feet)  per  hour  per  cubic 
foot  of  catalyst  bed).  Provided  it  is  greater  than  3  feet, 
the  bed  depth  is  found  by  dividing  the  minimum  volume  by  the 
cross-sectional  area. 

Converter  Simulation 

The  lineal  gas  velocity  and  molal  flow  rate  resulting 
from  the  specified  bed  depth  and  cross-sectional  area  are 
calculated  during  converter  simulation.  For  both  simulation 
and  design  the  converter  outlet  temperature  and  equilibrium 
composition  are  found  by  an  adiabatic  temperature 
determination.  The  pressure  drop  through  the  catalyst  bed 
Is  estimated  using  an  empirical  correlation. 

Once  the  outlet  temperature  has  been  found,  the 
converter  temperature  rise  is  divided  into  several 
temperature  intervals.  At  the  end  of  each  interval  the 
sulphur  dew  point  is  calculated  to  check  that  it  is  (25  F) 
above  the  converter  bed  temperature.  This  Is  done  on  the 
basis  that  conversion  Is  proportional  to  the  temperature 
rise.  If  the  dew  point  is  too  low,  the  converter  inlet 
should  be  increased  or  sulphur  condensation  will  occur 
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within  the  catalyst  bed. 

The  equations  for  converter  simulation  and  design  are 
presented  in  Appendix  A. 3. 

4 .  Sulphur  Condenser 

The  rigorous  calculation  of  partial  sulphur 
condensation  is  very  difficult.  The  complexities  of  partial 
condensing  are  compounded  by  the  mass  transfer  limitations 
resulting  in  fog  formation.  An  attempt  has  been  made  to 
calculate  the  heat  transfer,  sulphur  condensation  and  fog 
formation  occurring  in  the  sulphur  condenser.  The  common 
practise  of  using  an  empirical,  constant  value  for  the 
overall  heat  transfer  coefficient  was  considered  inadequate. 

Ca 1 cu 1  a t i ona 1  procedures  for  designing  cooler 
condensers,  including  partial  condensation  applications, 
have  been  described  by  Ludwig(40)  among  others ( 41, 42) . 
Ludwig's  approach  treats  a  partial  condenser  with  a 
superheated  gas-vapour  inlet  as  two  distinct  units  -  a 
desuperheating  cooler  and  a  saturated  vapour  condenser. 
This  technique  is  frequently  used  and  reportedly  results  in 
overdesign.  The  formation  of  fog  is  precluded  in  the 
analysis  since  after  desuperheating,  the  gas-vapour  mixture 
is  assumed  to  always  be  at  saturated  conditions. 

An  analog  computer  method  of  designing  cooler- 
condensers  with  fog  formation  has  been  presented  by 
Coughanour  and  S tenshol t ( 43 ) .  Their  method  "generates"  fog 
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to  relieve  super-saturations  In  the  bulk  gas  if  this  should 
occur  due  to  mass  transfer  limitations.  Johnstone,  Kelley 
and  McK i n 1 ey ( 44 )  have  shown  that  bulk  super-saturation  is 
not  necessary  to  form  fog.  They  have  presented  a  means  of 
determining  when  cooler-condenser  fog  formation  is 
t heo re t i ca 1 1 y  possible  from  a  thermodynamic  standpoint  under 
given  condensation  conditions.  Their  analysis  takes  into 
account  radial  variations  of  the  gas-vapour  mixture  within 
the  tubes  but  the  results  of  the  analysis  are  qualitative 
(ie.  existence  or  absence  of  fog). 

A  combination  of  the  work  mentioned  has  been  used  for 
the  present  calculations.  The  gas-vapour  mixture  is  not 
desuperheated  in  a  preliminary  section.  Desuperheating 
occurs  as  condensation  and  cooling  proceed.  The  rate  of 
sulphur  condensation  on  the  tube  walls  is  found  to  be  mass 
transfer  limited.  If  the  bulk  gas  becomes  super-saturated, 
it  is  assumed  that  fog  is  formed  until  saturation  is 
reached;  the  supercooled  mixture  should  be  unstable  in  an 
industrial  condenser.  This  is  similar  to  the  technique 
employed  by  Coughanour  and  Stensholt. 

The  method  used  predicts  fog  formation  to  relieve 
super-saturation  but  does  not  account  for  fog  formed  at  or 
below  saturation  in  the  bulk  gas.  The  radial  variations  of 
the  gas  within  the  tubes  are  ignored.  Also  it  must  be 
assumed  that  no  entrainment  of  the  sulphur  condensate  film 
occurs  and  that  the  fog  does  not  conglomerate  with  the  film. 
No  account  is  taken  of  the  reduction  of  fog  by  exit  baffles. 
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the  tube  header  or  knock-out  pots,  if  present.  Because  of 
the  unknown  magnitude  of  these  effects,  as  well  as  the  lack 
of  reliable  estimates  of  actual  fog  formation  in  industrial 
condensers,  the  qualitative  validity  of  the  method  is 
unknown.  The  overall  heat  transfer  coefficients  calculated 
do  tend  to  agree  approximately  with  those  used  in  commercial 
design. 

Because  of  the  large  variations  of  stream  conditions 
down  the  tubes,  the  condenser  is  analyzed  in  segments 
defined  by  temperature  intervals.  The  lengths  of  the 
segments  are  unknown.  Averaged  stream  properties  are  used 
for  each  segment  and  a  sulphur  shift  is  done  at  succeeding 
segment  outlets. 

The  analysis  of  a  condenser  segment  begins  with  finding 
the  sulphur  condensate  film  temperature  for  the  segment. 
This  temperature  must  be  iteratively  guessed  to  satisfy  the 
energy  balance  on  the  segment  condensate  film.  The  energy 
transferred  from  the  bulk  gas  to  the  film  by  heat  and  mass 
transfer  must  equal  the  heat  transferred  to  the  evaporating 
steam.  This  energy  balance  is  presented  in  Appendix  A. 4 
together  with  the  other  equations  used  in  the  method. 

Once  the  condensate  temperature  satisfying  the  film 
energy  balance  is  found,  it  remains  to  determine  the  segment 
length.  If  the  number  of  tubes  and  the  tube  diameter  have 
been  defined,  the  segment  heat  and  mass  transfer  area 
becomes  a  function  of  length  alone.  The  length  must  be 
iteratively  chosen  to  satisfy  an  energy  balance  on  the  whole 
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segment.  The  heat  transfer  to  the  steam  is  calculated  for 
the  guessed  length.  This  must  agree  with  the  enthalpy 
changes  of  the  tube-side  segment  streams.  The  segment  bulk 
gas  inlet  and  outlet  temperature  are  known  as  they  define 
the  segment.  The  mass  of  sulphur  transferred  to  the 
condensate  film  is  a  function  of  the  length,  and  if  the  bulk 
gas  Is  supe r-sa t u ra ted  at  the  segment  outlet  temperature, 
additional  sulphur  is  condensed  as  fog.  The  present 
condensate  temperature  and  the  previous  segment  film 
temperature  have  been  found.  The  correct  segment  length 
results  in  no  energy  balance  error  over  the  segment. 

This  procedure  is  used  repeatedly  for  each  condenser 
segment  until  the  end  of  the  condenser  is  reached.  For  the 
design  case,  where  a  specified  maximum  allowable  mass 
velocity  through  the  tubes  dictates  the  number  of  tubes, 
termination  occurs  when  the  specified  outlet  temperature  is 
reached.  This  temperature  may  be  specified  indirectly  by 
specifying  the  desired  percentage  of  inlet  sulphur  to  be 
condensed  (as  fog  and/or  film).  Simulation  requires 
specification  of  tube  diameter  (as  for  design),  tube  length 
and  the  number  of  tubes.  The  calculations  are  discontinued 
when  the  specified  length  is  achieved. 

Because  of  the  approximate  nature  of  the  fog 
calculations,  the  module  allows  for  specification  of  the 
condenser  outlet  fog  (pounds  sulphur  fog  per  hundred  moles 
of  inert  gas).  Below  certain  levels  of  outlet  fog, 
defogging  equipment  is  assumed  to  be  present  (ie.  demister 
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pads  ora  coa 1 escer . ) 

5 .  Adiabatic  Stream  Combiner 

The  adiabatic  stream  combiner  does  not  correspond  to 
any  physical  piece  of  equipment.  It  has  been  included  to 
facilitate  process  stream  reheating  before  catalytic 
conversion.  The  module  combines  a  hot  and  a  cold  stream  and 
finds  the  resulting  outlet  temperature.  The  calculation  is 
done  adiabatical 1  y ,  with  a  sulphur  shift  being  the  only 
allowed  reaction.  All  other  reactions  are  assumed  to  be 
instantaneously  quenched  when  the  hot  gas  is  cooled  by  the 
larger  cold  gas  stream. 

The  module  has  been  programmed  to  accommodate  the 
optional  existence  of  an  information  feed-back  stream.  This 
option  may  be  used  to  control  the  adiabatic  stream  combiner 
outlet  temperature.  If  an  output  information  stream  exists, 
a  routine  is  used  to  predict  what  the  stream  split,  at  the 
source  of  the  hot  gas,  should  be  to  yield  the  desired 
combiner  outlet  temperature.  This  prediction  pertains  to 
either  the  split  between  the  boiler  and  the  in-line  burner 
or  a  boiler  bypass  split,  and  is  conveyed  to  the  appropriate 
equipment  via  the  information  stream. 

The  split  required  to  achieve  the  desired  outlet 
temperature  is  found  iteratively.  For  each  estimate,  the 
effects  on  both  the  hot  and  the  cold  stream  flowrates  are 
evaluated.  Then  the  resulting  sulphur  shift  and  outlet 
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temperature  are  found.  Iteration  using  the  secant  method 
continues  until  the  desired  temperature  results.  The 
specified  temperature  and  corresponding  composition  are  used 
as  the  combiner  outlet  rather  than  the  results  of  the 
initial  split.  This  is  so  that  equipment  calculations 
following  the  combiner  are  realistic. 

The  option  described  is  used  in  the  design  case  where 
the  combiner  outlet  (converter  inlet)  is  specified.  The 
prediction  is  done  to  reduce  the  recycle  of  process 
calculations.  On  the  second  pass  of  process  calculations, 
the  split(s)  used  (previously  predicted  on  the  first  pass) 
will  result  in  the  desired  combiner  outlet  temperature(s)  . 
For  the  simulation  case,  all  stream  splits  are  specified 
rather  than  guessed  and  so  calculation  recycle  and 
information  feed-back  are  unnecessary. 

6 .  Stream  Combiner  and/or  Divider 

The  stream  comb i ne r/ d i v i de r  Is  the  most  simple  module 
developed.  This  module  may  be  used  to  combine  two  or  more 
streams  and  find  the  resulting  temperature  and  pressure.  No 
reaction  of  any  type  occurs.  The  stream  combining  is  done 
by  a  stream  utility  routine  which  Is  also  used  for  combining 
multiple  feeds  to  other  types  of  equipment.  The  pressure  of 
the  mixture  is  equated  to  the  lowest  non-zero  feed  pressure 
and  the  combined  enthalpy  is  used  to  find  the  resultant 
temperature.  Newton's  method,  utilizing  heat  capacity,  is 
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used  to  converge  to  the  correct  temperature. 

The  inlet  stream(s)  may  be  divided  into  two  outlet 
streams.  A  stream  designation  and  split  fraction  defines 
the  allocation  to  the  outlet  streams.  The  module  will  accept 
input  of  the  stream  split  fraction  via  an  information 
stream.  If  only  a  single  output  stream  exists,  the  total 
input  is  directed  to  this  outlet  stream. 

7 .  Combustion  Air  Adder 

The  combustion  air  adder  is  only  a  computational  unit 
and  does  not  exist  as  a  physical  piece  of  sulphur  plant 
equipment.  The  module  may  be  used  at  the  point(s)  where  air 
is  added  for  the  combustion  of  acid  gas.  Given  an  acid  gas 
inlet  stream,  the  air  required  to  complete  the  specified 
combustion  is  calculated  and  the  necessary  inlet  air  stream 
is  created. 

The  fraction  of  non-el ementa 1  inlet  sulphur  to  be 
completely  oxidized  may  be  specified  (eg.  1  for  2/3  bypass 
plant  boiler  and  1/3  for  straight  through  boiler).  if  this 
fraction  is  less  than  one,  all  non-e 1 emen ta 1  sulphur  is 
assumed  to  be  in  hydrogen  sulphide  form.  Oxygen 
requirements  are  calculated  for  the  specified  oxidation  of 
carbon,  hydrogen  and  sulphur.  The  nitrogen  and  water 
(relative  humidity  specified)  accompanying  this  oxygen  are 
found  and  added  to  the  oxygen  to  form  the  inlet  air  stream. 

When  the  air  stream  has  been  defined,  it  is  combined 
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with  the  acid  gas  feed  stream  and  the  resulting  temperature 
and  pressure  are  found.  The  combined  stream  becomes  the 
equipment  outlet. 

This  module  is  intended  for  design  purposes,  where  only 
the  acid  gas  feed  is  specified.  in  the  simulation  case,  or 
where  both  the  acid  gas  and  air  streams  are  known  and 
specified,  the  two  should  be  fed  to  the  appropriate 
equipment  either  as  separate  streams  or  as  a  combined 
stream.  There  is  no  need  to  use  a  combustion  air  adder  if 
the  air  stream  is  specified. 

8 .  Tail  Gas  Incinerator 

Before  the  tail  gas  is  vented  to  atmosphere  via  the 
stack  it  is  incinerated  to  increase  the  stack  exit 
temperature  and  to  oxidize  all  forms  of  sulphur  to  sulphur 
dioxide.  The  incineration  is  achieved  by  adding  a  fuel  gas 
(usually  sweet  gas)  and  air  to  the  exiting  process  stream 
and  then  igniting  the  mixture.  Excess  air  is  generally 
introduced  to  the  incinerator  to  ensure  complete  combustion. 

Incinerator  Design 

For  the  design  case  an  incinerator  outlet  temperature 
is  specified.  A  small  fuel  gas  stream  is  given  to  indicate 
the  composition  of  the  fuel  gas.  The  ratios  of  specified  to 
stoichiometric  air  to  be  used  for  combustion  of  the  fuel  gas 
and  for  oxidation  of  the  process  gas  stream  may  be 
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specified.  The  module  iteratively  guesses  the  amount  of 
fuel  gas  (and  air)  required  to  achieve  the  desired  outlet 
conditions.  The  air  required  for  the  specified  combustion 
of  both  the  fuel  and  process  gases  is  determined  in  the  same 
way  as  done  for  the  combustion  air  adder.  The  combustion 
products  at  the  specified  outlet  temperature  form  the 
equipment  outlet  stream. 

Incinerator  Simulation 

Simulation  of  the  incinerator  involves  combining  the 
equipment  process  feed  stream  with  a  specified  air  and  fuel 
gas  stream.  The  resulting  combustion  composition  and 
temperature  are  found  by  an  iterative  adiabatic  temperature 
calculation. 

9 .  Effluent  Stack 

The  stack  inlet  stream  and  outlet  conditions  determine 
the  amount  and  concentration  of  pollutant  resulting  from  the 
sulphur  plant.  Since  pollution  is  under  government 
regulation/  the  calculations  used  by  this  module  have  been 
patterned  after  those  used  by  the  Alberta  Provincial 
Government  Department  of  Health.  Thus,  the  validity  of  the 
calculations  is  not  assured/  but  agreement  with  the  results 
of  this  government  agency  is. 

The  calculations  which  have  been  used  assume  reasonably 
level  surrounding  terrain  and  become  invalid  if  the  area 
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around  the  plant  Is  mountainous  or  very  hilly.  The  maximum 
pollutant  gas  concentration  at  ground  level  and  the  distance 
from  the  stack  at  which  this  maximum  occurs  are  predicted 
using  the  Sutton  equation  with  the  Lowery  mod i f i ca t i on ( 45 ) . 

Stack  Simulation 

The  specification  of  stack  height  and  top  stack 
diameter  are  required  for  simulation.  For  both  simulation 
and  design,,  the  ambient  air  temperature  and  stack  exit 
temperature  may  be  specified;  otherwise  they  are  assumed. 
Stack  simulation  results  in  the  maximum  sulphur  dioxide 
ground  concentration  and  the  distance  to  the  maximum  being 
predicted  for  moderately  stable  and  moderately  unstable 
atmospheric  conditions.  Simulation  corresponds  exactly  to 
the  government  calculations. 

Stack  Design 

A  st ra i ghtforward  method  of  determining  the  required 
stack  height  for  a  given  stack  inlet,  stack  velocity  and 
specified  maximum  ground  concentration  was  derived.  For 
each  of  several  specified  exit  stack  velocities,  the  module 
finds  the  required  stack  diameter  (top)  and  predicts  the 
minimum  stack  height  necessary. 

The  equations  used  for  stack  simulation  and  design, 
assuming  ideal  gas  behaviour,  are  presented  in  Appendix  A. 9. 
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V.  PROGRAM  INPUT  AND  OUTPUT 


A .  Data  Input 

A  module  has  been  developed  for  program  data  input. 
This  module  inputs  all  the  data  necessary  for  the  executive 
and  the  equipment  modules  that  have  been  included.  If  more 
equipment  modules  are  developed  and  additional  data  is 
required,  the  input  module  will  have  to  be  expanded  to 
accommodate  the  additional  input. 

The  two  primary  objectives  of  the  method  used  for  data 
input  are: 

1.  a  minimum  amount  of  data  should  be  required  and  from  the 
program  user's  standpoint,  the  data  input  should  be  as 
simple  as  poss i bl e, 

2.  error  checks  should  be  used  extensively  to  detect  input 
data  errors,  and  messages  should  accompany  these  checks 
to  assist  data  correction. 

Although  it  is  impractical  to  check  for  all  possible 
data  errors  and  inconsistencies,  an  attempt  has  been  made  to 
detect  most  obvious  errors.  If  errors  are  encountered 
during  data  input,  the  appropriate  error  messages  are 
written  and  upon  input  completion,  the  job  is  aborted.  This 
avoids  the  wasting  of  expensive  computer  time  because  of 
invalid  I nput  data . 

The  specified  data  should  be  chosen  carefully, 

especially  when  the  data  in  question  may  be  optionally 
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given.  The  mode  (simulation  or  design)  in  which  a  module 
operates  depends  upon  the  presence  or  absence  of  certain 
data.  Some  data  that  is  essential  for  a  module's 
calculations  will  be  assumed  if  it  is  absent,  but  this  is 
not  true  for  all  data.  (See  Appendix  B.)  Checking  of  data 
during  input  is  primarily  on  that  given;  few  checks  are  made 
to  see  that  all  necessary  data  is  given.  The  only  way  to 
assure  that  the  desired  calculations  are  done  is  to  give  the 
correct,  necessary  data;  if  this  is  not  done  the  results 
produced  may  be  erroneous. 

In  order  to  achieve  simplification  of  data  input,  a 
free  format  input  (FFINP)  method  has  been  implemented.  The 
main  advantage  of  this  technique  is  that  the  rigid  format 
requirements  of  Fortran  input  are  eliminated.  Thus  there  is 
no  need  for  data  coding  sheets  etc.  Also,  data  checking  and 
optional  data  input  are  more  easily  handled  using  the  FFINP 
approach.  Job  termination  during  data  input  and  ambiguous 
error  messages  which  frequently  result  from  Fortran  input 
errors  are  prevented.  This  should  allow  for  all  errors  in  a 
data  set  to  be  detected  and  corrected  with  a  single  run. 

Free  format  input  is  achieved  by  reading  a  whole  data 
card  at  once  as  an  alphameric  vector.  The  alphameric  vector 
is  then  analyzed  one  character  at  a  time  to  decode  the 
integer,  real  and  alphameric  input  data.  The  input  of  a 
given  amount  of  data  may  be  done  using  as  many  cards  as  is 
convenient  and  may  be  in  any  format  the  user  desires. 

The  characters  recognized  by  the  FFINP  routine  are 


, 
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CHARACTER 

DESCRIPTION 

blank 

-  space  separating  data  (delimiter) 

0-9 

nume  ra 1 s 

-  used  to  define  integer  or  real  data 

E 

exponent 

"  preceeds  exponent  (decimal  shift) 

-  implies  a  real  value  for  the  number 

+  /  " 

s  i  gn 

-  may  be  used  with  integer  or  real  or 

real  number's  integer  exponent 

/ 

comma 

-  optional  delimiter  separating  data 

• 

dec i ma 1 

-  implies  a  real  value  for  the  number 

* 

asterisk 

-  control  character  used  to  enclose 

data  control  messages 

*  * 

doubl e 

asterisk 

-  control  character  used  to  force 

return  to  data  analysis 

-  signifies  end  of  data  segment 

i 

quote 

-  alphameric  data  control  character 

-  used  to  enclose  alphameric  data 

C 

comment 

-  denotes  a  data  comment 

-  the  remainder  of  the  card  is  ignored 

Note:  -  no  imbedded  blanks  are  allowed  within  a  real  or 

integer  field  (a  blank  is  a  data  delimiter), 

-  integers  must  not  include  decimals  or  exponents, 

-  only  ordering  within  a  group  is  important, 

(ie.  integers  ordered  w.r.t.  integers  etc.) 

TABLE  II.  CHARACTERS  RECOGNIZED  BY  FFINP  ROUTINE 
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listed  and  described  in  Table  II.  It  has  been  found  that 
this  method  of  input  is  far  more  versatile  than  the  standard 
Fortran  input.  The  FFINP  routine  has  been  generalized  to 
achieve  versatility;  many  equivalent  ways  of  presenting  a 
given  data  set  are  acceptable.  An  example  illustrating 
several  means  of  input  of  a  given  data  set  may  be  found  in 
Appendix  B. 

The  data  required  by  the  modules  developed  has  been 
divided  into  five  independent  sections.  The  input  of  these 
sections  need  not  be  in  a  specific  order  and  all  sections 
are  not  necessarily  used.  Data  input  is  data  controlled 
rather  than  program  controlled.  Each  data  section  is 
preceeded  by  a  control  message  to  indicate  the  type  of  data 
following.  This  enables  the  input  executive  to  call  the 
appropriate  input  routine.  Control  is  usually  returned  to 
the  input  routine  several  times  within  the  section  by  the 
use  of  the  **  data  control  characters.  A  control  message 
indicating  the  end  of  the  data  section/  or  the  end  of  all 
data,  follows  the  section.  An  example  of  data  using  control 
messages  and  indicating  the  ends  of  sections  and  all  data  is 
included  in  Appendix  B.  The  control  messages  which  are 
recognized  by  the  input  program  are  as  follows: 

*  PROGRAM  CONTROL  PARAMETERS* 

♦MOLECULAR  AND  THERMODYNAMIC  DATA* 

★EQUIPMENT  PARAMETER  SPECIFICATIONS* 

★EQUIPMENT  PARAMETER  ESTIMATES* 


★STREAM  SPECIFICATIONS* 


' 
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★STREAM  ESTIMATES* 

★FLOWSHEET  DATA* 

★END* 

★END  OF  ALL  DATA* 

Note:  -  spelling  is  important  but  spacing  of  messages  is 

not  (eg.  *  e  n  d  ofall  data*)/ 
control  messages  must  be  enclosed  in  asterisks 
and  must  be  on  a  single  card. 

The  data  anticipated  by  each  section  and  the  manner  in 
which  this  data  Is  analyzed  and  stored  will  now  be 
desc  r  i  bed . 

1 .  Program  Control  Parameters 

This  section  may  be  used  to  specify  program  options  as 
distinct  from  ca 1 cu 1  a t i ona 1  options.  If  this  section  is 
skipped/  values  for  all  the  parameters  are  assumed.  The 
data  for  this  section  is  as  follows: 

a.  I D BUG (15)  ( i ntege r / opt i ona 1 )  -  an  output  control  vector. 

Its  use  is  explained  in  the  Program  Output 
section.  The  first  n  elements  may  be  specified 
where  n  is  between  1  and  15.  Each  element  must  be 
in  the  range  0-5  and  if  not  specified/  elements 
are  assumed  to  be  zero. 

b.  CRIT  ( real /Opt lonal )  -  a  calculation  convergence 

criterion.  The  smaller  it  is,  the  more  rigorous 
iterative  calculations  become.  All  convergence 
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criteria  used  to  check  relative  errors  are  scaled 
to  this  value.  CRIT  must  be  in  the  range  0-1  and 

if  not  specified,  a  value  of  l.E-4  is  assumed. 

c.  'NO  OPTIMIZATION'  ( a  1 phame r i c, opt i ona 1 )  -  if  this  input 

message  is  specified,  the  normal  calculation 
sequence  optimization  is  not  done.  Instead,  a 
calculation  sequence  identical  to  the  order  in 
which  the  equipment  is  listed  in  *EQUIPMENT 
PARAMETER  SPECIFICATIONS*  is  used. 

d.  'PRINT  SUPPRESS'  ( a  1 phame r i c , op t i ona 1 )  -  this  input 

message  results  in  a  suppression  of  all  output 
during  the  first  pass  of  recycle  loops.  The 

option  does  not  suppress  output  on  succeeding 
passes  and  has  no  effect  on  output  for 

calculations  external  to  recycle  loops. 

e.  *END* 

2 .  Molecular  and  Thermodynamic  Data 

This  data  section  defines  the  atom  types  and  molecular 
species  present  in  the  process  reaction  systems.  Atomic 
symbols,  weights  and  volumes  are  read  and  used  for 
determination  of  molecular  weights  and  volumes.  Optional 
viscosity  coefficients  and  the  thermodynamic  data  required 
for  stream  composition  calculations  are  read  for  each 
molecular  specie  included. 

The  atomic  definition  of  the  system  is: 


■ 

■ 
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a.  ISYMB(5)  (a  1 phabet i c, mandatory )  -  one  to  five  single 

letter  designations  for  atom  types  (eg.  ' H '  'S'). 

All  atom  types  present  in  the  reaction  system  must 
be  given  -  5  maximum. 

b.  ATMWT  ( real  mandatory )  -  the  atomic  weight  of  one  of 

the  above  atoms. 

c.  VATOM  ( rea 1 , mandatory )  -  the  atomic  volume  of  one  of 

the  above  atoms.  A  reference  for  atomic  volumes  is 
Kern ( 46) . 

Note:  -  b.  &  c.  are  repeated  for  each  of  the  atom  types 

1 i s  ted . 

d .  ** 

The  molecular  specie  data  is  given  as  follows: 

e.  NAME(4)  (a  1 phame r i c, mandatory )  -  chemical  formula  of 

molecular  specie,  using  atom  symbols  defined. 
Must  be  4  characters  long  and  may  use  blanks,  atom 
symbols  and  numerals  1  to  9.  (eg.  'H2S  '  '  S  8  '). 

f.  PHASE  (alphabetic)  -  designates  the  phase  of  the  above 

molecular  specie.  For  gaseous  species  ’G*  is 
optional,  but  for  liquids,  1 L  *  must  be  specified. 

g.  V ( 2)  ( rea 1 , opt i ona 1 )  -  two  coefficients  for  molecular 

viscosity.  If  specified,  they  must  be  for  the 
functional  form: 

viscosity  =  V(l)  +  V(2)*T 

where  viscosity  is  in  centipoises  and 

temperature  is  in  degrees  Fahrenheit. 

If  not  specified,  V(l)  is  assumed  as  0.015  and 


' 
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VC  2 )  as  0.00002  . 

h.  A ( 1 4 )  ( rea 1 /mandatory)  -  fourteen  thermodynamic 

function  coefficients.  The  first  seven  are  used 
for  the  temperature  range  300  to  1000  degrees 
Kelvin  and  the  last  seven  for  the  range  1000  to 
6000  degrees  Kelvin.  The  coefficients  must 

correspond  to  the  NASAC30)  functional  format  for 
the  following  thermodynamic  properties: 
hea t  capac i ty / 

2  3 

Cp/R  =  A ( 1 )  +  A ( 2 ) . T  +  A ( 3 ) . T  +  A(4).T 

4 

+  A  (  5  )  .  T 
en tha 1 py, 

2  3 

H/RT  =  A ( 1 )  +  A ( 2 ) . T/ 2  +  A(3).T  /3  +  A(4).T  /4 

4 

+  A ( 5 ) .T  / 5  +  A ( 6 ) /T 
free  energy, 

2 

F/RT  =  A ( 1 ) . ( 1- 1 n  T)  -  A(2).T/2  -  A(3).T  /6 

3  4 

-  A ( 4 ) . T  / 12  -  A ( 5 ) . T  / 2 0  +  A(6)/T  -  A ( 7 ) 


Note:  -  e./f./g./h.  and  i.  are  repeated  for  each  molecular 

spec i e . 

j.  *  END* 

A  maximum  of  20  molecular  species  may  be  included. 

A  maximum  of  5  elemental  sulphur  species  may  be  given 


and  only  one  water  specie  (vapor)  is  allowed. 
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3 .  Equipment  Parameter  Specifications 

This  data  section  is  for  the  specification  of  equipment 
parameters  such  as  tube  diameter,  length,  cross-sectional 
area,  outlet  temperature,  maximum  flow  rate  and  pressure 
drop  etc.  A  different  number  of  parameters  are  associated 
with  each  type  of  equipment.  Inefficient  storage 
utilization  would  result  because  of  this  variation,  if  the 
parameters  for  each  equipment  unit  were  stored  in  a  single 
row  of  an  equipment  parameter  matrix.  Accordingly,  all 
equipment  parameters  are  stored  in  a  single  long  vector. 
The  initialization  of  this  data  section  involves  zeroing 
this  vector  and  then  allocating  sections  of  the  vector  to 
the  various  equipment  numbers.  The  length  of  the  section 
devoted  to  an  equipment  number  depends  upon  the 
corresponding  equipment  type.  The  location  of  an 
equipment's  parameters  in  the  vector  is  stored  in  an  index. 

The  sequential  parameters  have  an  unique  meaning  for 
each  type  of  equipment.  The  parameters  for  the  types  of 
equipment  included,  and  their  meaning  are  documented  in 
Appendix  B.  Only  those  parameters  that  are  specified  need 
be  given.  Specified  parameters,  athough  read  as  positive 
real  values,  are  stored  negatively  to  indicate 
specification.  This  is  to  distinguish  specified  values  from 
estimated  or  calculated  values.  The  input  of  equipment 
parameter  specifications  is  as  follows: 

First  the  equipment  numbers  and  corresponding  types  are 


' 
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defined.  If  'NO  OPTIMIZATION'  is  specified,  the  order  of 

equipment  numbers  given  here  will  be  used  for  the 
calculation  sequence. 

The  initialization  of  this  section  is  as  follows: 

a.  INUMB  ( i nteger, manda tory )  -  the  number  by  which  a 

particular  equipment  unit  is  identified.  The 
equipment  number  must  be  in  the  range  1  -  25. 

b.  ITYPE  ( i nteger, mandatory )  -  the  type  of  the  equipment 

designated  by  the  above  equipment  number.  (eg. 
1  =  waste  heat  boiler,  9  =  stack,  etc.) 

Note:  -  a.  and  b.  are  repeated  for  each  equipment  unit  in 

the  process  flowsheet. 

c .  ** 

The  equipment  parameters  are  specified  as  follows: 

d.  IEQIP  ( i nteger, mandatory )  -  a  previously  defined 

equipment  number. 

e.  I  PAR  ( i nteger, mandatory )  -  the  parameter  number  of  the 

equipment  parameter  (of  IEQIP)  being  specified. 

f.  VALUE  ( rea 1 , mandatory )  -  the  value  of  the  equipment 

parameter  being  specified.  VALUE  is  always 
pos i t i ve . 

Note:  -  e.  and  f.  are  repeated  for  each  parameter  of 

equipment  number  IEQIP  being  specified. 

g.  ** 

Note:  -  d.,e.,f.,  and  g.  are  repeated  for  each  equipment 

number  for  which  some  parameters  are  to  be 


spec i f i ed . 


k 
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h.  *EIMD* 

Equipment  Parameter  Estimates 

The  input  of  parameter  estimates  is  identical  to  the 
last  part  of  parameter  specifications.  The  definition  of 
equipment  numbers  and  types  is  not  required  again. 
Parameter  estimates  must  always  come  sometime  after 
parameter  specifications  because  the  storage  initialization 
is  done  during  the  specification.  Parameter  estimates  are 
stored  positively  to  distinguish  them  from  specifications. 

Equipment  parameter  estimates  are  given  by  following 
steps  d./e./f.  and  g.  repeatedly  for  each  equipment  number 
for  which  there  are  estimates.  The  estimates  may  be  omitted, 
but  if  they  are  given,  must  follow  a  *EQU I PMENT  PARAMETER 
ESTIMATES*  control  message. 

4  •  Stream  Specifications  and  Estimates 

This  section  inputs  specification  of  stream 
compositions  and/or  stream  temperatures  and  pressures.  For 
the  complete  design  of  a  sulphur  plant,  only  the  feed  acid 
gas  stream  and  the  fuel  gas  (sample  composition)  to  the 
incinerator  need  to  be  specified.  For  simulation,  air 
streams  generally  should  be  specified.  If  only  segments  of 
the  plant  are  being  done,  or  individual  equipment  units, 
additional  stream  specifications  will  be  required. 

Stream  specifications  are  given  as  positive  values  but 
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are  stored  negatively  as  for  equipment  parameter 
specifications.  Equipment  inlet  or  outlet  temperatures  may 
be  specified  as  stream  parameters  rather  than  the 
correspond i ng  equipment  parameters  if  this  is  convenient. 
If  two  or  more  possible  means  of  specifing  a  variable  exist, 
both  are  checked  by  the  module.  Stream  estimates  are  stored 
as  positive  values  and  are  indistinguishable  from  calculated 
stream  values.  Stream  estimation  is  really  only  required  if 
the  stream  in  question  may  have  to  be  assumed  for  recycle 
calculations. 

The  format  for  both  stream  specifications  and  stream 
estimates  is: 

a.  ISTRM  ( i nteger, mandatory)  -  the  stream  number  for  which 

the  parameters  are  being  specified.  The  stream 
number  must  be  in  the  range  1  -  50. 

b.  I  PAR  ( i n tege r , opt i ona 1 )  -  the  number  of  the  parameter 

of  stream  ISTRM  being  specified.  The  first  20 
parameters  may  be  used  for  stream  mole  numbers 
(moles/hr.)  The  21st  always  refers  to  the  stream 
temperature  (deg.  F.)  and  the  22nd  to  stream 
pressure  (psia.)  The  order  of  the  mole  numbers 
corresponds  to  the  order  in  which  molecular 
species  are  listed  under  *MOLECULAR  AND 
THERMODYNAMIC  DATA* 

c.  VALUE  ( rea 1 ,mandatory )  -  the  value  of  the  appropriate 

mole  number,  temperature  or  pressure  which  is 
being  specified  or  estimated.  VALUE  is  always 


' 
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pos i t i ve . 

Note:  -  b.  and  c.  are  repeated  for  each  parameter  being 

specified  for  stream  ISTRM. 

d .  *  * 

Note:  -  a.,b.,c.,  and  d.  are  repeated  for  each  stream  for 

which  some  parameters  are  being  specified  or 

estimated. 

e.  *END* 

If  IPAR’s  are  not  used  for  the  parameters  of  a  stream 
being  specified,,  it  is  assumed  that  all  mole  numbers  are 
being  specified.  The  last  parameter  is  assumed  to  be 

pressure  (22),  the  second  last  temperature  (21)  and  the 
remaining  twenty  or  fewer  parameters  are  assumed  to  be  the 
mole  numbers.  If  the  option  of  omitting  IPAR's  is  used  for 
more  than  one  stream,  a  consistent  number  of  parameters  must 
be  given. 

5 .  Flowsheet  Data 

This  data  section  is  the  encoded  represen ta t i on  of  the 
process  flowsheet.  The  data  is  used  to  optimize  the  order 
of  process  calculations.  During  the  calculations  themselves, 
the  flowsheet  data  is  used  to  find  the  streams  to  and  from 
the  equipment  unit  of  interest.  The  flowsheet  data  is 
presented  as  follows: 

a.  ISTRM  ( i nteger, mandatory )  -  a  number  used  to  identify 

the  stream.  The  stream  number  must  be  in  the  range 
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1  -  50. 

b.  I  FROM  ( i nteger,manda tory )  -  the  number  of  the 

equipment  from  which  the  stream  originates.  IFROM 
must  be  in  the  range  0  -  25.  Zero  indicates  a 

plant  feed  (ignored  during  optimization). 

c.  1T0  (  i  nteger, mandatory )  -  the  number  of  the  equipment 

to  which  the  stream  is  destined.  ITO  must  be  in 
the  range  0  -  25.  Zero  indicates  a  plant  product 
or  discharge  stream  (ignored  during  optimization). 

d.  IUNKN  (  i  n tege r , opt i ona 1 )  -  the  number  of  stream 

unknowns  associated  with  the  stream.  IUNKN  is 
used  exclusively  during  optimization  and  may  be 
any  positive  number.  If  unspecified/  IUNKN  is 
assumed  to  be  one. 

e.  IFLAG  ( i nteger, opt i ona 1 )  -  a  flag  to  indicate  the  type 

of  the  stream: 

-I  =  information  stream, 

0  =  process  stream, 

1  =  service  stream. 

If  IFLAG  is  to  be  specified,  IUNKN  must  also  be 
specified.  (ie.  IFLAG  must  be  the  fifth  integer.) 
If  not  specified,  IFLAG  is  assumed  to  be  zero. 

f .  *  * 

Note:  -  a . , b . , c . , d . , e . ,  and  f.,  are  repeated  for  each 

stream  in  the  flowsheet. 

g.  *END* 

Note:  -  at  the  end  of  the  last  data  section,  irrespective 
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of  the  section  that  is  last,,  a  control  message 
*END  OF  ALL  DATA*  must  exist. 

Examples  of  data  for  each  of  the  described  data 
sections  may  be  found  in  Appendix  B.  Both  logical  examples 
(using  the  variable  symbols  defined  in  the  previous 
sections)  and  numerical  examples  are  included. 

B .  Program  Output 

The  program  output  is  completely  governed  by  the  output 
control  vector,  I DBUG,  and  the  'PRINT  SUPPRESS'  option.  By 
appropriate  definition  of  IDBUG,  the  output  of  results  can 
be  varied  from  essentially  nothing  to  several  hundred  pages. 
The  program  has  been  divided  into  sections  and  each  element 
of  I DBUG  pertains  to  a  particular  section.  The  sections  are 
as  foil ows : 

1.  waste-heat  boiler, 

2  .  in-line  burne r, 

3.  converter, 

4.  condenser, 

5.  adiabatic  stream  combiner, 

6.  stream  comb i ne r/ d i v i de r , 

7.  combustion  air  adder, 

8  .  I  nc i nerator, 

9.  stack 

Note  the  correspondence  to  equipment  types. 

10.  future. 
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11.  future, 

12.  equilibrium  compositions, 

13.  calculation  optimization, 

14.  data  input  echo  check, 

15.  executive  functions. 

For  the  first  thirteen  elements,  the  results  of 
defining  the  element  between  0  and  5  are  as  follows: 

0  -  no  output, 

1  -  thesis  format  output  of  primary  results, 

2  -  low  level  debug  output  plus  above, 

3  -  moderate  level  debug  output  plus  above, 

4  -  high  level  debug  output  plus  above, 

5  -  complete  debug  output. 

A  detailed  list  of  the  output  resulting  from  these 
options  will  not  be  given  here. 

If  the  option  'PRINT  SUPPRESS'  is  used,  the  first  9 
elements  are  effectively  defined  to  be  zero  for  the  first 
calculation  pass  of  recycle  loops. 

The  fourteenth  element  is  used  to  control  whether  a 
data  echo  check  results.  This  echo  check  consists  of  a 
formatted  output  of  Input  data,  assumed  data  and  derived 
data.  The  results  of  defining  this  IDBUG  element  are: 

0  -  no  echo  check, 

1  -  partial  echo  check, 

2  -  complete  echo  check. 

The  value  of  the  element  has  absolutely  no  bearing  on 
the  output  of  data  error  messages  for  errors  detected. 


■ 
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The  fifteenth  element  pertains  to  executive  functions. 
The  defining  of  this  element  results  in  the  following: 

0  -  no  output, 

1  -  thesis  format  summary  of  calculations  when  process 
calculations  have  been  completed. 

2-5  -  above  plus  recycle  and  other  executive  debug. 

In  particular,  if  a  high  debug  output  is  imposed  on  the 
equilibrium  calculations,  a  large  amount  of  output  will 
result.  The  debug  on  this  section  can  be  made  quite 
extensive  and  since  the  calculations  are  iterative  and  are 
used  frequently,  more  output  than  desired  may  result.  The 
output  resulting  from  the  thesis  format  level  may  be  seen  in 
the  appended  examples. 
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V  I  .  RESULTS  AND  DISCUSS  I  ON 


A.  I ndust r  i  al  Data 


It  was  stated  previously  that  one  objective  of  this 
project  was  to  compare  extensively  the  program's  numerical 
results  with  actual  industrial  data.  Unfortunatel y,  this 
objective  has  not  been  fully  achieved.  A  virtually 
unlimited  number  of  arbitrary  plants  may  be  designed  and/or 
simulated  with  the  program  and  many  cases  have  been  tried. 
However,  the  correspondence  between  the  calculated  results 
and  actual  plant  conditions  is  necessary  to  establish  how 
realistic  the  results  are.  For  such  a  comparison, 
reasonably  good  quality  plant  data  is  essential. 

Originally  it  was  intended  that  a  substantial  amount  of 
industrial  data  would  be  obtained  at  the  outset  of  the 
project,  and  that  this  data  would  provide  a  guide  for  the 
program  development.  The  data  was  not  forthcoming,  and  so 
the  development  began  without  it.  Only  towards  the 
completion  of  the  project  was  any  data  obtained.  At  this 
stage,  major  modifications  could  not  be  easily  made.  Some 
changes  were  made  and  will  be  discussed  shortly. 

The  industrial  data  acquired  was  neither  as  accurate 
nor  as  detailed  as  desired.  "Research  quality"  data  was  not 
expected,  but  at  least  a  small  amount  of  high  qual ity 
"industrial"  data  was  anticipated.  Some  data  was  found  to 
be  useless  for  comparison  purposes,  and  unfortunately  some 
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of  the  best  data  "obtained",  although  closely  matched, 
cannot  be  published  since  it  is  proprietary.  The  remaining 
data  was  not  used  because  it  was  adequate,  but  only  because 
it  was  all  that  was  available. 

Some  specific  shortcomings  of  the  plant  data  recieved 
i nc 1 uded : 

absence  of  important  stream  flows  such  as  the  plant 
a i r  feed, 

insufficient  and  inaccurate  temperature  and  pressure 
measurements  throughout  the  plant, 

obvious  data  discrepancies, 

questionably  valid  stream  compositions,  and 
variation  in  the  times  at  which  samples  and 
measurements  were  taken,  particularly  when  the  plant  was 
not  at  the  same  steady  conditions  during  the  entire 
sampl i ng  period. 

These  shortcomings  are  not  a  reflection  on  the 
operating  companies,  who  obviously  take  as  much  data  as 
required  to  successfully  operate  their  plants.  Rather  they 
are  related  to  the  data's  usefulness  for  the  desired 
comparison.  For  adequately  testing  the  program  and 
verifying  its  predictions,  very  accurate  and  detailed  data 
is  desireable.  This  quality  of  data  may  not  be  economically 
justifiable  from  an  industrial  standpoint. 

It  should  be  noted  that  obtaining  compositions  for 
sulphur  plant  streams  is  very  difficult.  The  practical 
problems  necessitate  quenching  of  the  sample  streams  and 
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removing  water  and  liquid  sulphur  before  analysis  Is  done  by 
chromatograph.  Thus  the  water  and  sulphur  contents  of  the 
streams  are  unknown.  These  difficulties  however  do  not 
eliminate  the  critical  need  for  exact  stream  compositions  if 
an  adequate  comparison  of  calculated  and  actual  plant  data 
is  to  be  done . 

The  scarcity  of  operating  data  can  be  at  least  partly 
justified  by  the  foregoing.  However/  the  fact  that  very 
little  physical  equipment  specification  data  was  accessible 
is  less  understandable.  The  latter  data  is  essential  if 
plant  simulation  (versus  design)  is  to  be  done.  For  plant 
simulation/  the  feed  streams  and  equipment  specifications 
are  used  as  input.  The  calculated  inter-equipment 
compositions/  temperatures  and  pressures  can  then  be 
compared  to  those  actually  observed.  In  the  design  case, 
since  temperatures  and  pressures  must  be  specified,  only 
compositions  can  be  checked  in  the  absence  of  equipment 
spec i f i ca  t i ons . 

In  summary,  while  the  data  obtained  from  industry  is 
sufficient  for  their  purposes,  it  was  neither  accurate  nor 
complete  enough  to  adequately  test  the  program's 
pred I ct i ons . 

B.  Introduction  of  the  Black  Box  Module 


When  some  data  was  obtained,  the  observed  operating 
temperatures  and  pressures  were  used  as  specifications  for 
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designing  corresponding  sulphur  plants.  A  problem  in 
accommodating  the  given  flowsheets  was  encountered:  bridging 
those  pieces  of  equipment  for  which  no  equipment  module  had 
been  developed  (e.g.  gas-to-gas  exchangers,  direct  fired 
heaters,  etc.).  This  problem  necessitated  completing  the 
whole  plant  design  in  sections  beginning  and  ending  at  such 
equipment  types.  The  difficulty  was  resolved  by  introducing 
a  "black  box"  module. 

Originally,  if  a  stream  S  flowed  from  equipment  node  A 
to  B,  (and  It  was  not  necessary  to  assume  stream  S  to  begin 
the  calculations),  the  executive  would  ensure  that  node  A 
was  calculated  before  node  B.  The  calculations  at  node  A 
would  define  stream  S  and  there  was  no  means  of  altering 
stream  S  before  calculations  at  node  B  were  done.  By 
introducing  a  black  box  equipment  module,  an  additional  node 
between  nodes  A  and  B  could  be  introduced  to  alter  stream  S 
before  calculations  at  node  B  were  done.  The  black  box 
module  then  was  really  a  dummy  module  to  alter  the  stream 
temperature,  pressure  and/or  composition. 

The  single  equipment  parameter  associated  with  the 
black  box  is  an  equilibrium  cutoff  temperature.  If  not 
given,  it  is  assumed  negative  (sulphur  shift  only).  The 

outlet  stream  temperature  and  pressure  are  specified  as 
★STREAM  SPECIFICATIONS*  -  if  not  specified,  they  are 
assumed  the  same  as  the  inlet  temperature  and  pressure  (i.e. 
the  black  box  has  no  effect).  By  means  of  this  technique, 
all  the  flowsheets  encountered  were  completed  with  single 
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runs  of  the  program. 

It  should  be  noted  that  the  black  box  may  be  used  to 
replace  a  module  such  as  the  waste-heat  boiler  if  the  design 
of  the  boiler  is  not  required.  This  results  in  a  substantial 
saving  of  computer  time,  particularly  if  the  boiler  is  in  a 
process  design  recycle  loop  as  it  usually  is. 

C.  Predictions  of  CS2  and  COS 


It  was  found  that  the  program  consistently  predicted 
less  COS  and  ( pa r t i cul a r 1 y )  CS2  throughout  the  plants 
designed  than  that  observed  industrially.  It  was  felt  the 
qualitative  consistency  precluded  analysis  errors  and  so  an 
explanation  was  sought. 

Most  sulphur  plants  have  some  hydrocarbon  in  the  feed 
and  usually  it  is  not  exclusively  methane.  However,  methane 
is  the  only  hydrocarbon  for  which  NASA  format  thermodynamic 
data  is  available.  (This  is  a  data  limitation  rather  than  a 
program  limitation.)  Because  of  the  limitation,  higher 
hydrocarbons  were  substituted  with  methane  equivalent  on 
either  a  carbon  or  an  enthalpy  basis.  This  introduced 
differences  between  specified  and  actual  plant  feeds,  but  it 
was  expected  the  effects  would  be  limited  to  the  adiabatic 
flame  temperatures. 

It  is  quite  conceivable,  although  not  assured,  that 
higher  hyd  rocarhons  contribute  significantly  to  the 
formation  of  COS  and  CS2.  If  this  were  the  case,  the 
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differences  between  calculated  and  actual  COS  and  CS2  stream 
concentrations  would  be  partly  explained.  However,  even  in 
plants  with  methane  the  sole  hydrocarbon  in  the  feed, 
substantial  amounts  of  CS2  and  COS  were  reported.  The 
program  invariably  predicted  significantly  smaller  amounts 
of  COS  and  negligible  amounts  of  CS2. 

The  plant  data  showed  that  COS  and  CS2  among  other 
species  are  produced  in  the  boiler  and  in  most  cases  remain 
throughout  the  rest  of  the  plant.  Presumably  then,  their 
formation  is  related  to  the  flame  reaction  in  the  boiler. 
The  calculations  done  by  the  program  involve  complete 
thermodynamic  equilibrium  at  a  theoretical  bulk  gas 
adiabatic  flame  temperature.  Equilibrium  predictions  of  COS 
and  CS2  increase  with  temperature  at  the  flame  temperatures 
and  although  it  is  impossible  to  obtain  more  than  the 
equilibrium  amount  at  this  temperature,  it  is  possible  at 
different  conditions.  It  is  quite  plausible  that  in  the 
complicated  and  drastic  temperature  and  concentration 
gradients  involved  in  the  flame  reaction,  CS2  and  COS  are 
produced  in  high  temperature  zones  and  due  to  kinetic 
limitations,  do  not  disappear  before  being  quenched  in  a 
cooler  temperature  zone.  A  kinetic  flame  analysis, 
impossible  at  this  time,  would  be  necessary  to  prove  or 
disprove  this  hypothesis.  Assuming  both  plant  analyses  and 
the  thermodynamic  data  are  correct,  this  explanation  of  the 
discrepancies  seems  the  most  plausible  at  this  time. 
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£L - Introduction  of  a  Secondary  Cutoff  Temperature 

The  flame  reaction  in  the  boiler  accounts  for 
production  of  more  than  COS  and  CS2 .  At  the  high 
temperatures  involved  and  increasing  with  temperature, 
significant  amounts  of  CO  and  H2  are  produced  along  with 
negligible  amounts  of  several  other  species.  As  the  flame 
products  are  cooled  in  the  boiler,  reaction  quenching  takes 
place.  This  has  been  accounted  for  by  the  introduction  of 
the  boiler  equilibrium  cutoff  temperature  previously 
described  in  Chapter  III.  This  cutoff  temperature  pertains 
to  all  species.  It  was  felt  that  equilibrium  was  achieved  in 
the  converters  and  that  a  single  cutoff  temperature  for  the 
boiler  would  suffice.  This  does  not  appear  to  be  the  case. 

Plant  data  shows  that  H2  and  CO  produced  in  the  boiler 
persist  through  the  converters  to  the  plant  tail  gas. 
Theoretical  equilibrium  in  the  first  converter  predicts  that 
nearly  all  of  these  species  should  disappear  to  form  H20  and 
C02.  It  would  appear  that  the  converters  principally 
catalyze  the  primary  reaction  involving  H2S  and  S02. 
Equilibrium  for  this  reaction  does  not  seem  to  be  completely 
achieved  industrially  and  equilibrium  conversions  involving 
other  reactions  often  are  not  even  approached.  For  given 
feed  conditions,  the  theoretical  converter  equilibrium 
calculations  result  in  too  high  adiabatic  reaction 
temperatures  and  a  better  than  actual  H2S/S02  ratio.  The 
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latter  results  from  the  fact  that  the  presence  of  H2  and  CO 
is  accompanied  by  the  formation  of  more  S02  than  if  they  are 
absent.  This  ratio  becomes  quite  critical  towards  the  end 
of  the  plant  -  if  the  ratio  differs  from  two,  a  reactant 
deficiency  occurs  before  complete  conversion  is  attained. 
Thus  calculated  converter  recoveries  and  overall  plant 
recoveries  tend  to  be  slightly  higher  than  those 
industrially  observed. 

A  simple  method  of  preventing  conversion  of  components 
which  are  not  actually  converted  was  devised.  The  method 
involves  "masking"  the  species  in  question  during  the 
equilibrium  calculations.  A  secondary  cutoff  temperature  is 
associated  with  this  masking.  Just  before  the  equilibrium 
calculations  begin,  a  masking  routine  is  called  (subroutine 
FAKER).  If  compositions  for  either  a  boiler  or  a  converter 
are  being  calculated,  and  if  the  temperature  is  below  the 
specified  secondary  cutoff,  the  number  of  gaseous  molecular 
species  is  temporarily  reduced  (for  the  duration  of  the  free 
energy  minimization)  by  the  number  of  species  to  be  masked. 
By  masking  the  last  four  species  (COS,  CS2,C0  and  H2)  much 
closer  agreement  with  industrial  data  was  possible.  (The 
number  of  gaseous  species  not  to  be  masked  and  the  secondary 
cutoff  temperature  were  input  from  a  remote  terminal  rather 
than  with  the  rest  of  the  input  data  on  cards.) 

Even  with  masking,  the  conversions  in  the  first 
converter  appear  to  be  consistently  high,  judging  by  the 
converter  outlet  temperatures.  Although  the  calculations 
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involved  are  done  ad i aba t i ca  1  1  y ,  there  are  actually  heat 
losses  involved.  This  would  seem  to  be  confirmed  by 
reported  converter  bed  temperatures  being  higher  than  the 
outlet  stream  temperature.  The  calculations  result  in  a 
larger  portion  of  the  conversion  being  done  in  the  first 
converter/  too  low  a  second  converter  conversion  and  a 
higher  overall  plant  conversion. 

A  further  application  of  the  masking  is  in  direct 
oxidation  plants  and  2/3  bypass  Claus  plants/  where  it  is 
found  that  the  hydrocarbons  included  in  the  converter  feeds 
are  not  combusted  as  equilibrium  predicts.  Thus,  for  plants 
with  hydrocarbons  in  the  converter  inlets,  the  hydrocarbons 
should  probably  be  included  in  those  molecular  species  that 
are  masked. 

£_.  Examples  of  Program  Use 

Five  of  the  many  plants  designed  (or  simulated)  have 
been  included  in  Appendix  E.  A  plant  description, 
flowsheet,  the  program  input  data  (card  image)  and  the 
resulting  output  for  each  example  are  included.  All  of  the 
examples  are  for  straight  through  Claus  type  plants 
however  other  types  of  plants  can  and  have  been  tried 
successfully.  Although  the  examples  included  are  for 

complete  plants,  it  is  by  no  means  necessary  to  do  a 
complete  plant.  One  or  several  independent  pieces  of 
equipment  or  segments  of  a  plant  can  also  be  easily  handled. 
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A  brief  description  of  the  examples  and  a  summary  of 
some  of  the  results  will  be  given  here.  For  more  detailed 
documentation,  the  reader  is  referred  to  Appendix  E. 

JLx.amp  1  e _ 1_.  This  example  is  a  general  design  of  a  complete 

sulphur  plant,  utilizing  both  boiler  bypass  and  inline 
burner  reheating.  Two  converters  and  three  condensers  are 
used.  A  boiler  cutoff  temperature  of  1600  Deg.  F.  was 
specified,  but  masking  was  not  used  for  this  example.  The 
output  illustrates  the  format  of  low  level  design  output 
(with  the  print  suppress  option  used)  and  of  the  calculation 
summary.  The  acid  gas  feed  is  an  industrial  feed,  but  this 
is  the  only  data  for  the  plant,  so  no  comparison  with 
industrial  data  can  be  made. 

Example  2.  This  example  is  another  general  plant  design. 
In  this  case,  no  summary  was  desired  and  the  print  suppress 
option  was  not  used.  Note  that  results  for  both  passes 
through  the  recycle  loop  are  included.  In  this  plant  reheat 
was  by  boiler  bypass  and  a  gas-to-gas  exchanger.  The  latter 
was  simulated  using  two  black  boxes.  The  feed  and  operating 
conditions  were  industrially  specified.  However,  the  only 
data  available  for  comparison  was  three  (calculated)  plant 
temperatures .  A  temperature  comparision  is  shown  in  Table 
III. 

The  analysis  for  this  example  includes  a  smaller  set  of 
molecular  species  (possibly  introducing  errors)  than  was 
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TEMPERATURE  PREVIOUSLY  TEMPERATURE  CALCULATED 
CALCULATED  (INCLUDED  IN  THIS  WORK  BY  THE 

TEMPERATURE  LOCATION  AS  PART  OF  THE  DATA)  PROGRAM  (1) 
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normally  used.  This  was  done  for  compatibility  with  the 
calculations  done  by  the  data  source. 

-Lx ample  5.  This  example  has  been  included  to  illustrate 
the  simulation  capability  of  the  program.  As  stated 
ea  r 1  i e  r /  a  1  most  no  eq  u i pmen  t  (simulation)  specifications 
were  obtained  and  therefore  total  plant  simulation  could  not 
be  done.  The  simulation  done  for  this  example  utilized  the 
results  of  a  previous  program  design  for  the  plant,  except 
for  the  condenser  specifications  which  were  given.  Both  the 
boiler  cutoff  temperature  and  the  masking  temperature  were 
set  to  1850.  Deg.  F.  COS,  CS2,  CO  and  H2  were  masked. 

The  data  for  the  plant  included  the  measured  acid  gas 
and  combustion  air  flows  and  compositions.  In  the  data  it 
was  reported  that  "there  was  serious  doubt  about  the 
reliability  of  the  air  flows".  Chromatographic  analyses  (on 
a  dry  basis)  were  taken  of  several  important  streams  over  a 
period  of  time.  The  remaining  stream  compositions  and  the 
water  and  sulphur  content  of  all  streams  were  then 
calculated  by  material  balances.  The  boiler  bypass 
flowrates  were  calculated  using  a  heat  balance.  Since  there 
appeared  to  be  a  discrepancy  in  the  results  of  these 
calculations,  the  program  was  used  to  find  the  amounts  of 
boiler  bypass  required  to  achieve  the  observed  combined 
temperatures  (done  during  the  design  phase). 

A  comparison  of  the  given  (calculated)  compositions  for 
several  streams  to  that  calculated  by  the  program  with 
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The  boiler  bypasses  used  were  537  moles/hr.  and  505  moles/hr.  rather 
than  the  reported  values  of  934  and  968  moles/hr. 
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masking  (as  in  Appendix  E.,  Example  3.),  and  without  masking 
is  presented  in  Table  IV. 

The  type  of  condensers  in  this  plant  were  not  the  type 
for  which  the  condenser  module  was  written.  However,  since 
so  little  equipment  specification  data  was  obtained,  this 
data  was  used.  The  condensers  are  horizontal  and  besides 
producing  steam,  a  large  amount  of  water  is  recirculated  and 
heated,  whereas  the  condenser  module  was  developed  for 
vertical  condensers  solely  producing  steam.  Only  the  design 
pressure  was  available  for  these  condensers  and  whether  they 
are  operated  at  design  pressure  (exactly)  is  not  known. 
This  is  of  considerable  importance  in  the  simulation,  since 
the  steam  pressure  defines  the  shell  side  steam  temperature 
and  so  has  a  large  effect  on  the  heat  transferred.  Finally, 
the  last  condenser  is  really  an  economizer  and  doesn't 
produce  steam  at  all.  It  was  simulated  as  a  vertical  steam 
producing  condenser  in  spite  of  this. 

A  comparison  of  the  condensers,  converters  and  overall 
plant  performance  for  this  example  may  be  found  in  Table  V. 

Example  4.  This  example  illustrates  the  design  of  a  plant 
with  no  output  but  the  calculation  summary.  Masking  was 
used  with  both  the  primary  (boiler)  and  secondary  (masking) 
cutoff  temperatures  set  to  2000.  Deg.  F.  No  recycling  of 
calculations  was  required  in  this  case  since  all  inline 
burner  feeds  as  well  as  the  main  boiler  feed  were  specified. 
The  inline  burner  feeds  include  fuel  gas  as  well  as  the 
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usual  acid  gas.  There  is  uncertainty  in  the  data  as  to  the 
distribution  of  the  combustion  air  between  the  burners  and 
the  boiler.  A  comparison  of  several  compositions  for  this 
example  is  to  be  found  in  Table  VI.  Table  VII  contains  a 
comparison  of  the  converter  performances. 

Example  5.  This  example  is  another  design  case  using 
masking.  Only  the  condensers  are  "turned  on"  for  the 
calculation  print-out.  A  summary  of  all  calculations  is 
included.  The  data  for  this  plant  included  the  primary 
plant  feed  and  inline  burner  feeds,  one  condenser's 
equipment  specifications  and  several  stream  compositions. 
It  is  admitted  that  the  reported  compositions  have  too  high 
a  hydrogen  content  (proved  by  independent  analyses).  The 
single  condenser  which  was  specified  (No.  2)  was  simulated. 

Table  VIII  contains  a  comparison  of  the  converters  and 
condenser  performances,  while  Table  IX  contains  a  comparison 
of  several  plant  streams  for  this  example. 

The  results  of  all  the  examples  included,  although 
interesting,  are  not  conclusive.  The  data  recieved  was  not 
exact  enough  for  a  definite  comparison  to  be  made.  It  has 
been  found  that  very  small  changes  in  something  like  the  air 
flow  to  the  plant  has  a  large  effect  on  the  overall  plant 
performance,  at  least  from  a  ca 1 cul a t i ona 1  standpoint.  The 
comparisons  done  do  show  that  reasonable  plant  design  and 
simulation  of  sulphur  plants  can  be  done  using  the  program. 
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STREAM  COMPOSITIONS  -  MOLE  PERCENT  ON  A  DRY  BASIS 
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PLANT  STREAM  COMPARISON  FOR  EXAMPLE 


VII.  CONCLUSIONS 


A  generalized  executive  program  has  been  developed  to 
supervise  process  calculations.  This  executive,, 
together  with  the  necessary  equipment  module 
subroutines,  has  been  successfully  applied  to  designing 
and  simulating  a  number  of  sulphur  recovery  plants. 

A  method  of  optimizing  the  order  of  process  calculations 
has  been  developed  by  extending  a  method  presented  in 
the  literature.  The  optimization  method  has  minimized 
(to  the  true  optimum)  the  number  of  recycle  assumptions 
necessary  to  complete  the  process  calculations  for  all 
of  the  many  flowsheets  tried. 

A  program  package  has  been  developed  for  calculating 
thermodynamic  equilibrium  compositions  involving  complex 
reaction  systems  and  large  numbers  of  molecular  species. 
A  minimization  of  free  energy  technique  presented  in  the 
literature  has  been  adapted  for  use  with  the  sulphur 
recovery  reaction  system.  This  method  has  been  found  to 
be  efficient,  versatile  and  very  stable.  The 
equilibrium  approach  seems  to  be  reasonably  suitable  for 
the  sulphur  plant  application  if  restrictions  such  as 
those  described  are  imposed. 

A  comparison  of  the  program  results  with  industrial  data 
has  been  attempted.  Reasonable,  but  not  exact  agreement 
with  the  data  has  been  achieved.  Due  to  the  uncertainty 
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of  the  data,  however,  few  definite  conclusions  regarding 
the  validity  of  the  program's  predictions  can  be  made. 
The  predictions  of  COS  and  CS2  appear  to  be  lower  than 
those  measured,  and  usually  calculated  converter  and 
overall  plant  recoveries  are  slightly  higher  than  those 
actually  obta i ned . 


11  I  I  RECOMMENDATIONS 


It  is  felt  that  the  design  of  process  equipment  should 
be  divorced,  in  future,  from  the  material  and  energy 
balance  calculations,  if  the  two  are  essentially 
independent.  The  executive  type  of  program  is  best 
suited  to  pure  material  and  energy  balance  calculations. 
A  substantial  waste  of  computing  time  results  when  the 
design  is  integrated  if  either  the  design  is  not 
required  or  the  equipment  in  question  is  within  a 
recycle  loop.  The  boiler  and  condensers  are  good 
examples  of  this.  Using  the  recommended  approach,  the 
equipment  design  that  is  required  is  done  separately, 
using  the  results  of  the  material  and  energy  balance 
calculations.  If  the  two  types  of  calculations  are 
i n te r- re  1  a  ted,  as  for  simulation,  then  they  must  be  done 
together . 

More  effort  should  be  devoted  to  closely  predicting 
stream  compositions.  As  a  prerequisite  for  this,  a 
conscientious  attempt  to  obtain  some  high  qual i ty 
industrial  data  should  be  made.  Additional 
thermodynami c  data  for  hydrocarbons  may  also  be 
beneficial.  Once  such  data  was  obtained,  the  method  of 
calculating  compositions  could  be  refined  to  reproduce 
actual  compositions.  In  this  regard,  the  introduction  of 
a  fractional  approach  to  equilibrium  might  prove  to  be 
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advantageous.  If  such  an  equilibrium  approach  fails  to 
adequately  predict  reality,  it  may  be  necessary  to  use  a 
kinetic  approach  once  sufficient  kinetic  data  becomes 
a va i 1 ab 1 e  . 

3.  Additions  to  the  program  can  be  made  to  improve  its 
versatility  for  the  sulphur  plant  application.  Two  of 
the  many  possible  additions  are: 

i.  a  module  similar  to  the  adiabatic  stream  combiner 
(or  a  modification  of  this  module)  which  would 
recycle  information  to  control  the  combiner  outlet 
temperature.  The  information  recycled  in  this  case 
would  regard  a  previous  equipment  outlet  temperature 
rather  than  a  previous  stream  split.  Such  a  module 
could  be  used  for  instance  in  a  2/3  bypass  plant  to 
set  the  boiler  outlet  temperature  so  that  when  this 
stream  was  combined  with  the  bypass,  the  desired 
first  converter  inlet  temperature  would  result. 

a  module,  similar  to  the  air  adder  module 
described,  which  would  predict  excess  or  deficient 
air  requirements  to  the  plant.  The  module  would  be 
used  for  maintaining  a  two  to  one  ratio  of  H2S  to 
S02  in  the  plant  tail  gas.  This  would  be  especially 
useful  when  H2  and  CO  are  present  throughout  the 
plant  and  air  requirements  are  accordingly  affected. 
Because  of  the  generality  of  the  executive  program,  it 
is  not  limited  to  the  sulphur  plant  application.  By 
appropriate  addition  of  equipment  modules,  the  program 
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can  be  applied  to  any  process  calculations.  For 
instance/  by  including  a  distillation  column  module  and 
perhaps  additional  modules/  the  gas  plants  normally 
associated  with  sulphur  plants  could  also  be  designed  or 
simulated.  The  scope  of  possible  applications  of  the 
executive  is  virtually  limitless. 
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APPENDIX  A 


THIS  APPENDIX  CONTAINS  A  LIST  OF  THE  PRIMARY  EQUIPMENT 
MODULE  EQUATIONS.  THE  EQUATIONS  HAVE  BEEN  DIVIDED  INTO  TEN 
SECTIONS  -  EACH  SECTION  IS  CONCLUDED  WITH  THE  NOMENCLATURE 
FOR  THAT  SECTION.  WHERE  FEASIBLE#  THE  NOMENCLATURE  USED  IS 
CONSISTENT  WITH  THE  PROGRAM  -  FORTRAN  MATHEMATICAL  NOTATION 
IS  USED  EXCEPT  FOR  CONTINUATION  OF  ONE  LINE  TO  THE  NEXT. 


THE  APPENDIX  SECTIONS  ARE  - 

A  •  1  .  WASTE  HEAT  BOILER . .  A -2 

A. 2.  IN-LINE  BURNER . . 

A. 3.  CONVERTER . . 

A  •  4  •  CONDENSER . . 

A • 5 •  ADIABATIC  STREAM  COMBINER  •  •  .  .  A-13 

A. 6.  STREAM  COMB  I NER /D I  V  I DER . . 

A  •  7  •  COMBUSTION  AIR  ADDER . . 

A. 8.  INCINERATOR  •  . . .  A-16 

A. 9.  STACK . . 

A • 1 0 •  MISCELLANEOUS  .....  .  A-19 


A-  2 


A • 1 •  WASTE  HEAT  BOILER 


1*1  TUBE  PASS  TOTAL  HEAT  LOSS  CALCULATION* 

QTOT  =  QCONV  +  QRAD 

CONVECTIVE  HEAT  LOSS  (REF*  VALDES ( 37 ) ) 

QCONV  =  UCONV  *  AREA  *  DTLM 

AREA  =  3*14159  *  TDIAM/12  *  TLONG  *  T NUMB 

DTLM  =  (  ( TFEED-T  SHL 1 )  -  ( TEMP-TSHL2 )  ) 

/  ALOG (  ( TFEED-TSHL1 )  /  (TEMP-TSHL2)  ) 

UCONV  =  1  /  (  1/HG  +  RGF  +  RM  +  RS  +  1/HS) 

HG  =  16.6  *  (  GT/3600  )#*0.8  *  CPAVG  /  TDIAM**0.2 

GT  =  144  *  TMASS  /  (  T NUMB  *  3.14159  *  TDIAM**2  /  4  ) 

RADIATION  HEAT  LOSS  (REF.  HOTTEL ( 38 ) ) 

QRAD  *  (  EPSP  +  1  )  /  2  *  0.1713E-8  *  AREA 

*  (  EMIS  *  TMENR**4  -  ABSOR  *  TWALR**4  ) 

EMIS  =  FCN (  PL  )  /  TMENR 

ABSOR  =  FCN (  PL  *  TWALR/TMENR  )  /  TMENR 
*  (  TMENR/ TWALR  )**0.5 

PL  *  (  PRESS/14.7  )  *  BEAML  *  RPPRS 

BE AML  =  TDIAM/12  *  0.9 

RPPRS  =  SUM (  YAVG(I)  *  RADCT(I)  )  /  Y TOT 

1.2  TUBE  PASS  PRESSURE  DROP  (REF.  VALDES(37)) 

DELPC  =  A1  *  (  FF/PHI  +  A2  )  *  (  GT/1.E5  )**2 
A 1  =  5  *  TLONG  /  (  TDIAM  *  RHO  ) 

A2  =  0.0416  *  TDIAM  /  TLONG 
FF  =  0.079  /  RE**0 • 2 5 


RE  *  0.0344  *  TDIAM  #  GT  /  AVGMU 


' 


A-  3 


PHI  = 

(  AVGMU 

/ 

WALMU  )  #*0. 14 

RHO  = 

TMASS  * 

PRESS  /  (  10.73 

*  YTOT  * 

TMENR 

AVGMU 

=  SUM  ( 

YM 

*  VIS(TMEAN) 

)  / 

SUM  ( 

YM  ) 

(REF. 

PERRY ( 47 ) ) 

WALMU 

=  SUM  ( 

YM 

*  V I S ( T WALL  ) 

)  / 

SUM  ( 

YM  ) 

V  I S ( TEMPERATURE )  *  RMU(I)  +  SMU(I)  *  TEMPERATURE 
YM ( I )  =  YAVG(I)  *  WTMOL (  I  )  **0 • 5 

A. 1,3  BOILER  BYPASS  STREAM  CALCULATION 


BYPASS 

NO. 

3  = 

BSTREAM  # 

BYPASS  RATIO  NO 

BYPASS 

NO. 

2  = 

(BSTREAM  - 

BYPASS  NO.  3) 

*  BYPASS 

RATIO  NO.  2 

BYPASS 

NO. 

1  *= 

(BSTREAM  - 

(BYPASSES  NO. 

*  BYPASS 

RATIO  NO.  1 

NOMENCLATURE  FOR  SECTION  A.l 


ABSOR 

AREA 

AVGMU 

A2 

beaml 

BSTREAM 

CPAVG 

DELPC 

DTLM 

EMIS 

EPSP 

FF 

GT 

HG 

HS 

PL 

PRESS 

OCONV 

QRAD 

QTOT 


GASEOUS  ABSORPTIVITY  AT  TUBE  WALL  TEMPERATURE 
TUBE  PASS  HEAT  TRANSFER  AREA  (SQ.FT) 

GAS  VISCOSITY  AT  MEAN  TUBE  PASS  TEMP.  (CP) 
PRESSURE  DROP  END  EFFECT  TERM 
AVERAGE  RADIATING  BEAM  LENGTH  (FT) 

TOTAL  BOILER  STREAM  EXIT  SECOND  LAST  PASS 
AVERAGE  STREAM  HEAT  CAPACITY  ( BTU/ LB. DEG . F ) 
CALCULATED  TUBE  PASS  PRESSURE  DROP  (PSI) 

LOG  MEAN  TEMPERATURE  DIFFERENCE  FOR  PASS  (DEG.F) 
GASEOUS  EMISSIVITY  AT  MEAN  PASS  TEMPERATURE 
(=  0.8)  TUBE  WALL  EMISSIVITY 
FANNING  FRICTION  FACTOR 

MASS  VELOCITY  THROUGH  TUBE  PASS  ( LB/SQ.FT .HR ) 
TUBE  SIDE  CONVECTIVE  HEAT  TRANSFER  COEFFICIENT 
FOR  PASS  (BTU/HR.SO.FT .DEG.F) 

(=  2000.)  STEAM  SIDE  HEAT  TRANSFER  COEFFICIENT 
PRODUCT  OF  BEAM  LENGTH  AND  RADIATING  GAS  PARTIAL 
PRESSURE  (USED  TO  GET  EMIS  AND  ABSOR)  (FT. ATM.) 
INLET  TUBE  PASS  PRESSURE  (PSIA) 

TUBE  PASS  HEAT  LOSS  FROM  CONVECTION  ( BTU/HR ) 

TUBE  PASS  HEAT  LOSS  FROM  RADIATION  (BTU/HR) 

TOTAL  HEAT  LOSS  FROM  ONE  BOILER  PASS  (BTU/HR) 
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RADCT 

RE 

RGF 

RHO 

RM 

RMU 

RPPRS 

RS 

SMU 

TDIAM 

TEMP 


TFEED 

TLONG 

TMASS 

TMEAN 

TMENR 

TNUMB 

TSHL1 

TSHL2 

TWALL 

TWALR 

UCONV 

VIS 

WALMU 

WTMOL 

YAVG 

YTOT 


RADIATING  COMPONENT  FLAG  VECTOR  -  VECTOR  ELEMENTS 
ARE  1  FOR  RADIATING  COMPONENT*  0  FOR  NONRADIATING 
REYNOLD’S  NUMBER 

<*  0*005)  GAS  SIDE  FOULING  RESISTANCE 
AVERAGED  STREAM  DENSITY  (LB/CU.FT.) 

(=  0.0001)  TUBE  WALL  RESISTANCE  TO  HEAT  TRANSFER 
VECTOR  CONTAINING  FIRST  OF  TWO  VISCOSITY 
COEFFICIENTS  FOR  EACH  MOLECULAR  SPECIE 
RADIATING  GAS  PARTIAL  PRESSURE  (ATM.) 

(=  0.0005)  STEAM  SIDE  FOULING  RESISTANCE 
VECTOR  CONTAINING  SECOND  OF  TWO  VISCOSITY 
COEFFICIENTS  FOR  EACH  MOLECULAR  SPECIE 
PASS  TUBE  DIAMETER  (INCHES) 

PASS  OUTLET  TEMPERATURE  ( DEG.F ) 

(KNOWN  FOR  DESIGN  CASE*  ITERATIVELY  ESTIMATED  FOR 
SIMULATION  CASE). 

PASS  INLET  TEMPERATURE  (DEG.F) 

PASS  TUBE  LENGTH  (FT) 

TOTAL  TUBE  PASS  STREAM  MASS  (LB) 

AVERAGE  STREAM  TEMPERATURE  (DEG.F) 

MEAN  TUBE  PASS  TEMPERATURE  (DEG.R) 

NUMBER  OF  TUBES  IN  THE  BOILER  PASS 
STEAM  TEMPERATURE  AT  PASS  INLET  (DEG.F) 

STEAM  TEMPERATURE  AT  PASS  OUTLET  (DEG.F) 

TUBE  WALL  TEMPERATURE  («  SULPHUR  DEW  PT.)  (DEG.F) 
TUBE  WALL  TEMPERATURE  (DEG.R) 

OVERALL  CONVECTIVE  HEAT  TRANSFER  COEFFICIENT 
FOR  TUBE  PASS  ( BTU/HR . SQ . FT . DEG . F ) 

SPECIE  VISCOSITY  (FUNCTION  OF  TEMPERATURE)  (CP) 
GAS  VISCOSITY  AT  TUBE  WALL  TEMP.  (CP) 

VECTOR  OF  SPECIE  MOLECULAR  WEIGHTS 

VECTOR  OF  MOLE  NUMBERS  OF  AVERAGE  PASS  STREAM 

TOTAL  MOLES  IN  AVERAGE  PASS  STREAM 


« 


A-  5 


A. 2.  IN-LINE  BURNER 


A. 2.1  COMBUSTION  CHAMBER  SIMULATION 

HRELS  =  THRLS  /  VOLUM 

RTIME  *  VOLUM  *  3600  *  PRESS  /  10.73  /  (TEMP  ♦  460) 

/  YTOT 

VOLUM  *  3.14159  *  (  DlAM/12  )**2  *  LNGTH  /  4 

THRLS  *  ENTHALPY (  PRODUCTS  AT  FLAME  TEMPERATURE  ) 

-  ENTHALPY (  PRODUCTS  AT  INLET  TEMPERATURE  ) 

A.2.2  COMBUSTION  CHAMBER  DESIGN 

VOLUM 1  a  RTIME  *  10.73  *  (TEMP+460)  *  YTOT  /  3600 
/  PRESS 

VOLUM2  *  THRLS  /  HRELS 
VOLUM  *  MAX (  VOLUM 1  *  VOLUM2  ) 

LNGTH  =  (  VOLUM  *  64  /  3.14159  )**(l/3) 

DIAM  =  12  *  <  VOLUM  *  4  /  (  3.14159  *  LNGTH  )  )**0.5 


NOMENCLATURE  FOR  SECTION  A. 2 


DIAM 

HRELS 

LNGTH 

PRESS 

RTIME 

TEMP 

THRLS 

VOLUM 

VOLUM 1 

VOLUM2 


REACTION  CHAMBER  DIAMETER  (INCHES) 

UNIT  VOLUME  HEAT  RELEASE  ( BTU/HR .CU. FT ) 
REACTION  CHAMBER  LENGTH  (FT) 

REACTION  CHAMBER  PRESSURE  (PSIA) 

REACTION  CHAMBER  RESIDENCE  TIME  (SEC) 

REACTION  ADIABATIC  FLAME  TEMPERATURE  (DEG.F) 
TOTAL  REACTION  HEAT  RELEASE  (BTU/HR.) 

REACTION  CHAMBER  VOLUME  (CU.FT) 

REACTION  CHAMBER  VOLUME  REQUIRED  FOR  SPECIFIED 
FLAME  REACTION  RESIDENCE  TIME  (CU.FT) 

REACTION  CHAMBER  VOLUME  REQUIRED  FOR  SPECIFIED 
MAXIMUM  UNIT  VOLUME  HEAT  RELEASE  (CU.FT) 


A. 3 


CONVERTER 


A. 3.1  CONVERTER  BED  SIMULATION 
VOLUM  *  XAREA  *  DEPTH 
FLOWR  «  YTOT  /  VOLUM 
VELMX  =  VGAS  /  XAREA  /  3600 
VG AS  =  10.73  *  T  *  YTOT  /  P 
P  *  PRESS  -  0.2 
T  *  TFEED  +  25.  +  460. 

A. 3. 2  CONVERTER  BED  DESIGN 

VOLUM  *  YTOT  /  FLOWR 
XAREA  =  VGAS  /  VELMX  /  3600 
DEPTH  1  *=  VOLUM  /  XAREA 
DEPTH  =  MAX (  DEPTH  1 »  3.0  ) 

A. 3. 3  CONVERTER  BED  PRESSURE  DROP 

DEL  TP  =  6.32  *  DEPTH  *  GT**2  /  PD  I  AM 
GT  =  TMASS  /  3600  /  XAREA 

A. 3.4  CONVERTER  DEW  POINT  CHECKING 
T I  NCR  =  (  TEMP  -  TFEED  )  /  5 
P I  NCR  =  DEL  TP  /  5 
Y I  NCR  =  (  YCOMP  -  YFEED  )  /  5 
TDIFF  =  (  TEMP*  -  TDEW  ) 


T  DEW  =  FCN (  YCOMP*  ) 


NOMENCLATURE  FOR  SECTION  A. 3 


DELTP 

DEPTH 

DEPTH1 

FLOWR 

GT 

P 

PD  I  AM 
P  I  NCR 
PRESS 
T 

TDEW 

TDIFF 

TEMP 

TEMP  ' 

TFEED 

T  I  NCR 

TMASS 

VELMX 

VGAS 

VOLUM 

XAREA 

YCOMP 

YCOMP • 

YFEED 

Y  I  NCR 

YTOT 


PRESSURE  DROP  ACROSS  CONVERTER  BED  (PSI) 

CONVERTER  BED  DEPTH  (FT) 

BED  DEPTH  REQ’D  BY  SPECIFIED  MAX.  MOLAL  FLOWRATE 
MOLAL  FLOWRATE  THRU  BED  ( MOLES /HR • CU. F T • C AT AL YST ) 
MASS  VELOCITY  THROUGH  BED  ( LB/SQ • F T • SEC ) 

PRESSURE  AT  WHICH  GAS  VOLUME  IS  EVALUATED  (PSIA) 
AVERAGE  CATALYST  PARTICLE  DIAMETER  (INCHES) 

DEW  CHECK  INTERVAL  PRESSURE  LOSS  (PSIA) 

CONVERTER  INLET  PRESSURE  (PSIA) 

TEMP.  AT  WHICH  GAS  VOL.  IS  EVALUATED  (DEG.R) 

DEW  CHECK  INTERVAL  OUTLET  DEW  POINT  TEMP.  (DEG.F) 
DIFFERENCE  BETWEEN  BED  AND  DEW  POINT  TEMP.*S 
CONVERTER  OUTLET  TEMPERATURE  (DEG.F) 

(DETERMINED  BY  ITERATIVE  ADIABATIC  CALCULATION) 
DEW  CHECK  INTERVAL  OUTLET  TEMPERATURE  (DEG.F) 
CONVERTER  INLET  TEMPERATURE  (DEG.F) 

DEW  POINT  CHECK  TEMPERATURE  INTERVAL  (DEG.F) 

TOTAL  MASS  OF  STREAM  PASSING  THROUGH  BED  (LB/HR) 
SUPERFICIAL  VELOCITY  THROUGH  BED  (FT/SEC) 

VOLUME  OF  GAS  PASSING  THROUGH  BED  (CU.FT/HR) 
CONVERTER  BED  VOLUME  (CU.FT) 

CONVERTER  BED  CROSS-SECTIONAL  AREA  (SQ.FT) 
CONVERTER  OUTLET  EQUILIBRIUM  COMPOSITION 
DEW  CHECK  INTERVAL  OUTLET  COMP.  (SHIFT  DONE) 
CONVERTER  INLET  COMPOSITION  VECTOR  (MOLES/HR) 
VECTOR  OF  COMPOSITION  CHANGES  FOR  DEW  CHECK 
TOTAL  MOLES  IN  STREAM  PASSING  THROUGH  BED 


:  .  s  v  -  c 
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A. 4.  CONDENSER 


A. 4.1  CONDENSER  SIMULATION 

XAREA  *  NTUBE  *  3.14159  *  DIAM**2  /  (4  *  144  ) 

GMAX  =  TMASS  /  (  3600  *  XAREA  ) 

T I  NCR  *  25. 

A.4.2  CONDENSER  DESIGN 

XAREA  =  TMASS  /  (  3600  *  GMAX  ) 

NTUBE  *  XAREA  *  4  *  144  /  (  3.14159  *  DIAM**2  )  +  0.5 
T I  NCR  *  (  TFEED*  -  TOUT  )  /  10 

A. 4. 3  SEGMENT  CONDENSATE  HEAT  BALANCE  EQUATION 
(REF.  COUGHANOWR  AND  STENSHOLT ( 43 ) ) 

QA1  =  OA2  (MUST  BE  BALANCED  BY  ITERATIVELY 

GUESSING  TCOND ) 

OA1  a  HG  *  (  TMEAN  -  TCOND  )  *  AC 
+  SUL  I Q  *  DELTA  #  AMWTS 

HG  =  0.023  *  RE** ( -0 • 2 )  *  CPAVG  *  GAVG  /  PR**(2/3) 

RE  =  GAVG  *  DIAM/12  /  VIS 
VIS  =  AVGMU  *  2.42 

GAVG  =>  TMASS  /  (  NTUBE  *  3.14  *  DIAM**2  /  4  )  *  144 

PR  =  CPAVG  *  VIS  /  RK 

RK  *  VIS  *  (  CPAVG  +  2.48  /  AVMWT  ) 

(REF.  PERRY (47  )  ) 

AC  a  A  /  (  1  -  EXP (  -A  )  ) 

A  *  SUL  I Q  *  AMWTS  *  CPAVG  /  HG 

SUL  I Q  =  RK G  *  (  PPSUL  -  VPSUL  ) 


RKG 


RKGFC  /  PGF 
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RKGFC  =  HG  *  PR**  (  2 / 3 )  /  (  CPAVG  *  AVMWT  *  SC** ( 2 / 3 )  ) 

PGF  =  ( PPSUL-VPSUL ) /ALOG ( ( PRESS-VPSUL ) / ( PRESS-PPSUL ) ) 
SC  *  VIS  /  (  RHO  *  DV  ) 

DV  *  0.0166  *  TK32  *  (  1/AMWTS  +  1/AMWTI  )**0.5 
/  (  VSULF**  < 1 / 3 )  +  V  I  NRT** ( 1 /3 )  ) **2 

/  PRESS  /  14.7 

TK32  =  (  (  (  TFEED  +  TEMP  )  /  2  +  460  )  /  1.8  )**1,5 

OA2  =  UCTOS  *  (  TCOND  -  T STEM  ) 

UCTOS  *  1  /  (  1/HCOND  +  RSCWF  ) 

HCOND  =  327.8  *  REL I Q** ( -1 /3 ) 

(REF.  BENNETT  AND  MYERS(48)) 

RELIQ  »  TAU  *  0.1653 

TAU  =  SFILM  *  32  /  ( NTUBE  *  3.14159  *  DIAM/12  ) 

ERROR  =  OA1  -  QA2 

A. 4. 4  CONDENSER  SEGMENT  LENGTH  CALCULATION 

(SEGMENT  HEAT  TRANSFER  AREA  ITERATIVELY  CHOSEN  TO 
SATISFY  A  TOTAL  HEAT  BALANCE  ON  THE  SEGMENT) 

QLOS1  =  AREA  *  OA 1 

SMOLS  =  SUL  I Q  *  AREA 

SLIO  =  SMOLS  *  AMWTS  /  32 

SFOG1  =  (  SMINR  -  SMOLS  )  *  AMWTS  /  32 

SFOG2  =  0. 

SFOG  =  MAX (  SFOG1.  SFOG2  ) 

SMINR  =  SULIN  -  SS AT 

SSAT  =  VPMAX  *  Y I NRT  /  (  PRESS  -  VPMAX  ) 

QLOSS  *  ENTHALPY (  SFOG  +  SLIQ  +  GAS  ) (SEGMENT  INLET) 

-  ENTHALPY (  SFOG  +  SLIO  +  GAS  ) (SEGMENT  OUTLET) 

ERROR  1  «  QLOS1  -  QLOSS 


SGMTL  =  AREA  /  (  NTUBE  *  3.14159  *  DIAM/12  ) 


- 
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A • 4 • 5  CONDENSER  SEGMENT  PRESSURE  DROP 
DP  =»  DPPFT  *  SGMTL 

DPPET  =  5  *  GAVG **2  *  FF  /  (  DIAM  *  1.E10  *  RHO 

*  (  AVGMU/WALMU  )**0.14  ) 

FF  =  0.079  /  R  E**0 • 2  5 
RE  *  GAVG  *  D I  AM/ 1 2  /  VIS 

A.4.6  PORTION  OF  LAST  SEGMENT  USED 
FOR  DESIGN* 

RATIO  =  1  +  (  TEMP  *  -  TOUT  )  /  T I  NCR 
FOR  SIMULATION. 

RATIO  =  1  -  (  TLONG  ♦  SGMTL  -  TLGTH  )  /  SGMTL 

A. 4. 7  TOTAL  CONDENSER  CONDENSATION  AND  RECOVERY 
CRCOV  =  (  SLIO  +  SFOG  )  *  32  /  TMSIN  *  100 
ARCOV  *  SLIQ  *  32  /  TMSIN  *  100 

A. 4. 8  RESULTING  OVERALL  CONDENSER  HEAT  TRANSFER  COEFFICIENT 
(NOT  USED  DIRECTLY  IN  THE  ACTUAL  CALCULATIONS) 

UOVRL  =  QTOTL  /  (  ( DELT1  -  DEL T 2 ) /ALOG (  DELT1/DELT2  ) 

*  TAREA  ) 

TAREA  =  NTUBE  *  3.14159  *  DIAM/12  *  TLONG 
DELT1  =  TFEED '  -  T  ST  EM 
DELT2  =  TEMP*  -  TSTEM 
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NOMENCLATURE  FOR  SECTION  A. 4 


AC 

AMWT  I 

AMWTS 

ARCOV 

AREA 

AVGMU 

AVMWT 

CPAVG 

CRCOV 

DELTA 

DI  AM 

DP 

DPPFT 

DV 

FF 

GAVG 

GMAX 

HCOND 

-  ACKERMANN  COEFFICIENT 

“  AVERAGE  MOLECULAR  WEIGHT  OF  INERT  GAS 

-  AVERAGE  MOLECULAR  WEIGHT  OF  SULPHUR  IN  SEGMENT 
“  PERCENT  RECOVERY  OF  INLET  ELEMENTAL  SULPHUR 

-  SEGMENT  HEAT  TRANSFER  AREA  (SQ.FT) 

-  GASEOUS  VISCOSITY  FOR  SEGMENT  (CP) 

-  AVERAGE  MOLECULAR  WEIGHT  FOR  TOTAL  SEGMENT  STREAM 
~  SEGMENT  AVERAGE  SPECIFIC  HEAT  ( BTU/LB . DEG . F ) 

-  PERCENT  CONDENSATION  OF  INLET  ELEMENTAL  SULPHUR 
“  SULPHUR  LATENT  HEAT  OF  VAPORIZATION  (BTU/LB) 

“  CONDENSER  TUBE  DIAMETER  (INCHES) 

-  PRESSURE  DROP  ACROSS  WHOLE  CONDENSER  ( PS  I A ) 

“  INCREMENTAL  PRESSURE  DROP  THRU  SEGMENT  (PSI/FT) 

-  DIFFUSIVITY  OF  S.  VAPOR  IN  INERT  GAS  ( LB/HR. SQ. FT ) 

-  FANNING  FRICTION  FACTOR 

-  SEGMENT  AVERAGE  MASS  VELOCITY  ( L B /HR . SQ. F T  .  ) 

-  MAX.  CONDENSER  MASS  VELOCITY  ( LB /SEC . SQ . F T  .  ) 

“  HEAT  TRANSFER  COEFFICIENT  FOR  CONDENSATE  FILM 
(BTU/HR. SQ.FT. DEG. F ) 

HG 

-  GAS  SIDE  HEAT  TRANSFER  COEFFICIENT  FOR  SEGMENT 
(BTU/HR. SQ.FT. DEG. F) 

NTUBE 

PPSUL 

PR 

PRESS 

QA1 

QA  2 

QLOS1 

QLOSS 

QTOTL 

RATIO 

RE 

RELIO 

RHO 

RK 

RKG 

-  NUMBER  OF  CONDENSER  TUBES 

-  PARTIAL  PRESSURE  OF  SULPHUR  IN  SEGMENT  (PSIA) 

-  SEGMENT  PRANDL  NUMBER 

-  TOTAL  PRESSURE  IN  SEGMENT  (PSIA) 

-  HEAT  TRANSFER  RATE  FROM  GAS  TO  FILM  ( BTU/ HR . SQ. FT ) 

-  HEAT  TRAN.  RATE  FROM  FILM  TO  STEAM  ( BTU/HR . SQ. FT ) 

-  SEG.  HEAT  LOSS  BY  HEAT  AND  MASS  TRANSFER  (BTU/HR) 

-  SEG.  HEAT  LOSS  BY  SEG.  HEAT  BALANCE  (BTU/HR) 

-  TOTAL  CONDENSER  DUTY  (BTU/HR) 

-  FRACTION  OF  LAST  CONDENSER  SEGMENT  USED. 

-  SEGMENT  REYNOLD  NUMBER 

-  RENOLD  NUMBER  IN  SULPHUR  CONDENSATE  FILM 

-  SEGMENT  GAS  DENSITY  (LB/CU.FT.) 

-  THERMAL  CONDUCTIVITY  OF  SEG.  GAS  ( BTU/HR . FT . DEG. F ) 

-  CONVECTIVE  MASS  TRANSFER  COEFFICIENT  FOR  SEGMENT 

( LB • MOL E.S. /HR. SQ.FT. PSIA) 

RSCWF 

(=  0.006)  HEAT  TRANSFER  RESISTANCE  FROM  STEAM 

SIDE  FOULING.  CONDENSATE  FOULING  AND  METAL  WALL 

SC 

SF  ILM 

SFOG 

SGMTL 

SLIQ 

SMINR 

-  SCHMIDT  NUMBER  FOR  SEGMENT 

“  TOTAL  ACCUMULATED  SULPHUR  COND.  FILM  (MOLES/HR) 

-  MOLES  SULPHUR  FOG  FORMED  IN  SEGMENT 

-  CALCULATED  LENGTH  OF  CONDENSER  SEGMENT  (FT) 

-  MOLES  SULPHUR  LIQUID  (TO  FILM)  IN  SEGMENT 

-  MINIMUM  SULPHUR  REMOVAL  TO  PREVENT  SUPER-COOLING 

AT  SEGMENT  OUTLET  ( LB . MOLE . S/HR ) 

SMOLS 

-  MOLES  SULPHUR  TO  FILM  IN  SEGMENT  ( LB. MOLE  S/HR ) 

SS AT  -  MOLES  SULPHUR  (AT  SATURATION)  AT  SEG.  OUTLET  TEMP. 
SUL  I  0  -  SEGMENT  MASS  TRANSFER  RATE  ( LB . MOL E . S/ HR . SQ . F T ) 


■\\Z *  3JCM  • 
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tarea 
TCOND 
TEMP 
TEMP  ♦ 
TFEED 
TFEED ' 
T  I  NCR 
TLGTH 

tlong 

tmass 

TMEAN 
TMSI  N 
TOUT 
TSTEM 
UCTOS 

UOVRL 

VINRT 

vis 

VPMAX 
VP  SUL 
VSULF 
XAREA 
YINRT 


TOTAL  CONDENSER  HEAT  TRANSFER  AREA  (SQ.FT) 

SULPHUR  CONDENSATE  FILM  TEMP.  FOR  SEGMENT  (DEG.F) 
CONDENSER  SEGMENT  OUTLET  TEMPERATURE  (DEG.F) 
CONDENSER  GAS  OUTLET  TEMPERATURE  (DEG.F) 

CONDENSER  SEGMENT  INLET  TEMPERATURE  (DEG.F) 

CONDENSER  FEED  TEMPERATURE  (DEG.F) 

TEMP.  INCREMENT  DEFINING  A  CONDENSER  SEGMENT  (DEG.F) 
SPECIFIED  CONDENSER  TUBE  LENGTH  (FT) 

TOTAL  ACCUMULATED  CONDENSER  SEGMENT  LENGTHS  (FT) 
TOTAL  MASS  OF  STREAM  THRU  CONDENSER  TUBES  (LB/HR) 
MEAN  BULK  GAS  TEMPERATURE  FOR  SEGMENT  (DEG.F) 

TOTAL  MASS  OF  INLET  ELEMENTAL  SULPHUR  (LB/HR) 
SPECIFIED  CONDENSER  OUTLET  TEMPERATURE  (DEG.F) 

SHELL  SIDE  STEAM  TEMPERATURE  (SATURATED)  (DEG.F) 
OVERALL  H.T.  COEFFICIENT  FOR  CONDENSATE  TO  STEAM 
(BTU/HR. SQ.FT. DEG.F) 

CONDENSER  OVERALL  HEAT  TRANSFER  COEFFICIENT 
(BTU/HR. SQ.FT. DEG. F ) 

AVE.  MOLECULAR  VOLUME  OF  INERT  GAS  IN  SEGMENT 
GASEOUS  VISCOSITY  FOR  SEGMENT  ( LB/FT  ®HR. ) 

SULPHUR  VAPOR  PRESS.  AT  SEG.  OUTLET  TEMP.  (PSIA) 
VAPOR  PRESS.  OF  SULPHUR  AT  SEG.  COND.  TEMP.  (PSIA) 
AVERAGE  MOLECULAR  VOLUME  OF  S.  VAPOR  IN  SEGMENT 
TOTAL  TUBE  CROSS-SECTIONAL  AREA  FOR  FLOW  (SQ.FT.) 
TOTAL  MOLES  OF  INERT  GAS  IN  SEGMENT  (MOLES/HR) 
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A. 5.  ADIABATIC  STREAM  COMBINER 


A. 5.1  ITERATIVE  DETERMINATION  OF  A  NEW  STREAM  SPLIT  IF  AN 
INFORMATION  RECYCLE  STREAM  EXISTS 

YCOMP(I)  =  YFED2 (  I  )  *  (  1  -  EPS)  /  (  1  -  EPS T R  ) 

+  YFED1  (  I  )  *  EPS  /  EPS TR 

ENTHR  =  ENTHl*EPS/EPSTR  +  ENTH2* ( 1-EPS ) / ( 1-EPSTR ) 

T CALC  =  FCN (  ENTHR  f  YCOMP  ‘  ) 

ERROR  =  TDSIR  -  TCALC 


NOMENCLATURE  FOR  SECTION  A. 5 


ENTHR 

ENTH1 

ENTH2 

EPS 

EPSTR 
TCALC 
TDSIR 
YCOMP 
YCOMP • 

YFED1 

YFED2 


TOTAL  INLET  ENTHALPY  FOR  ESTIMATED  STREAM  SPLIT 
ENTHALPY  OF  GIVEN  HOT  STREAM 
ENTHALPY  OF  GIVEN  COLD  STREAM 

ESTIMATED  VALUE  OF  PRECEEDIN6  EQUIPMENT  STREAM 
SPLIT  WHICH  WILL  YIELD  DESIRED  OUTLET  TEMPERATURE 
GIVEN  (INITIAL  OR  PREVIOUS)  STREAM  SPLIT 
TEMP.  RESULTING  FROM  ESTIMATED  INLET  STREAMS 
DESIRED  COMBINER  OUTLET  TEMPERATURE  ( DEG • F ) 

VECTOR  OF  MOLE  NUMBERS  TO  EQUILIBRIUM  CALCULATION 
COMPOSITION  (SULPHUR  SHIFT)  RESULTING  FROM 
ESTIMATED  INLET  STREAMS 

VECTOR  OF  MOLE  NUMBERS  FOR  HOT  INLET  STREAM 
VECTOR  OF  MOLE  NUMBERS  FOR  COLD  INLET  STREAM 


- 
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A. 6#  STREAM  COMB  I NER /D I  V  I DER 


A • 6 • 1  ITERATIVE  DETERMINATION  OF  RESULTING  TEMPERATURE  FOR 
STREAM  COMBINING  -  NEWTON'S  METHOD  IS  USED.  (THIS 
PROCEDURE  IS  USED  FOR  ALL  EQUIPMENT  WITH  MULTIPLE 
FEEDS ) 

TNEW  =  TOLD  -  ERROR  /  DHDT 
DHDT  ^  CP  #  YTOT 
ERROR  =  ENTH  -  ENTHR 
RELER  =  ERROR  /  ENTHR 


NOMENCLATURE  FOR  SECTION  A. 6 


CP 

DHDT 

ENTH 

ENTHR 

RELER 

TOLD 

TNEW 

YTOT 


STREAM  HEAT  CAPACITY  (FIRST  DERIVATIVE  OF  MOLAL 
ENTHALPT  W.R.T.  TEMPERATURE)  ( B TU/LB . MOL E . DEG . F > 

DERIVATIVE  OF  TOTAL  ENTHALPY  W.R.T.  TEMPERATURE 
(BTU/DEG.F ) 

STREAM  ENTHALPY  CORRESPONDING  TO  TOLD  (BTU/HR) 
ACTUAL  (REFERENCE)  STREAM  ENTHALPY  (BTU/HR) 
RELATIVE  ERROR  -  MUST  BECOME  LESS  THAN  SOME 
CRITERION  BEFORE  ITERATION  IS  DISCONTINUED 
LAST  ESTIMATE  OF  CORRECT  TEMPERATURE 
NEW  ESTIMATE  OF  CORRECT  TEMPERATURE 
TOTAL  MOLES  IN  STREAM 


■ 


. 
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A  •  7  •  COMBUSTION  AIR  ADDER 


A. 7.1  CALCULATION  OF  AIR  STREAM  TO  BE  ADDED 

YA I R ( N02 )  =  SPEC  1  *  0.5  *  (  SUMS(l)  *  2  *  SPEC2 

+  SUMS ( 3 )  #  2  ♦  (  SUMS ( A )  -  2  *  SUMS ( 1 ) 
*  (  1  -  SPEC2  )  )  *  0.5  -  SUMS  (  2)  ) 

Y A  I R ( NN 2 )  =  Y  A  I R ( N02 )  *  79  /  21 

VPH20 '  =  VPH20  *  14.7  *  RELHY  /  100 

YA  I R (  I  DH20 )  *  VPH20 '  *  (  YAIRIN02)  +  Y  A  I R ( NN2 )  ) 

/  (  PAIR  -  VPH20 '  ) 


NOMENCLATURE  FOR  SECTION  A.7 


PAIR 
RELHY 
SPEC  1 
SPEC2 
SUMS ( 1 ) 

SUMS ( 2 ) 

SUMS! 3) 

SUMS (4) 
YAIRINN2)  - 
YA I R ( N02 )  - 

YA  I  R (  IDH20)- 
VPH20 
VPH20' 


TOTAL  PRESSURE  OF  AIR  STREAM  (PSIA) 

RELATIVE  HUMIDITY  OF  AIR  STREAM  (PERCENT) 

EXCESS  OR  DEFICIENT  AIR  COEFFICIENT 
FRACTION  OF  SULPHUR  (AS  H2S )  TO  BE  BURNED 
TOTAL  ATOMS  OF  SULPHUR  IN  ACID  GAS  FEED 
TOTAL  ATOMS  OF  OXYGEN  IN  ACID  GAS  FEED 
TOTAL  ATOMS  OF  CARBON  IN  ACID  GAS  STREAM 
TOTAL  ATOMS  OF  HYDROGEN  IN  ACID  GAS  FEED 
AIR  STREAM  NITROGEN  MOLE  NUMBER  (MOLES/HR) 

AIR  STREAM  OXYGEN  MOLE  NUMBER  (MOLES/HR) 

AIR  STREAM  WATER  MOLE  NUMBER  (MOLES/HR) 

VAPOR  PRESS.  OF  WATER  AT  AIR  TEMPERATURE  (PSIA) 
PARTIAL  PRESSURE  OF  WATER  IN  AIR  STREAM  (PSIA) 
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A. 8.  INCINERATOR 


A. 8.1  CALCULATION  OF  AIR  AND  FUEL  AND  AIR  STREAMS 

(ITERATIVE  CALCULATION  OF  FUEL  FOR  DESIGN  CASE) 

YCOMP(I)  *  YFEED(I)  +  YGAS(I)  *  FACTR 

ENTHR  =  ENTH1  +  ENTH2  *  FACTR 

ENTHN  =  ENTHALPY  (EQUIL.  COMP.  AT  DESIRED  TEMP.) 
ERROR  *  ENTHN  -  ENTHR 


NOMENCLATURE  FOR  SECTION  A. 8 


ENTHN 


ENTHR 

ENTH1 

ENTH2 

FACTR 

YCOMP 

YFEED 

YGAS 


ENTHALPY  OF  EQUILIBRIUM  COMPOSITION  (AT  DESIRED 
INCINERATOR  OUTLET  TEMPERATURE)  RESULTING  FROM 
AIR  AND  FUEL  GAS  STREAM  ESTIMATE. 

TOTAL  INLET  ENTHALPY  (FOR  PRESENT  AIR  AND  GAS 
INLET  ESTIMATE) • 

ENTHALPY  OF  INLET  PROCESS  GAS  (+  AIR) 

ENTHALPY  OF  INLET  FUEL  GAS  SAMPLE  ( +A I R  ) 

ESTIMATE  OF  FUEL  SAMPLE  MULTIPLIER  REQUIRED 
VECTOR  OF  MOLE  NUMBERS  TO  EQUILIBRIUM  CALCULATION 
VECTOR  OF  MOLE  NUMBERS  OF  INLET  PROCESS  GAS  AND 
AIR  (TO  BURN  PROCESS  GAS  +  SPECIFIED  EXCESS) 
VECTOR  OF  MOLE  NUMBERS  OF  FUEL  GAS  (SAMPLE  COMP.) 
AND  AIR  (TO  BURN  SAMPLE  +  SPECIFIED  EXCESS) 
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A. 9.  STACK 


A. 9,1  CALCULATION  OF  MAX.  GROUND  CONCENTRATION  (SIMULATION) 

CM AX  -  PROD  /  ESH**2 

ESH  =  HSTAK  +  0.75  *  (  VRISE  +  TRISE  ) 

A. 9. 2  CALCULATION  OF  REQUIRED  STACK  HEIGHT  (DESIGN) 

HSTAK  =  ESH  -  (  VRISE  +  TRISE  )  *  0.75 

ESH  *  (  PROD  /  CMAX  )*#0.5 

PROD  =  2.35E5  *  QS02  *  AMU(WVEL) 

VELOCITY  RISE  CALCULATION 

VRISE  *  A. 77  /  (  1  +  0.43  *  WVEL/VSTAK  )  *  SQQV  /  WVEL 

SQQV  *  (  QTOT  *  VSTAK  )**0.5 

VSTAK  =  4  *  QTOT  /  (  3.14159  *  DIAM#*2  ) 

TEMPERATURE  RISE  CALCULATION 

TRISE  =  6.37  *  32*17  *  QTOT  *  DELT  *  Z 
/  (  TRANK  *  WVEL  **3  ) 

DELT  =  TSTAK  -  TEQIV 

TEQIV  =  TMASS  /  Y TOT  /  29  *  TAMBI 

QTOT  =  YTOT  *  FACTR 

QS02  *  YFEEDUS02)  *  FACTR 

FACTR  =  10.73  *  (  TEQIV  +  460  )  /  (  PRESS  *  3600  ) 
TRANK  =  TEQIV  +  460 
CALCULATION  OF  FACTOR  Z 

MODERATELY  STABLE  ATMOSPHERIC  CONDITIONS 
Z  *  ALOG (  J**2  )  +  2  /  J  -  2 

J  =  WVEL**2  /  SQQV  *  (  SQR  “  0.28  *  VSTAK  *  TRANK 
/  (  32.17  *  DELT  )  )  +  1 


■ 
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SQR  =  GFACT(WVEL)  *  TRANK**0.5 

MODERATELY  UNSTABLE  ATMOSPHERIC  CONDITIONS 

XB  =  DISTX  *  WVEL  /  (  3.57  *  SQQV  )  (ITERATIVE) 

XB  20.  Z  =  (  ALOGI  XB  J/2.303  -  0.3553  )  /  0.2286 

XB  20.  Z  -  XB  /  (  2.172  +  0.1359  *  XB  ) 

DISTX  =  10  *  ESH 

ESH  »  HSTAK  +  0.75  *  (  VRISE  +  TRISE  ) 

WVMIN  =  (32.17*DELT/TRANK*(QTOT/VSTAK)**0.5)**0.5 

A. 9. 3  DISTANCE  TO  MAXIMUM  GROUND  CONCENTRATION 
DIST  =  20  *  ESH  (STABLE) 

DIST  =  10  *  ESH  (UNSTABLE) 


NOMENCLATURE  FOR  SECTION  A. 9 


AMU 

CM  AX 

DIST 

ESH 

GF  ACT 

HSTAK 

I  S02 

PRESS 

QS02 

QTOT 

TAMBI 

TEQ  I  V 

TMASS 

TRISE 

TSTAK 

VSTAK 

VRISE 

WVEL 

WVMIN 

YFEED 

YTOT 


A  FUNCTION  OF  WIND  VELOCITY 
MAXIMUM  GROUND  CONCENTRATION  (PPM) 

DISTANCE  TO  MAXIMUM  GROUND  CONCENTRATION  (FT) 
EFFECTIVE  STACK  HEIGHT  (FT) 

A  FUNCTION  OF  WIND  VELOCITY 
ACTUAL  STACK  HEIGHT  (FT) 

SPECIE  NUMBER  OF  S02  COMPONENT 
STACK  INLET  STREAM  PRESSURE  (PSIA) 

VOLUMETRIC  FLOWRATE  OF  S02  (CU.FT./SEC) 

TOTAL  VOLUME  OF  INLET  GAS  (CU.FT./SEC) 

AMBIENT  AIR  TEMPERATURE  (DEG.F) 

TEMPERATURE  AT  WHICH  STACK  GAS  DENSITY  EQUALS  THAT 
OF  THE  AMBIENT  AIR  (DEG.F) 

TOTAL  MASS  OF  STACK  INLET  STREAM  (LB/HR) 

STACK  GAS  TEMPERATURE  RISE  DUE  TO  BOUYANC Y  (FT) 
STACK  GAS  TEMPERATURE  EXIT  STACK  (DEG.F) 

VELOCITY  OF  GAS  OUT  OF  STACK  (FT/SEC) 

STACK  GAS  VELOCITY  RISE  DUE  TO  MOMENTUM  (FT) 

WIND  VELOCITY  (FT/SEC) 

MINIMUM  WIND  VELOCITY  FOR  WHICH  UNSTABLE 
CALCULATIONS  ARE  VALID  (FT/SEC) 

VECTOR  OF  STACK  INLET  STREAM  MOLE  NUMBERS 
TOTAL  MOLES  IN  STACK  INLET  STREAM 


. 
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A. 10.  MISCELLANEOUS 


A. 10.1  DEW  POINT  CALCULATION 
WATER 

YFRAC  *  Y ( IDH20)  /  YTOT 

SULPHUR  (  TEMP  BELOW  700  F  ) 

YFRAC  =  STOT  /  YTOT 

SULPHUR  (  TEMP  ABOVE  700  F  ) 

(CONVERT  ALL  SULPHUR  TO  S8  FORM) 

YFRAC  =  SMASS  /  (  32  *  8  )  /  YTOT 

NEWTON'S  METHOD  IS  USED  TO  CONVERGE  TO  THE  DEW  POINT 
TEMPERATURE  SUCH  THAT  - 

PARTP  =  PCALC(TF) 

PARTP  =  PRESS  /  14.7  *  YFRAC 

A. 10.2  VAPOR  PRESSURE  CALCULATION 

WATER  (REF.  KEENAN  AND  KEYS(49)) 

PCALC  =  218.167  *  EXP(  -2.303  *  (  V  *  U  /  W  )  ) 

V  =  X  /  TK 

U  =  3.3463130  +  4.14113E-2  *  X  ♦  7.515484E-9  *  X**3 
+  6.56444E-11  *  X**4 

W  ■  1  +  1 . 379448 E  — 2  *  X 

X  =  647.27  -  TK 

TK  =  I  TF  +  460  )  /  1.8 

SULPHUR  (REF.  TEXAS  GULF  SULPHUR  DA T A ( 50 )  ) 

FOR  TK  LESS  THAN  600  DEG.  K. 

PCALC  =  EXP (  (  14.7  -  0.0062238  *  TK  -  5405.1  /  TK  ) 

*  2.303  )  /  760. 


' 
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FOR  TK  GREATER  THAN  600  DEG.  K » 

PCALC  =  EXP  (  (7.43287  -  3268. 2/TK)  *  2.303)  /  760. 

A. 10.3  STEAM  PRODUCTION 

PRODM  *  PROD  /  WTMOL ( I DH20 ) 

PROD  =  DUTY  /  CDELH 
CDELH  ■  DELHV  +  COREC 

DELHV  «  EXP(7.0095  +  0.3542  *  ALOG(l  -  TSTEM/705.4 )  ) 

COREC  =  TSTEM  -  TSIN 


NOMENCLATURE  FOR  SECTION  A. 10 


CDELH 

COREC 

DELHV 

DUTY 

IDH20 

PARTP 

PCALC 

PRESS 

PROD 

PRODM 

SMASS 

STOT 

TF 

TK 

TSIN 

TSTEM 

YFRAC 

YTOT 

Y ( IDH20 ) 
WTMOL 


CORRECTED  LATENT  HEAT  OF  VAPORIZATION  (H20.BTU/LB) 
LATENT  HEAT  CORRECTION  (LB/HR) 

LATENT  HEAT  OF  VAPORIZATION  OF  WATER  (BTU/LB) 
EQUIPMENT  DUTY  OR  TOTAL  HEAT  LOAD  ( BTU/HR ) 

WATER  VAPOR  SPECIE 

PARTIAL  PRESSURE  OF  WATER  OR  SULPHUR  (ATM.) 
CALCULATED  VAPOR  PRESSURE  AT  GUESSED  TEMP.  (ATM.) 
TOTAL  PRESSURE  OF  STREAM  (PSIA) 

STEAM  PRODUCTION  ( LB ® H20/HR . ) 

STEAM  PRODUCTION  ( LB ® MOLES  H20/HR.) 

TOTAL  POUNDS  OF  SULPHUR  IN  STREAM 
TOTAL  MOLES  OF  SULPHUR  VAPOR  IN  STREAM 
ESTIMATED  DEW  POINT  TEMPERATURE  ( DEG®  F ) 

TEMPERATURE  (DEG.K) 

FEED-WATER  INLET  TEMPERATURE  (DEG.F) 

SATURATION  TEMPERATURE  OF  STEAM 
MOLE  FRACTION  OF  WATER  OR  SULPHUR 
TOTAL  MOLES  IN  STREAM  OF  INTEREST 
TOTAL  MOLES  OF  WATER  VAPOR  IN  STREAM 
VECTOR  OF  SPECIE  MOLECULAR  WEIGHTS 
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APPENDIX  B 


THIS 
ALSO#  THE 
EQUIPMENT 


APPENDIX  CONTAINS  SEVERAL  EXAMPLE  DATA  SETS  AND 
DEFINITIONS  OF  THE  EQUIPMENT  PARAMETERS  FOR  THE 
MODULES  DEVELOPED. 


EXAMPLE  DATA  SETS 


B • 1 .  EXAMPLE  OF  SEVERAL  EQUIVALENT  DATA  SETS  .  .  .  •  .  B-3 
B.2.  EXAMPLE  DATA  SET  USING  DATA  CONTROL  MESSAGES  .  .  •  B-3 
B.3.  MOLECULAR  AND  THERMODYNAMIC  DATA  .........  6-4 

B.4.  EQUIPMENT  PARAMETER  SPECIFICATIONS  AND  ESTIMATES  .  B-5 


B.3.  STREAM  SPECIFICATIONS  AND  ESTIMATES  .......  B-6 

B.6.  FLOWSHEET  DATA  ..................  B-7 


B.7.  PROGRAM  CONTROL  PARAMETERS  ............  B-8 

B.8.  EXAMPLE  DATA  ILLUSTRATING  INFORMATION  RECYCLE  .  .  B-9 

B.9.  NOTES  ON  INFORMATION  STREAMS  AND  RECYCLE  ....  B-10 

EQUIPMENT  PARAMETER  DEFINITIONS 


LEGEND  FOR  TABLES  B-l  TO  B-9  .............  B-ll 

TABLE  B-l  WASTE  HEAT  BOILER  EQUIPMENT  PARAMETERS  .  .  B-12 
TABLE  B-2  IN-LINE  BURNER  EQUIPMENT  PARAMETERS  ....  B-14 


TABLE  B-3 


CONVERTER  EQUIPMENT  PARAMETERS 


B-15 


«•  • 
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TABLE  B-4  CONDENSER  EQUIPMENT  PARAMETERS  .  .  B-16 

TABLE  B-5  ADIABATIC  STREAM  COMBINER  EQUIPMENT 

PARAMETERS  0-17 

TABLE  B-6  STREAM  COMBINER/DIVIDER  EQUIPMENT 

PARAMETERS  . . 

TABLE  B-7  COMBUSTION  AIR  ADDER  EQUIPMENT  PARAMETERS  •  B-19 

TABLE  B-8  TAIL  GAS  INCINERATOR  EQUIPMENT  PARAMETERS  •  B-20 

TABLE  B-9  EFFLUENT  STACK  EQUIPMENT  PARAMETERS  .  •  .  .  B-21 
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B • 1 •  EXAMPLE  OF  SEVERAL  EQUIVALENT  DATA  SETS 


DESIRED  INPUT 
INTEGERS  - 
REALS  - 
ALPHAMERICS  - 


1*  -17*  1950 

-6.*  157200.*  62.317 

A*  B*  C 


1*  -17*  1950*  -6.*  157200. *62.317  'ABC'  ** 


1  -6.  -17  'A'  •  B  •  1950  157200.  62*317  'C'  ** 


'A'  1*  -6.  C  FIRST  CARD 

'B'  -17  1.572E5  C  SECOND  CARD 

*  C  *  *  1950  .62317E2  C  THIRD  CARD 

**  C  FOURTH  CARD 


'AS  1  *  -6*  •  B  #  -17  + 1 5 72E+2 

•C'  1950  62317E-3  ** 


1 *-17*1950 

-6.  157200.0  62*3170 
•  A  *  •  B  •  •  • C •  ** 


C  USE  AS  MANY  CARDS 

C  AS  YOU  WANT  AND 

C  USE  COMMENTS. 


B.2.  EXAMPLE  DATA  SET  USING  DATA  CONTROL  MESSAGES 


*EX AMPLE  SECTION* 


1*2*3**  C 

1 .  * 6  *  * 7  **  C 

•EXAMPLE'  3  **  C 

55. *54. .53.0  '52'  C 

1  2  3  4  5  6  C 

7  8  9  10  11  ** 

*END* 


*NEXT  SECTION*  ** 


C  SECTION  BEGINS. 

CONTROL  RETURNED  TO  CALLING 
ROUTINE  AT  END  OF  EACH  DATA 
SEGMENT  -  END  OF  SEGMENT 
INDICATED  BY  ** 

SEGMENTS  MAY  VARY  IN  LENGTH. 

C  SECTION  ENDS 


1*2.3  ** 

789  *END*  C  *END*  IMPLIES  ** 

*L AST  SECTION*  1.2*3  *END  OF  ALL  DATA* 


■ 
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B.3.  MOLECULAR  AND  THERMODYNAMIC  DATA 


LOGICAL  EXAMPLE 


♦MOLECULAR  AND  THERMODYNAMIC  DATA* 

ISYMB *ATMWT *VATOM*  I SYMB ♦ ATMWT * VA TOM  .... 

•  •••  ISYMBtATMWT »VATOM  ** 
NAME *PHASE *V( 1 )  *V( 2  )  *  A (  1  )  ...  A(14)  ** 

NAME. PHASE. V( 1 ) *V( 2  )  *A( 1 )  ...  A(14)  ** 


♦  END* 


NUMERICAL  EXAMPLES 


♦MOLECULAR  AND  THERMODYNAMIC  DATA* 

»H‘  1.  3.7  C  ATOM  SYMBOL*  WEIGHT*  VOLUME 


*  c  ♦ 

12. 

14 

.8 

'0  • 

'S1 

32. 

25 

.  6 

•N* 

'  H20 

• 

0. 

008 

0 

.00002 1 

1.  2 

.  3 

• 

4. 

5. 

6 

. 

7 

.  C 

8.  9. 

10 

• 

11 

.  12 

• 

13 

•  14. 

*  S02 

•  • 

G  1 

i 

C 

PHASE 

1  .  2  . 

3. 

4  . 

5.  6 

7. 

8.  9. 

•s 

L  1 

i 

1  •  *2  • 

*  3  . 

*  4  .  * 

5  •  *  6 

• 

* 

7. 

•  8  •  *  9  • 

1.  * 

2.  » 

3, 

i  *4 

•  *5. 

• 

6 

.  * 

7.  *  8 

♦END* 


16.  7.4 

14.  15.6  ** 

C  VISCOSITY  GIVEN. 
FICTIONAL  THERMODYNAMIC 
**  C  COEFFICIENTS 

GIVEN. 

10.  11.  12*  13.  14.  ** 

C  LIQUID  SULPHUR 
10. *11. *12. *13. *14.**'S2  ' 

*9. *10.*11.  *12.  *13.  *14. * 


♦MOLECULAR  AND  THERMODYNAMIC  DATA* 

' HCOSN  '  C  ATOM  TYPES 

1.  3.7*  12.  14.8*  16.  7.4*  32.  25.6*  14.  15.6 

C  WEIGHT  *VOLUME*WEIGHT  . . 


**  ' H20  G* 

+  4. 15650  16E  +  00 
-4. 5930044E-09 
-6.8616246E-01 
2*67075  32E  +  00 
+1. 1790853E-10 
+6. 8838391E+00 
*  * 


0.008*0.000021* 

-1 .7244334E-03  +5. 6982316E-06 

+1 .4233654E-12  -3.0288770E+04 

C  LOW  TEMPERATURE 

+3.0317115E-03  -8 . 53 5 1 570E-0 7 

-6. 1973568E-15  -2 . 98 88994E+04 

C  HIGH  TEMPERATURE 


♦END* 
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B.4.  EQUIPMENT  PARAMETER  SPECIFICATIONS  AND  ESTIMATES 


LOGICAL  EXAMPLES 


♦EQUIPMENT  PARAMETER 

SPECIFICATIONS* 

INUMB  * 

I  TYPE  *  INUMB* 

ITYPE*  . 

INUMB . I  TYPE 

*# 

IEQIP* 

IPAR  .VALUE ♦ 

I  PAR  *  VALUE  * 

.... 

IPAR. VALUE 

*# 

IEQIP* 

IPAR  .VALUE . 

IPAR  .VALUE. 

.... 

I  PAR .VALUE 

#* 

♦END* 

♦EQUIPMENT  PARAMETER 

ESTIMATES* 

IEQIP. 

IPAR  .VALUE  * 

I  PAR .VALUE . 

.... 

IPAR. VALUE 

#* 

IEQIP. 

IPAR  .VALUE  * 

I  PAR .VALUE . 

.... 

IPAR. VALUE 

** 

♦  END* 

NUMERICAL  EXAMPLES 


♦EQUIPMENT  PARAMETER  SPECIFICATIONS* 

17  1*  34*  63  ** 

C  NO.  17  =  WASTE  HEAT  BOILER*  NO.  3 
CONVERTER 

EQUIP.  NO.  3  (CONDENSER  SIMULATION 
CONDENSER  NUMBER  ■  1 
TUBE  LENGTH  *  20.  FEET 
TUBE  DIAMETER  *  1.5  INCHES 


6  = 

C 

C 

c 

c 


C  NO. 

3 

1  1. 

2  20. 

3  1.5 

4  1000.  C 
50.  C 
12.  C 
10.**  C 

WASTE 


CONDENSER 


SPECS.  ) 


5 
7 

10 

c 

17 


1  3 


.  • 


1000  TUBES 

STEAM  PRESSURE  *  50  PSIA. 
SULPHUR  OUTLET  STREAM  =  NO.  12 
MAXIMUM  OUTLET  FOG  «  10  LB/100 
HEAT  BOILER  DESIGN  SPECS. 

>  1. *  10  900.  *  11  600. *  13  0.5* 


MOLES  GAS 


14  •  5  * 


15  0.6*  19 

CONVERTER  DESIGN 
11.  61.  7 


0.2*  20 
SPECS. 
2.97  8 


** 


0.25 


*END* 


C 

♦EQUIPMENT  PARAMETER  ESTIMATES* 

17  C  ESTIMATES  FOR  WASTE  HEAT  BOILER 

26  1990.  C  ESTIMATE  OF  ADIABATIC  FLAME  TEMP. 

5  250.  *END*  C  ESTIMATE  OF  3RD  PASS  TUBE  NUMBER 


♦EQUIPMENT  PARAMETER  SPECIFICATIONS* 

C  SINGLE  STACK  SIMULATION  -  COMPLETE  JOB. 
1  9**  1  1  70.  2  1200.  3  250.  4  3.5  *END* 
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B • 5 •  STREAM  SPECIFICATIONS  AND  ESTIMATES 


LOGICAL  EXAMPLE 


♦STREAM  SPECIFICATIONS*  (OR  *STRE AM  ESTIMATES*  ) 


ISTRM.  I  PAR  .VALUE  *  IPAR*VALUE  ....  IPAR. VALUE  ** 

*****  OR  ***** 

ISTRM  VALUE .VALUE .VALUE .VALUE  . VALUE  ** 

ISTRM*  IPAR. VALUE.  IPAR. VALUE  •  •••  IPAR. VALUE  ** 

*****  OR  ***** 

ISTRM  VALUE  .VALUE  .VALUE  .VALUE  . VALUE  ** 


*END* 

NUMERICAL  EXAMPLE 


♦STREAM  SPECIFICATIONS* 

C  MOLE  NUMBERS  NOT  SPECIFIED  ARE  ASSUMED  ZERO. 

1  1  1.5677  2  104.2917  5  47.  6  290.0417 

21  70.  22  14.7  **  C  STREAM  NUMBER  1 

C  1ST.  2ND.  5  TH .  AND  6TH  MOLE  NUMBERS  SPECIFIED 

C  -  ALSO  TEMPERATURE  AND  PRESSURE. 

2  22  14.7  21  70.0  ** 

C  STREAM  NO.  2  -  TEMP.  AND  PRESS.  SPECS  ONLY. 

14  0.  105.25632  0.  556.95703  246.87311 

92.57214  46.83867  0.  8E-5  0.08824  0.39 

0.41704  66E-5  0.73039  .13123  4.92082 

314.2  14.15  ** 

C  FOR  STREAM  14*  ALL  16  MOLE  NUMBERS  SPECIFIED. 

C  ALSO  TEMP.  AND  PRESS.  (LAST  TWO). 

C  NOTE  -  FOR  THIS  JOB.  18  REAL  VALUES  MUST  BE  GIVEN 
C  FOR  ALL  STREAMS  IF  IPAR  IS  NOT  USED. 

C  ALSO  -  VALUES  MUST  BE  IN  CORRECT  ORDER. 

9  5  865.4  4  1847.05  3  35.14  2  345.85  7  37. 

21  1200.  22  12.2  **  C  NOTE  ARBITRARY  ORDER  OF 

C  PARAMETER  VALUES  IF  IPAR'S  ARE  USED. 

*END*  *STREAM  ESTIMATES* 

40  1  .1  **  C  INFORMATION  STREAM  NO.  40  ESTIMATE. 

C  (INITIAL  STREAM  SPLIT  ESTIMATE) 

C  IPAR  SHOULD  ALWAYS  BE  USED  FOR  INFORMATION 

C  STREAM  SPECIFICATIONS  OR  ESTIMATES. 

17  1  20.  21  100.  22  12.2  *END* 

c  sample  composition,  temp,  and  press,  for 

C  INCINERATOR  FUEL  GAS  STREAM  (STREAM  NO.  17) 


FLOWSHEET  DATA 


B.6. 


LOGICAL  EXAMPLE 


♦FLOWSHEET  DATA# 

ISTRM» I  FROM  * ITO* I UNKN ♦ IF LAG  ## 
ISTRM.  IFROM. ITO* IUNKN* IFLAG  ** 


NUMERICAL  EXAMPLES 


♦FLOWSHEET  DATA* 

1  0  1**  2  0  1**  312  A**  4  2  3**  5  2  4#*  6  4  5** 

7  3  6**  857  2**  9  6  5**  10  6  0**  11  7  0**  12  0  8** 
13  0  8**  14  8  9**  15  0  3  0  1**  16  3  1  1  1** 

40  3  1  + 1  -1**  *END* 


♦FLOWSHEET  DATA* 

1  0  1**  C 

2  0  1**  C 

312  10**  C 
413  9**  C 
36  3  1  1  -1**  C 
523  10**  C 

6  3  4*#  C 

7  5  6**  C 

18  4  5**  C 

3  6  7**  C 

10  2  0**  C 

11  5  0**  C 

9705  0**  C 

27  0  1  1  1** 

28  1  0  2  1**  C 
*END* 


ACID  GAS  TO  BOILER 
AIR  TO  BOILER 

BOILER  DISCHARGE  TO  FIRST  CONDENSER 
BOILER  HOT  GAS  BYPASS  TO  REHEATER 
BOILER  SPLIT  INFORMATION  FEED-BACK 
CONDENSER  TO  REHEATER 
REHEATER  TO  CONVERTER 
CONDENSER  NO*  2  TO  INCINERATOR 
CONVERTER  TO  CONDENSER 
INCINERATOR  TO  STACK 
SULPHUR  PRODUCT  FROM  COND.  NO*  1 
SULPHUR  PROD.  FROM  COND.  NO.  2 
STACK  VENT  TO  ATMOSHERE. 

C  BOILER  FEED  WATER. 

BOILER  PRODUCT  STEAM. 
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B • 7 •  PROGRAM  CONTROL  PARAMETERS 


LOGICAL  EXAMPLE 


♦PROGRAM  CONTROL  PARAMETERS* 

IDBUG ( 1 )  *  I  DRUG ( 2 )  » . . IDBUG (IS) 

CRIT*  'NO  OPTIMIZATION'  'PRINT  SUPPRESS*  *END* 


NUMERICAL  EXAMPLES 


♦PROGRAM  CONTROL  PARAMETERS* 
112131411000021  ♦  IE-3 
'PRINT  SUPPRESS'  *  E  N  D  * 

C  DEFINING  ALL  ELEMENTS  OF  IDBUG*  AND  CR I T 


♦PROGRAM  CONTROL  PARAMETERS*  ** 
121111111  'NO  OPTIMIZATION'  *END* 

C  DEFINING  FIRST  NINE  ELEMENTS  OF  IDBUG 
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B • 8 •  EXAMPLE  DATA  (ILLUSTRATING  INFORMATION  RECYCLE) 


1  0  1 
2  1  2 

10  2  4 

40  4  2  1 

11  1  3 

12  3  5 

41  5  1  1 

30  8  4 

31  9  5 


1  6  * 

2  It 

3  2. 

4  5* 

5  5t 


1  1  0.05 


•  •  • 
•  I  • 


40 

1  1. 


•  •  • 
•  •  • 


#* 


41 

1  19 


2  12.  ** 


•  •  • 
•  •  • 


^FLOWSHEET  DATA* 

C  FEED  TO  STREAM  DIVIDER 

C  DIVIDER  TO  W.H.B. 

C  BOILER  BYPASS  TO  COMBINER  1. 

-1  C  INFORMATION  FROM  COMBINER  1.  TO  BOILER 

C  (RE  STREAM  SPLIT) 

C  DIVIDER  TO  IN-LINE  BURNER 

C  IN-LINE  BURNER  TO  COMBINER  2. 

-1  C  INFORMATION  FROM  COMBINER  2.  TO  SPLITTER 

C  (RE  BOILER  BYPASS) 

C  CONDENSER  1.  TO  COMBINER  1. 

C  CONDENSER  2.  TO  COMBINER  2. 


*END*  ^EQUIPMENT  PARAMETER  SPECIFICATIONS* 
C  STREAM  SPLITTER 

C  WASTE  HEAT  BOILER 

C  IN-LINE  BURNER 

C  ADIABATIC  STREAM  COMBINER  1. 

C  ADIABATIC  STREAM  COMBINER  2. 


C  STREAM  DIVIDER  SPLIT  ESTIMATE  AS 

C  EQUIPMENT  PARAMETER  SPECIFICATION. 


*END*  *STREAM  SPECIFICATIONS* 


C  INFORMATION  STREAM  40 

C  STREAM  PARAMETER  1  -  DESTINATION  OF 

C  INFORMATION  TO  DIVIDER  -  STREAM 

C  SPLIT  -  EQUIP.  PAR.  NO.  1. 

C  INFORMATION  STREAM  41 

C  STREAM  PARAMETER  1  -  DESTINATION  OF 

C  INFORMATION  TO  BOILER  -  BYPASS  NO.  1 
C  EQUIP.  PAR.  NO.  19. 

C  PARAMETER  2  -  INITIAL  ESTIMATE  OF 
C  NO.  1  BOILER  BYPASS  (12  PERCENT) 


*END  OF  ALL  DATA* 
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LEGEND  FOR  TABLES  8-1  TO  B-9 


CONDITIONALLY  MANDATORY  SPECIFICATION  -  REQUIRED 
UNDER  CERTAIN  CIRCUMSTANCES  (REFERENCE  NOTES). 

SPECIFICATIONS  (AND  ESTIMATES)  REQUIRED  OR 
PERMISSIBLE  FOR  THE  DESIGN  CASE. 

MANDATORY  SPECIFICATION  -  ALWAYS  A  NECESSARY 
SPECIFICATION  FOR  THE  INDICATED  MODE  (DESIGN  OR 
SIMULATION) • 

REFERENCES  TO  NOTES  BELOW  THE  TABLE 

OPTIONAL  ESTIMATE  -  IF  GIVEN#  WILL  BE  USED  AS  AN 
INITIAL  GUESS.  A  GOOD  ESTIMATE  FOR  THE  VALUES 
SHOWN  MAY  BE  USED  TO  REDUCE  THE  COMPUTATION 
REQUIRED  TO  ACHIEVE  CONVERGENCE. 

OPTIONAL  SPECIFICATION  -  MAY  BE  GIVEN  IF  DESIRED. 
IF  NOT  GIVEN#  INDICATED  VALUE  IS  ASSUMED. 

EQUIPMENT  PARAMETER  NUMBER 

SPECIFICATIONS  (AND  ESTIMATES)  REQUIRED  OR 
PERMISSIBLE  FOR  THE  SIMULATION  CASE. 

VALUE  OF  THE  PARAMETER  WHICH  IS  ASSUMED  BY  THE 
MODULE  IF  REQUIRED  FOR  THE  CALCULATIONS#  BUT  NOT 
SPECIFIED.  (ONLY  VALUES  FOR  THOSE  PARAMETERS 
SHOWN  ARE  ASSUMED  IF  NEEDED  -  IF  OTHER  PARAMETERS 
THAT  ARE  REQUIRED  ARE  NOT  GIVEN#  ERRORS  WILL 
RESULT. ) 


WASTE  HEAT  BOILER  -  EQUIPMENT  TYPE  1 
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APPENDIX  C 


THIS  APPENDIX  CONTAINS  PROGRAM  DOCUMENTATION. 
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C.l  EXECUTIVE  AND  UTILITY  ROUTINES  .  C-2 

C •  2  AUXILIARY  ROUTINES . . 
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C • 6  EQUIPMENT  MODULES  ROUTINES  .  C-ll 

fig.  Ol  PROGRAM  STRUCTURE . 017 

FIG.  C"2  SUBROUTINE  LINKAGES . 025 
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C.l  EXECUTIVE  AND  UTILITY  ROUTINES 


ROUTINE 


FUNCTIONS 


MAIN  ~  MAINLINE  EXECUTIVE  ROUTINE 

-  -  TRANSFERS  CONTROL  TO  INPUT  EXECUTIVE  AND 

CALCULATION  OPTIMIZATION  EXECUTIVE 
INITIALIZES  EQUIPMENT  MODULE  CALCULATIONS  AND 
CALLS  APPROPRIATE  EQUIPMENT  MODULE  FOR  THE 
CALCULATIONS  FOR  EACH  EQUIPMENT  UNIT  IN 
THE  FLOWSHEET 

-  CALLS  CALCULATION  SUMMARY  ROUTINE  WHEN 
PROCESS  CALCULATIONS  COMPLETED 


RCYCL  -  CALCULATION  RECYCLE  CONTROL  ROUTINE 

-  -  DETECTS  IF  AND  WHEN  PROCESS  CALCULATION 

RECYCLE  IS  REQUIRED 

-  RECYCLES  CALCULATIONS  WHEN  ALL  PREVIOUSLY 
ASSUMED  STREAMS  HAVE  BEEN  CALCULATED 

-  CHECKS  FOR  RECYCLE  CALCULATION  CONVERGENCE 
WHEN  RECYCLE  LOOP  COMPLETED 

-  CONTROLS  THE  ACTIVE  POSITION  IN  THE  CALCULATION 
SEQUENCE  VECTOR 

TIMER  -  COMPUTING  TIME  MONITOR  ROUTINE 

-  -  OPTIONALLY  ACTIVATED  BY  COMPILE  TIME  DATA  FLAG 

-  USES  360/67  OS  SYSTEM  TIMER  ROUTINES 
(CS019A  AND  CS019B) 

-  OUTPUTS  TIME  INTERVAL  SINCE  LAST  CALL  AND 
TOTAL  COMPUTING  TIME  TO  CALL 


PRINT  -  OUTPUT  CONTROL  ROUTINE 

-  -  SETS  OUTPUT  PRIORITY  FLAG  FOR  MODULE 

CALCULATIONS  BEFORE  CONTROL  IS  TRANSFERRED  BY 
EXECUTIVE  TO  EQUIPMENT  MODULE 
IF  ‘PRINT  SUPPRESS*  OPTION  IS  USED* 

CALCULATION  OUTPUT  IS  SUPPRESSED  FOR  THE 
FIRST  PASS  THROUGH  RECYCLE  LOOPS 

-  CONTROLS  INITIALIZATION  OF  PAGING  FOR  EACH 
MODULE’S  OUTPUT 

FDSTM  -  EXECUTIVE  UTILITY  ROUTINE 

-  -  FINDS  STREAM  INPUTS  TO  ACTIVE  EQUIPMENT  NUMBER 

AND  STORES  IN  A  VECTOR  (NSIN)  IN  THE  ORDER 
PROCESS*  SERVICE*  INFORMATION  —  LATTER  TWO 
FLAGGED  NEGATIVE 

-  FINDS  STREAM  OUTPUTS  FROM  ACTIVE  EQUIPMENT 
NUMBER  AND  STORES  IN  A  VECTOR  (NSOUT)  AS  ABOVE 


O  3 


DSECT 


OUTPT 


SUTIL 


PRNTS 


COMPR 


SETVU 


-  EXECUTIVE  DEBUG  OUTPUT  ROUTINE 

“  OPTIONALLY  DUMPS  INPUT  AND  OUTPUT  STREAMS  AND 
RELEVANT  SECTION  OF  EQUIPMENT  PARAMETER 
VECTOR  FOR  ACTIVE  EQUIPMENT  NUMBER 

-  CALLED  BEFORE  AND  AFTER  EACH  EQUIPMENT  MODULE 
CALCULATION 

"  OUTPUT  RESULTS  ONLY  IF  EXECUTIVE  DEBUG  FLAG 
(  I  DRUG ( 1 5 )  )  IS  4  OR  GREATER 

-  PROCESS  CALCULATION  SUMMARY  OUTPUT  ROUTINE 

-  OUTPUTS  SUMMARY  RESULTS  IF  EXECUTIVE  OUTPUT 
FLAG  (  I  DRUG (15))  IS  1  OR  GREATER 

-  OUTPUTS  ‘OVER  ALL  PLANT  MASS  AND  ENERGY 
BALANCES'*  'EQUIPMENT  PARAMETER  SUMMARY'  AND 
'STREAM  COMPOSITION  AND  PROPERTY  SUMMARY' 

WHEN  ALL  PROCESS  CALCULATIONS  ARE  COMPLETE 

-  STRFAM  STORAGE  UTILITY  ROUTINE 

-  DEPENDING  UPON  A  FLAG*  STORES  A  STREAM  IN 
STREAM  MATRIX  (STREM)*  RETRIEVES  A  STREAM 
FROM  STREAM  MATRIX.  OR  COMBINES  ALL  INPUT 
STREAMS  (WITH  OPTIONAL  EXCLUSION  OF  ONE 
INPUT  STREAM)  TO  ACTIVE  EQUIPMENT  NUMBER.  IN 
LAST  CASE*  RESULTING  TEMPERATURE  AND 
PRESSURE  ARE  FOUND 

-  STREAM  OUTPUT  UTILITY  ROUTINE 

-  OUTPUT  RESULTS  ONLY  IF  PRESENT  OUTPUT 
PRIORITY  FLAG  IS  1  OR  GREATER 

-  OUTPUTS  EQUIPMENT  PROCESS  FEED  (COMBINED)* 
PRESENT  ACTIVE  STREAM  (YCOMP)*  OR  STREAM  FROM 
STREAM  MATRIX*  DEPENDING  UPON  A  FLAG 

-  TEMPERATURE.  PRESSURE*  ENTHALPY  AND  MOLE 
NUMBERS  OF  STREAM  CONSTITUTE  OUTPUT 

-  DATA  COMPATIBILTY  CHECK  UTILITY  ROUTINE 

-  COMPARES  A  STREAM  PARAMETER  (PARAMETER  N SPAR 
OF  STREAM  NSTRM )  WITH  AN  EQUIPMENT  PARAMETER 
(PARAMETER  NEPAR  OF  ACTIVE  EQUIPMENT  NUMBER) 

-  IF  ONE  IS  ZERO*  THE  TWO  VALUES  ARE  EQUATED  TO 
THE  NEGATIVE  SPECIFICATION  VALUE 

-  IF  TWO  VALUES  ARE  DIFFERENT  (AND  NON-ZERO)  AN 
ERROR  MESSAGE  RESULTS  —  BOTH  VALUES  ARE 
EQUATED  TO  EQUIPMENT  PARAMETER  VALUE 

-  DEFAULT  VALUE  UTILITY  FUNCTION 

~  CHECKS  A  TEST  VALUE  —  IF  POSITIVE*  FUNCTION 
IS  SET  TO  TEST  VALUE 

IF  TEST  VALUE  IS  ZERO  OR  NEGATIVE*  FUNCTION 
IS  SET  TO  DEFAULT  VALUE 
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C • 2  AUXILIARY  ROUTINES 


ROUT  I NE 


HFCAL 


VPRES 


DEWPT 


FINDT 


tcalc 


FUNCTIONS 


THERMODYNAMIC  PROPERTY  EVALUATION  ROUTINE 
FOR  GIVEN  STREAM  MOLE  NUMBERS  AND  TEMPERATURE. 
EVALUATES  (DEPENDING  UPON  A  FLAG) — 

-  TOTAL  STREAM  HEAT  CAPACITY.  OR 

-  TOTAL  STREAM  ENTHALPY.  OR 

-  ONE  MOLECULAR  SPECIE'S  FREE  ENERGY  FUNCTION 

VAPOR  PRESSURE  CALCULATION  ROUTINE 
DEPENDING  UPON  A  FLAG.  CALCULATES  WATER  OR 
SULPHUR  VAPOR  PRESSURE  AT  A  GIVEN  TEMPERATURE 
(ALSO  FIRST  DERIVATIVE  OF  VAPOR  PRESSURE 
W.  R.  T.  TEMPERATURE) 

DEW  POINT  CALCULATION  ROUTINE 
DEPENDING  UPON  A  FLAG.  CALCULATES  WATER  OR 
SULPHUR  DEW  POINT  (USING  NEWTON'S  METHOD)  FOR 
GIVEN  PRESSURE  AND  STREAM  MOLE  NUMBERS 
REQUIRES  AN  INITIAL  ESTIMATE  OF  DEW  PT.  TEMP. 

TEMPERATURE  CALCULATION  ROUTINE 
GIVEN  STREAM  MOLE  NUMBERS  AND  A  REFERENCE 
ENTHALPY.  FINDS  THE  CORRESPONDING  TEMPERATURE 
ASSUMING  NO  COMPOSITION  CHANGES  (NEWTON'S 
METHOD  USED) 

REQUIRES  AN  INITIAL  ESTIMATE  OF  TEMPERATURE 

ITERATIVE  TEMPERATURE  DETERMINATION  ROUTINE 
FOR  A  GIVEN  FEED  STREAM.  FINDS  ADIABATIC  OR 
NON-AD  I ABAT I C  TEMPERATURE.  DEPENDING  ON  A  FLAG 
TAKES  INTO  ACCOUNT  COMPOSITION  CHANGES  WITH 
TEMPERATURE 

FOR  NON-ADI ABAT I C  CASE  (BOILER).  HEAT  LOSS 
IS  EVALUATED  USING  MEAN  STREAM  PROPERTIES 
(ALSO  PRESSURE  DROP  IS  CALCULATED  AND  REDUCED 
PRESSURE  IS  USED  FOR  OUTLET  COMPOSITION 
CALCULATION ) 

TCTOF  (EQUIL.  CUTOFF  TEMP.)  MUST  BE  PREVIOUSLY 
SET 

RIGOR  OF  CALCULATIONS  INITIALLY  IS  LOW.  BUT  IS 
INCREASED  AS  CONVERGENCE  (USING  SECANT  METHOD) 
IS  ACHIEVED 

INITIAL  POSITIVE  SET  IS  GENERATED  FOR  FIRST 
TEMPERATURE  ESTIMATES.  BUT  THIS  GENERATION  IS 
BYPASSED  WHEN  CONVERGENCE  IS  NEARLY  ACHIEVED 
REQUIRES  AN  INITIAL  ESTIMATE  (TEMP) 
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GUESR  -  ESTIMATE  GENERATOR  ROUTINE 


-  USES  THE  SECANT  METHOD  TO  PREDICT  THE 

INDEPENDENT  VARIABLE  THAT  WILL  RESULT  IN  A 

ZERO  ERROR  FUNCTION 

-  GIVEN  AN  INITIAL  ESTIMATE  AND  A  FACTOR  FOR 
GENERATING  A  SECOND  ESTIMATE  FROM  THE  FIRST* 
PRODUCES  THIRD  AND  SUBSEQUENT  ESTIMATES  FROM 
PREVIOUS  ERRORS  AND  ESTIMATES 

-  SAVES  BEST  PREVIOUS  ESTIMATE 

”  MUST  be  GIVEN  a  CONVERGENCE  ACCELERATOR 
(USUALLY  1  IF  NO  CONVERGENCE  PROBLEM)  — 

WILL  EQUATE  CONVERGENCE  ACCELERATOR  TO  1  AS 
CONVERGENCE  PROCEEDS 

PROP 

STREAM  PROPERTY  EVALUATION  ROUTINE 
“  CALCULATES  STREAM  PROPERTIES  USING  AN  AVERAGE 
STREAM  COMPOSITION  AND  AVERAGE  TEMPERATURE 
-  EVALUATES  AVERAGE  COMPOSITON*  AVERAGE  AND  WALL 
(SULPHUR  DEW  POINT)  TEMPERATURES*  GAS  VISCOSITY. 
DENSITY.  TOTAL  STREAM  MASS  AND  MOLES.  AND 

AVERAGE  STREAM  HEAT  CAPACITY 

SUMER 

-  STREAM  SUMMER  ROUTINE 

-  DEPENDING  UPON  A  FLAG.  SUMS  TOTAL  MOLES  AND 

MASS.  TOTAL  MOLES  AND  MASS  OF  ELEMENTAL 

SULPHUR  OR*  TOTAL  ATOMS  AND  MASS  OF  (ATOMIC) 
SULPHUR  IN  A  GIVEN  STREAM 

PRCNT 

SULPHUR  CONVERSION  AND  RECOVERY  ROUTINE 

-  CALCULATION  BY-PASSED  IF  OUTPUT  PRIORITY  FLAG 

IS  OFF 

STORES  INPUT  SULPHUR.  FINDS  REAL  AND  APPARENT 
SULPHUR  CONVERSION  OR.  FINDS  TOTAL  PLANT 

SULPHUR  RECOVERY.  DEPENDING  UPON  A  FLAG 

-  FOR  LAST  CASE.  ALSO  COMPLETES  PLANT  MASS  AND 
ENERGY  BALANCES 

STEAM 

-  STEAM  PRODUCTION  CALCULATION  ROUTINE 

-  FINDS  CORRECTED  LATENT  HEAT  OF  STEAM  AND 

STEAM  PRODUCTION  (LBS.  AND  MOLES)  FOR  A  GIVEN 
DUTY.  FEEDWATER  STREAM  AND  STEAM  TEMPERATURE 

-  STORES  RELEVANT  STEAM  FEED  AND  PRODUCT  STREAMS 

IF  PRESENT 

AIRFD 

-  COMBUSTION  AIR  REQUIREMENT  ROUTINE 

-  FINDS  AIR  STREAM  (NITROGEN.  OXYGEN  AND  WATER) 
REQUIRED  TO  COMPLETE  A  SPECIFIED  COMBUSTION 

-  REQUIRES  FRACTION  OF  SULPHUR  TO  BE  BURNED* 

EXCESS  OR  DEFICIENT  AIR  COEFFICIENT  AND  AIR 
RELATIVE  HUMIDTY.  PRESSURE  AND  TEMPERATURE 
SPECIFICATIONS 

-  STORES  AIR  STREAM  SEPARATELY  —  ALSO  ADDS  AIR 

‘ 
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TO  GIVEN  STREAM  TO  BE  COMBUSTED  AND  FINDS 
RESULTING  COMBINED  TEMPERATURE 

BKROX  -  (BLACK  BOX)  DUMMY  EQUIPMENT  MODULE  (ITYPE«10) 

~  SOLE  EQUIPMENT  PARAMETER  IS  TCTOF  (EQUILIBRIUM 
CUTOFF  TEMPERATURE)  —  ASSUMED  AS  -1  IF  NOT 
GIVEN  (I.E.  SULPHUR  SHIFT  ON  GIVEN  STREAM) 

“  ALTERS  INLET  TEMPERATURE  AND  PRESSURE  TO  THE 
OUTLET  CONDITIONS  (TEMPERATURE  AND  PRESSURE) 
SPECIFIED  AS  ^STREAM  SPEC  I  FAC T I  ON*  DATA#  IF 
LATTER  IS  NOT  GIVEN#  OUTPUT  EQUATED  TO  INPUT 
IF  OUTPUT  CONDITIONS  (T  AND  P)  GIVEN*  COMPLETES 
COMPOSITION  CALCULATION  (DEPENDING  UPON  TCTOF) 
AT  SPECIFIED  OUTPUT  CONDITIONS  AND  STORES 
OUTPUT  MOLE  NUMBERS*  ENTHALPY  DIFFERENCE 
BETWEEN  INPUT  AND  OUTPUT  IS  CALCULATED* 


C •  3  COMPOSITION  CALCULATION  ROUTINES 


ROUTINE  FUNCTIONS 


COMP  -  PRIMARY  COMPOSITION  CALCULATION  ROUTINE 

- -  -  DECIDES  WHETHER  TO  DO  COMPLETE  EQUILIBRIUM 

CALCULATION  AT  GIVEN  TEMPERATURE#  EQUILIBRIUM 
AT  CUTOFF  TEMPERATURE#  SULPHUR  SHIFT  ON 
CUTOFF  COMPOSITION  OR  SULPHUR  SHIFT  ON 
GIVEN  COMPOSITION 

-  STORES  CUTOFF  EQUILIBRIUM  COMPOSITION  SO  THAT 
IT  NEED  BE  CALCULATED  ONLY  ONCE 

SHIFT  -  SULPHUR  SHIFT  ROUTINE 

- - —  "  EXTRACTS  SULPHUR  VAPOR  SPECIES  (AND  OPTIONALLY 

LIQUID  SULPHUR)  FROM  GIVEN  STREAM  — 

INTRODUCES  THEM  INTO  A  DUMMY  STREAM 

-  CALCULATES  EQUILIBRIUM  COMPOSITION  FOR  THIS 
DUMMY  STREAM  AT  GIVEN  TEMPERATURE  AND  EXISTING 
SULPHUR  PARTIAL  PRESSURE* 

ITERATES  ON  COMPOSITION  CALCULATION  UNTIL 
SULPHUR  PARTIAL  PRESSURE  CONVERGES 

“  SKIPS  CALCULATION  IF  NO  SULPHUR  IN  GIVEN 
STREAM 

MINFE  -  FREE  ENERGY  MINIMIZATION  ROUTINE 

— - -  -  INITIALIZES  THE  EQUILIBRIUM  CALCULATIONS 

-  FOR  EACH  ITERATION#  SETS  UP  THE  MATRIX  FOR 
DETERMINING  THE  LAGRANGIAN  MULTIPLIERS 

“  CALCULATES  THE  PREDICTED  MOLE  NUMBER  CORRECTIONS 


■ 


. 


IN  IT 


YMODY 


GAUSS 


FAKER 


C.4  DATA 


ROUTINE 


INPUT 


EQUILIBRIUM  INITIALIZATION  ROUTINE 
DEPENDING  UPON  A  FLAG*  GENERATES  A  POSITIVE 
SET  OF  MOLE  NUMBERS  OR  SKIPS  THIS  GENERATION 
CALCULATES  THE  ATOM  TOTALS*  AND  FREE  ENERGY 
FUNCTIONS*  AND  FLAGS  ALL  IMPOSSIBLE  SPECIES  SO 
THEY  WILL  BE  IGNORED  DURING  THE  MINIMIZATION 

COMPOSITION  MODIFICATION  ROUTINE 
PREVENTS  NEGATIVE  OR  PREMATURELY  ZERO  MOLE 
NUMBERS  DURING  ENERGY  MINIMIZATION 
DEFINES  NEW  MOLE  NUMBERS  AND  CHECKS  FOR 
CONVERGENCE  OF  THE  COMPOSITION  CALCULATIONS 
EQUATES  SPECIES  DRIVEN  BELOW  A  SPECIFIED  LEVEL 
(I.E*  l.E-10)  TO  ZERO  AND  FLAGS  THEM  SO  THEY  WILL 
BE  IGNORED  (THIS  SPEEDS  CONVERGENCE) 

GAUSSIAN  ELIMINATION  ROUTINE 

SOLVES  THE  GIVEN  MATRIX  EQUATION  FOR  THE 

LAGRANGIAN  MULTIPLIERS 

PARTIAL  PIVOTTING  IS  USED  TO  REDUCE  ROUND-OFF 
ERRORS  DURING  CALCULATIONS 
SINGULARITY  OF  THE  MATRIX  RESULTS  IN  JOB 
TERMINATION 

EQUILIBRIUM  COMPOSITION  MASK  ROUTINE 
IF  *  NDUMY '  IS  NON-ZERO*  TEMPORARILY  SETS  THE 
NUMBER  OF  GASEOUS  MOLECULAR  SPECIES  TO  NDUMY. 
(I.E.  THE  FIRST  NDUMY  SPECIES  ARE  NOT  MASKED* 

AND  THE  LAST  ( NGMS-NDUMY )  SPECIES  ARE  MASKED*  OR 
IGNORED  DURING  THE  COMPOSITION  CALCULATION  WHICH 
IMMEDIATELY  FOLLOWS) 

MASKING  OCCURS  ONLY  IF  BOILER  OR  CONVERTER 
COMPOSITIONS  ARE  BEING  CALCULATED*  AND  ONLY  IF 
THE  TEMPERATURE  (AT  WHICH  THE  COMPOSITION  IS  TO 
BE  CALCULATED)  IS  LOWER  THAN  THE  SPECIFIED 
SECONDARY  CUTOFF  TEMPERATURE  ( T DUMY ) . 


INPUT  ROUTINES 


FUNCTIONS 


DATA  INPUT  EXECUTIVE  ROUTINE 
INITIALIZES  DATA  INPUT  AND  THEN  READS  ALL 
DATA  USING  'FFINP'  FREE  FORMAT  INPUT  ROUTINE 
FOR  EACH  DATA  SEGMENT  OF  INPUT*  TRANSFERS 
CONTROL  TO  APPROPRIATE  INPUT  SUBROUT  I NE-- 
THIS  ROUTINE  IS  DETERMINED  FROM  DECODED  DATA 
CONTROL  MESSAGES 


■ 


O  8 


INPTO 


INPT1 


INPT2 


INPT3 


IF  ANY  ERRORS  ARE  DETECTED  DURING  DATA  INPUT* 

THE  JOB  IS  ABORTED  WHEN  DATA  INPUT  IS  COMPLETE 

PROGRAM  CONTROL  PARAMETER  DATA  INPUT  ROUTINE 
SETS  OUTPUT  PRIORITY  VECTOR  (IDBUG)  AND 
CONVERGENCE  CRITERIA  (CRIT)  TO  GIVEN  OR 
DEFAULT  VALUES 

SETS  ’PRINT  SUPPRESS'  AND  ’NO  OPTIMIZATION’ 

FLAGS  IF  DESIRED 

ECHO  CHECKS  THIS  DATA  IF  DESIRED 
{ I  DRUG ( 1 4 ) *4  OR  GREATER) 

MOLECULAR  AND  THERMODYNAMIC  DATA  INPUT  ROUTINE 
INITIALIZES  M  AND  T  DATA  —  SETS  THE  NUMBER 
OF  ATOMS  TYPES*  AND  THE  ATOM  SYMBOLS*  WEIGHTS 
AND  VOLUMES 

STORES  THERMODYNAMIC  DATA  (NASA)  CONSTANTS  AND 
VISCOSITY  COEFFICIENTS  IF  GIVEN  —  IF  VISCOSITY 
COEFF I  EC  I  ENTS  ARE  NOT  GIVEN*  SETS  THEM  TO  DEFAULT 
VALUES 

DEFINES  THE  NUMBER  OF  GASEOUS  MOLECULAR 
SPECIES  ( NGMS  )  AND  THE  TOTAL  NUMBER  OF  SPECIES 
( NTOT ) 

CHECKS  VALIDITY  OF  MOLECULAR  SPECIES  FORMULAS 
AND  GENERATES  THE  FORMULA  MATRIX  ( FORMU ) 

MOLECULAR  AND  THERMODYNAMIC  DATA  ANALYSIS  ROUTINE 
CALCULATES  MOLECULAR  WEIGHTS  AND  VOLUMES 
DEFINES  WHICH  SPECIES  ARE  RADIATING  COMPONENTS 
(FOR  HEAT  LOSS  CALCULATIONS)  —  ASSUMES  SPECIES 
WITH  THREE  OR  MORE  CONSTITUENT  ATOMS  ARE  POLAR 
AND  RADIATING 

IDENTIFIES  AND  STORES  WATER  VAPOR  COMPONENT 
AND  SULPHUR  VAPOR  AND  LIQUID  COMPONENTS 
ECHO  CHECKS  M  AND  T  DATA  IF  DESIRED 
( I DBUG (14)  =  3  OR  GREATER) 

EQUIPMENT  PARAMETER  SPECIFICATION  AND  ESTIMATION 
DATA  INPUT  ROUTINE 

INITIALIZES  EQUIPMENT  PARAMETER  VECTOR  'EQUIP* 
ELEMENTS  TO  ZERO 

DEFINES  EQUIPMENT  NUMBERS  AND  CORRESPONDING 
TYPES  —  ALLOCATES  EQUIP  VECTOR  STORAGE 
REQUIRED  FOR  EACH  NUMBER  AND  STORES  LOCATION 
IN  AN  INDEX 

STORES  EQUIPMENT  NUMBERS  IN  CALCULATION 
SEQUENCE  VECTOR  AS  ENCOUNTERED*  (THIS  VECTOR 
IS  NORMALLY  RE-ORDERED  LATER  DURING  CALCULATION 
SEQUENCE  OPTIMIZATION) 

STORES  EQUIPMENT  PARAMETER  SPECIFICATIONS  IN 
EQUIP  AS  NEGATIVE  VALUES  DURING  SPECIFICATION 
PHASE--  EQUIP  PARAMETER  ESTIMATES  AS  POSITIVE 


INPT4 


INPT5 


FFINP 


SPECL 


VALUES  DURING  ESTIMATION  PHASE 

-  ECHO  CHECKS  SPECIFICATIONS  AND  ESTIMATES  IF 
DESIRED  (  I  DRUG ( 1 4  )  = 1  OR  GREATER) 

"  STREAM  SPECIFICATIONS  AND  ESTIMATES  DATA  INPUT 
ROUTINE 

INITALIZES  STREAM  MATRIX  (STREM)  ELEMENTS  TO 
ZERO 

“  STORES  STREAM  SPECIFICATIONS  AS  NEGATIVE  VALUES 
IN  STREM*  STREAM  ESTIMATES  (DURING  ESTIMATES 
INPUT)  AS  POSITIVE  VALUES 

-  ECHO  CHECKS  SPECIFICATIONS  AND  ESTIMATES 
(SEPARATE  INPUT  DATA  SECTIONS)  IF  THIS  IS  DESIRED 
(  I DBUG ( 1 4 ) =  2  OR  GREATER) 

-  FLOWSHEET  DATA  INPUT  ROUTINE 

“  INITIALIZES  FLOWSHEET  MATRIX  (INFO)  ELEMENTS  TO 
ZERO 

-  SETS  STREAM  UNKNOWNS  TO  1  IF  NOT  GIVEN 

-  STORES  FLOWSHEET  DATA  IN  INFO  AND  ECHO  CHECKS 
IF  DESIRED  ( I DBUG (  14 ) -2  OR  GREATER) 

“  FREE  FORMAT  INPUT  ROUTINE 

-  READS  DATA  AS  FORTRAN  ALPHAMERIC  INPUT 
AND  ANALYSES  RESULTING  ALPHAMERIC  VECTOR  A 
COLUMN  AT  A  TIME 

-  STORES  INTEGERS*  REALS  AND  ALPHAMERICS  IN 
APPROPRIATE  INPUT  VECTORS  AS  ENCOUNTERED. 

IGNORES  REMAINDER  OF  CARD  IF  C  ENCOUNTERED 
( DATA  COMMENT ) 

-  CODES  DATA  CONTROL  MESSAGES  (ENCLOSED  IN 
ASTERISKS)  FOR  INPUT  ANALYSIS  CONTROL 

-  FLAGS  ERROR  IF  SYNTAX  ERROR  ENCOUNTERD 

“  FINAL  INPUT  DATA  CHECKING  ROUTINE 

“  CALLED  WHEN  DATA  INPUT  IS  FINISHED  TO  COMPLETE 
DATA  CHECKING  AND  DATA  STORAGE 

-  IDENTIFIES  ATOM  TYPES  (  S  0  C  H  N  )  IN  THAT 
ORDER  IF  PRESENT 

-  REARRANGES  STRFAM  DATA  TO  CORRESPOND  WITH 
REARRANGED  M  AND  T  DATA  (I.E.  LIQUID  SPECIES 
STORED  LAST) 

-  CHECKS  VALIDITY  OF  INFORMATION  STREAMS 
(INFORMATION  DESTINATIONS) 


■ 
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C.5  CALCULATION  SEQUENCE  OPTIMIZATION  ROUTINES 


ROUTINE 


FUNCTIONS 


OPTIM  -  CALCULATION  SEQUENCE  OPTIMIZATION  EXECUTIVE 

— - -  -  INITIALIZES  'INFO'  MATRIX  FOR  OPTIMIZATION 

(MASKS  PLANT  FEEDS  AND  PRODUCTS  AND  SERVICE 
STREAMS ) 

“  REDUCES  THE  FLOWSHEET  —  TERMINATES  THE 
OPTIMIZATION  IF  THE  FLOWSHEET  HAS  BEEN 
COMPLETELY  REDUCED 

“  OPTIMIZES  THE  ORDER  OF  CALCULATIONS 

-  RESTORES  THE  ’INFO’  MATRIX  WHEN  OPTIMIZATION 
IS  COMPLETE 

reduc  -  flowsheet  simplification  routine 

- -  -  attempts  to  reduce  the  complexity  of  the 

FLOWSHEET  (AND  OPTIMIZATION)  IN  TWO  PHASES 

-  STORES  ELIMINATED  EQUIPMENT  IN  FINAL  SEQUENCE 
VECTOR  (PHASE  1)  OR  SAVES  LINKS  (PHASE  2)  SO 
FINAL  SEQUENCE  CAN  RE  OBTAINED  FROM  OPTIMIZED 
REDUCED  SEQUENCE  WHEN  OPTIMIZATION  IS  COMPLETE 


DELTA  -  ASSOCIATION  MATRIX  UTILITY  ROUTINE 

-  GENERATES  THE  • I DELT '  OR  ASSOCIATION  MATRIX 
FOR  A  GIVEN  CALCULATION  SEQUENCE  USING  THE 
FLOWSHEET  DATA  IN  ’INFO’  MATRIX 

EXCHN  -  SEQUENCE  MODIFICATION  UTILITY  ROUTINE 

-  ALTERS  THE  CALCULATION  SEQUENCE  AND  THE 
ASSOCIATION  MATRIX  ' I DELT ’  IN  THE  MANNEF 
DETECTED  AS  BEING  ADVANTAGEOUS  BY  DCHCK 

»  ALTERATION  IS  DONE  DIRECTLY  FOR  SEQUENCE 
EXCHANGE  OR  BY  CALLING  DELTA  FOR  SEQUENCE 
PROMOTION  OR  DEMOTION 


DCHCK  -  SEQUENCE  CHANGE  SEARCH  ROUTINE 

“ -  -  ATTEMPTS  TO  FIND  THE  MOST  BENEFICIAL  CHANGE 

THAT  CAN  BE  MADE  TO  THE  CALCULATION  SEQUENCE 
TO  REDUCE  RECYCLE  ASSUMPTIONS 
"  PREVENTS  ALTERNATING  BETWEEN  TWO  SEQUENCES 

FINSH  -  OPTIMIZATION  MONITOR  ROUTINE 

-  -  DECIDES  IF  THE  SEARCH  FOR  THE  OPTIMUM 

SEQUENCE  SHOULD  BE  CONTINUED  UNINTERRUPTED* 
RENEWED  WITH  A  RANDOMIZED  SEQUENCE*  OR 
TERMINATED 

-  STORES  BEST  SEQUENCE  AS  ENCOUNTERED 

-  RANDOMIZES  THE  CALCULATION  SEQUENCE  IF  THIS  IS 


. 
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REQUIRED  —  REBUILDS  ASSOCIATION  MATRIX  (VIA 
DELTA) 

"  REGENERATES  a  full  calculation  sequence  using 
THE  SIMPLIFIED  SEQUENCE  AND  THE  LINKS  STORED 
BY  REDUC 

FINDS  THE  STREAMS  WHICH  MUST  BE  ASSUMED  FOR  THE 
COMPLETE  CALCULATION  SEQUENCE  (FINAL  CALCULATION 
SEQUENCE  IF  A  BETTER  SEQUENCE  IS  NOT  ENCOUNTERED) 


C • 6  EQUIPMENT  MODULES  ROUTINES 


ROUTINE 


FUNCTIONS 


RXWHB 


BINIT 


DOPAS 


FLAGI 


PRIMARY  REACTION  F UR NACE-- WASTE  HEAT  BOILER 
ROUTINE 

INITIALIZES  CALCULATIONS  --  DESIGNS  OR  SIMULATES 
THE  COMBUSTION  CHAMBER#  AND  ONE#  TWO  OR  THREE 

boiler  passes 

CALCULATES  ONE#  TWO  OR  THREE  BYPASS  STREAMS  IF 
THEY  EXIST  AND  STORES  THE  MAIN  BOILER  EXIT  STREAM 
FINDS  STEAM  PRODUCTION  AND  SULPHUR  CONVERSION 

BOILER  INITIALIZATION  ROUTINE 
INITIALIZES  BOILER  CALCULATIONS  —  DEFINES 
BOILER  FEED#  EQUILIBRIUM  CUTOFF  TEMPERATURE# 
BYPASS  AND  EXIT  STREAMS#  STEAM  STREAMS  AND 
BOILER  STEAM  PRESSURE 

CALCULATES  BOILER  STEAM  TEMPERATURE#  CHECKS 
DATA  COMPATIBILTY  AND  FLAGS  WHETHER  A  MUFFLE 
FURNACE  OR  A  FIRE  TUNNEL  IS  USED 

BOILER  TUBE  PASS  CALCULATION  ROUTINE 
SIMULATES  OR  DESIGNS  BOILER  TUBE  PASSES 
SIMULATION  —  SINGLE  PASS  NON-AD  I ABAT I C 
TEMPERATURE  CALCULATION 

DESIGN  —  SINGLE  OR  MULTIPLE  PASSES  —  ITERATIVE 
TUBE  NUMBER  DETERMINATION 

CALCULATES  PRESSURE  DROP  AND/OR  TUBE  DIAMETER 
FOR  EACH  PASS 

CALCULATES  BOILER  HEAT  LOAD  (DUTY) 

I  flag  utility  routine 

SETS  THE  FLAG  IFLAG  FOR  THE  PASS  (1  E OR 
DIAMETER  SPECIEIED#  PRESSURE  DROP  TO  BE 
CALCULATED#  2  FOR  TUBE  DIAMETER  AND  PRESSURE 
DROP  TO  BE  CALCULATED) 

SETS  BOILER  LENGTH 


■ 


. 


C-12 


FLAGJ  -  JFLAG  UTILITY  ROUTINE 

«  SETS  THE  Flag  jFlag  fqr  the  T(JBE  pASS  (1  fqr 
SIMULATION  —  (TUBE  NUMBER  GIVEN*  EXIT 
TEMPERATURE  TO  BE  CALCULATED)*  2  FOR  DESIGN  — 
(EXIT  TEMPERATURE  GIVEN*  TUBE  NUMBER  TO  BE 
DETERMINED) 

-  DEFINES  ESTIMATE  FOR  EITHER  EXIT  TEMPERATURE 
OR  TUBE  NUMBER 

FLAGS  FOR  MULTIPLE  TUBE  PASS  DESIGN  IF  THIS  IS 
TO  BE  DONE 


NCALC 


HLOSS 


PDROP 


INLNB 


BOILER  TUBE  NUMBER  DETERMINATION  ROUTINE 
CALCULATES  COMPOSITION  AT  SPECIFIED  TUBE 
PASS  EXIT  TEMPERATURE 

CALCULATES  HEAT  LOSS  FOR  EACH  ESTIMATED  TUBE 
NUMBER  —  ITERATES  ON  TUBE  NUMBER  UNTIL  DESIRED 
HEAT  LOSS  IS  ACHIEVED 

FOR  EACH  ESTIMATE  TUBE  DIAMETER  AND/OR 
PRESSURE  DROP  ARE  CALCULATED 
FOR  MULTIPLE  TUBE  PASS  DESIGN*  CALCULATES 
TOTAL  HEAT  LOSS  FOR  TUBE  PASSES  INVOLVED*  USING 
AVERAGED  COMPOSITION  AND  ESTIMATED  INTERMEDIATE 
TUBE  PASS  EXIT  TEMPERATURES  —  TUBE  PASSES 
INVOLVED  ARE  ASSUMED  IDENTICAL 

BOILER  TUBE  PASS  HEAT  LOSS  CALCULATION  ROUTINE 
CALCULATES  TOTAL  HEAT  LOSS  (CONVECTIVE  AND 
RADIATIVE)  FOR  A  SINGLE  PASS 
IGNORES  RADIATION  EFFECT  IF  AVERAGE  STREAM 
TEMPERATURE  IS  LESS  THAT  900  DEG «  F 
USES  GIVEN  FEED  TEMPERATURE*  AVERAGE  TUBE  PASS 
COMPOSITION  AND  EITHER  SPECIFIED  OR  ESTIMATED 
TUBE  EXIT  TEMPERATURE  FOR  CALCULATION  OF  HEAT 
LOSS 

CALCULATES  EMISSIVITY  AND  ABSORPTIVITY  OF  GAS 
BY  LINEAR  INTERPOLATION 

BOILER  TUBE  PASS  PRESSURE  DROP  CALCULATION 
ROUTINE 

CALCULATES  PRESSURE  DROP  IF  TUBE  DIAMETER 
SPECIFIED  (  I F  L  AG  =  1  ) 

FINDS  MINIMUM  VALID  TUBE  DIAMETER  (FOR  GIVEN 
TUBE  NUMBER)  WHICH  WILL  RESULT  IN  LESS  THAN 
SPECIFIED  MAXIMUM  ALLOWABLE  PRESSURE  DROP 
(  I  FL.  AG  =  2  ) 

FOR  ( I FLAG=  2 )  »  STOPS  ALTERNATION  BETWEEN  TWO 
DIAMETERS  IF  ALTERNATING  SHOULD  OCCUR 

PRIMARY  IN-LINE  BURNER  ROUTINE 
INITIALIZES  CALCULATIONS  --  THEN  DESIGNS  OR 
SIMULATES  AN  IN-LINE  BURNER 


‘ 
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BRNXC 


CNVTR 


CRBED 


defines  equipment  feed  and  product  streams 

BURNER  REACTION  CHAMBER  UTILITY  ROUTINE 
DESIGNS  OR  SIMULATES  A  COMBUSTION  CHAMBER 
(IN-LINE  BURNER*  BOILER  MUFFLE  FURNACE  OR 
BOILER  FIRE  TUNNEL) 

FINDS  ADIABATIC  FLAME  TEMPERATURE  OF  REACTION 
DESIGN  CASE  —  FINDS  SUITABLE  COMBUSTION 
CHAMBER  LENGTH  AND  DIAMETER 

SIMULATION  CASE  —  FINDS  REACTION  RESIDENCE 
TIME  AND  UNIT  VOLUME  HEAT  RELEASE 

PRIMARY  SULPHUR  CONVERTER  ROUTINE 
INITIALIZES  CALCULATIONS  —  DEFINES  FEED  AND 
DESIGNS  OR  SIMULATES  CONVERTER  BED 
DOES  ADIABATIC  REACTION  TEMPERATURE  CALCULATION 
CHECKS  DEW  POINTS  WITHIN  THE  CONVERTER  BED 
DEFINES  OUTLET  STREAM 

CONVERTER  BED  UTILITY  ROUTINE 
CALCULATES  TOTAL  MASS*  MOLES*  AND  GAS  VOLUME 
DESIGN  —  DETERMINES  REQUIRED  CROSS-SECTIONAL 
AREA  AND  DEPTH  OF  BED 

SIMULATION  —  CALCULATES  MOLAR  FLOWRATE 
AND  SUPERFICIAL  VELOCITY  THROUGH  THE  BED 
BOTH  CASES  —  CALCULATES  PRESSURE  DROP  ACROSS 
THE  BED 


DEWCK  -  SULPHUR  DEW  POINT  CHECK  ROUTINE 

-  -  DIVIDES  CONVERTER  BED  TEMPERATURE  RISE  INTO 

INTERVALS  --  DOES  SULPHUR  SHIFT  AND  THEN 
CALCULATES  DEW  POINT  AT  EACH  INTERVAL  — 
CHECKS  THAT  IT  IS  BELOW  BED  TEMPERATURE 
-  ASSUMES  THAT  CONVERSION  REACTION  IS  LINEAR 
WITH  TEMPERATURE  ACROSS  THE  REACTION  ZONE  OF 
THE  BED 


CONOR 


CINI  T 


PRIMARY  SULPHUR  CONDENSER  ROUTINE 
INITIALIZES  CALCULATIONS  —  DEFINES  CONDENSER 
FEED  AND  CALCULATES  TOTAL  INLET  SULPHUR 
DEFINES  GAS  AND  SULPHUR  OUTLET  STREAMS  AND 
STEAM  STREAMS  IF  PRESENT 
CHECKS  DATA  COMPATIBILITY 
'INTEGRATES'  DOWN  THE  CONDENSER 
CALCULATES  RESULTING  OVERALL  HEAT  TRANSFER 
COEFFICIENT*  STEAM  PRODUCTION*  AND  OUTLET  FOG 
IN  GASEOUS  CONDENSER  OUTLET  STREAM 
STORES  CONDENSER  OUTLET  STREAMS. 

CONDENSER  INITIALIZATION  ROUTINE 

SETS  STEAM  PRESSURE  AND  CALCULATES  STEAM 

TEMPERATURE 


' 


014 


CINTG 


CSECT 


CHBAL 


AQFND 


IDENTIFIES  S8  AND  LIQUID  SULPHUR  SPECIES 
INITIALIZES  SULPHUR  CONDENSATE  FILM  STREAM 

-  SETS  CONDENSER  TUBE  DIAMTER 

“  DESIGN  CASE  —  DEFINES  CONDENSER  GAS  OUTLET 
TEMPERATURE 

“  SIMULATION  CASE  —  DEFINES  CONDENSER  LENGTH 

“  EITHER  CASE  —  DEFINES  NUMBER  OF  TUBES  AND 
'INTEGRATION*  TEMPERATURE  INTERVAL 

CONDENSER  'INTEGRATION*  ROUTINE 
INTEGRATES  DOWN  THE  CONDENSER  TUBES  BY 
BREAKING  THE  CONDENSER  INTO  SEGMENTS  DEFINED 
BY  TEMPERATURES 

-  FOR  EACH  SEGMENT  OUTLET  TEMPERATURE »  CALCULATES 
SULPHUR  VAPOR  PRESSURE  AND  MOLES  OF  SULPHUR  AT 
SATURATION  —  FINDS  MINIMUM  SULPHUR  CONDENSATION 
FOR  SEGMENT  TO  PREVENT  SUPER-SATURATION  AT  OUTLET 
CALCULATES  SEGMENT  LENGTH  AND  PRESSURE  DROP  — 
DOES  A  SULPHUR  SHIFT  AT  EACH  SEGMENT  OUTLET 

“  AT  END  OF  CONDENSER  (DEFINED  BY  TEMPERATURE  FOR 
DESIGN  OR  LENGTH  FOR  SIMULATION)  RATIOS 
PORTION  OF  LAST  SEGMENT  TO  USE.  (ASSUMES 
COMPOSITION*  PRESSURE*  TEMPERATURE  AND  HEAT  LOSS 
ARE  LINEAR  WITH  LENGTH  OVER  LAST  SEGMENT) 

“  CONDENSER  SEGMENT  UTILITY  ROUTINE 

~  FINDS  CONDENSER  SECTION  AREA*  HEAT  LOSS  AND 
OUTLET  GAS  (INCLUDING  FOG  FORMED)  AND  SULPHUR 
FILM  STREAMS 

-  CALCULATES  AVERAGE  SEGMENT  PROPERTIES* 

INCREMENTAL  PRESSURE  DROP*  MOLECULAR  VOLUME* 
DIFFUSIVITY  AND  GAS-SIDE  HEAT  TRANSFER 
COEFFICIENT 

CONDENSATE  FILM  HEAT  BALANCE  ROUTINE 
ITERATIVELY  ESTIMATES  THE  SEGMENT  SULPHUR  FILM 
TEMPERATURE  SUCH  THAT  THE  FILM  HEAT  BALANCE  IS 
SATISFIED 

"  CALCULATES  SULPHUR  VAPOR  PRESSURE  AND  LATENT 
HEAT  OF  VAPORIZATION  AT  FILM  TEMPERATURE*  MASS 
TRANSFER  COEFFICIENT*  HEAT  LOSS  FROM  GAS  TO 
FILM  AND  FROM  FILM  TO  STEAM  FOR  EACH  ESTIMATE 
OF  FILM  TEMPERATURE 

CONDENSER  SEGMENT  HEAT  BALANCE  ROUTINE 
ITERATIVELY  ESTIMATES  THE  SEGMENT  LENGTH  SUCH 
THAT  A  HEAT  BALANCE  ON  THE  SEGMENT  IS  SATISFIED 

-  FOR  EACH  ESTIMATE  OF  LENGTH*  THE  SEGMENT  MASS 
AND  HEAT  TRANSFER  ARE  CALCULATED  —  THE  SEGMENT 
OUTLET  STREAMS  ARE  FOUND  AND  THEIR  ENTHALPY  IS 
CALCULATED 

-  CHANGE  IN  SEGMENT  STREAM  ENTHALPIES  MUST 


' 

•  A 


C-15 


FOGST 


COMBN 


FINDE 


CMBDV 


A  I  RAD 


INCIN 


EQUAL  SEGMENT  HEAT  LOSS 

-  SEGMENT  OUTLET  MUST  BE  SATURATED  OR  SUPER-HEATED 
—  OTHERWISE  FOG  IS  FORMED  UNTIL  SATURATION  IS 
REACHED 

-  CONDENSER  OUTLET  FOG  DETERMINATION  ROUTINE 

-  SETS  OUTLET  FOG  TO  SPECIFIED  MAXIMUM  IF  THIS 
HAS  BEEN  SPECIFIED 

-  CALCULATES  CONDENSER  PERCENTAGE  CONDENSATION 
AND  SULPHUR  RECOVERY 

-  STORES  CONDENSER  OUTLET  STREAMS 

-  PRIMARY  ADIABATIC  STREAM  COMBINER  ROUTINE 

-  DEFINES  EQUIPMENT  FEED 

-  CHECKS  DATA  FOR  COMPATIBILITY 

-  FINDS  ADIABATIC  OUTLET  TEMPERATURE 
(SULPHUR  SHIFT  REACTION  ALLOWED  ONLY) 

-  IF  INFORMATION  RECYCLE  STREAM  EXISTS*  PREDICTS 
WHAT  UPSTREAM  STREAM  SPLIT  SHOULD  BE  TO  YIELD 
DESIRED  OUTLET  TEMPERATURE.  (USES  RESULTS 

OF  THIS  PREDICTION  AS  PRESENT  EQUIPMENT  OUTLET 
STREAM ) 

-  CALCULATES  OUTLET  STREAM  SULPHUR  AND  WATER  DEW 
POINTS  AND  STORES  RESULTING  OUTLET  STREAM 

-  STREAM  SPLIT  PREDICTOR  ROUTINE 

-  DEFINES  INFORMATION  STREAM  AND  HOT  AND  COLD 
PROCESS  INLET  STREAMS 

-  USING  THE  SECANT  METHOD*  ITERATIVELY  ESTIMATES 
UPSTREAM  SPLIT  TO  YIELD  DESIRED  OUTLET 
TEMPERATURE 

-  FOR  EACH  ESTIMATE*  EVALUATES  EFFECTS  ON  HOT  AND 
COLD  STREAMS  —  DOES  SULPHUR  SHIFT  AND  THEN 
FINDS  RESULTING  OUTLET  TEMPERATURE  (NEWTON'S 
METHOD ) 

-  STORES  PREDICTED  SPLIT  IN  INFORMATION  STREAM 
WHEN  CONVERGENCE  ACHIEVED 

-  PRIMARY  STREAM  COMB  I NER / D I  V  I DER  ROUTINE 

-  COMBINES  UP  TO  5  INLET  STREAMS  AND  CALCULATES 
RESULTING  TEMPERATURE  AND  PRESSURE 

-  DIRECTS  COMBINED  STREAMS  TO  A  SINGLE  OUTPUT 
OR  DIVIDES  THE  STREAM  BETWEEN  TWO  OUTLETS 

-  PRIMARY  COMBUSTION  AIR  ADDER  ROUTINE 

-  DEFINES  ACID  GAS  FEED  AND  IDENTIFIES  AIR  STREAM 

-  FINDS  AIR  REQUIREMENTS  AND  ADDS  AIR  TO  ACID 
GAS  TO  FORM  OUTPUT  STREAM 

-  STORES  OUTPUT  AND  AIR  INLET  STREAMS 

-  PRIMARY  TAIL  GAS  INCINERATOR  ROUTINE 

-  IDENTIFIES  FUEL  GAS  STREAM  AND  DEFINES  FEED 


016 


STACK 


STAKU 


VAPORIZES  ANY  INLET  LIQUID  SULPHUR 
SIMULATION  —  COMBINES  PROCESS  GAS  INLET  AND 
(FUEL  AND  AIR)  INLET  AND  DETERMINES  THE 
ADIABATIC  FLAME  TEMPERATURE 

DESIGN  —  ITERATIVELY  ESTIMATES  THE  AMOUNT  OF 
FUEL  (AND  AIR)  REQUIRED  TO  ACHIEVE  THE  DESIRED 
OUTLET  TEMPERATURE.  FOR  EACH  ESTIMATED  FUEL  AND 
AIR  ADDITION*  CALCULATES  RESULTING  TEMP. 
CONVERGENCE  ACHIEVED  USING  SECANT  METHOD 
STORES  OUTLET  STREAM  (AND  AIR  AND  FUEL  STREAM 
FOR  THE  DESIGN  CASE) 


PRIMARY  EXHAUST  GAS  STACK  ROUTINE 
IDENTIFIES  S02  (POLLUTANT  SPECIE) 

CALCULATES  EQUIVALENT  AMBIENT  AND  STACK  OUTLET 
TEMPERATURES*  TOTAL  AND  POLLUTANT  FLOWRATES 
AND  STACK  VELOCITY 

DETERMINES  REQUIRED  STACK  HEIGHT  (DESIGN)  OR 
MAX  GROUND  CONCENTRATION  OF  POLLUTANT 
(SIMULATION) 

OPTIONALLY  DESIGNS  SEVERAL  STACKS  WITH  VARYING 
STACK  VELOCITIES 


STACK  UTILITY  ROUTINE 

CALCULATES  MAXIMUM  GROUND  CONCENTRATION  OF 
POLLUTANT  (S02)  AND  DISTANCE  TO  THE  MAXIMUM  AT 
SEVERAL  WIND  VELOCITIES  FOR  BOTH  MODERATELY 
STABLE  AND  MODERATELY  UNSTABLE  ATMOSPHEFIC 
CONDITIONS 

THE  MINIMUM  STACK  HEIGHT  REQUIRED  FOR  A 
MAXIMUM  ALLOWABLE  GROUND  CONCENTRATION 
IS  FOUND  IN  THE  DESIGN  CASE. 

FOR  THE  SIMULATION  CASE*  THE  MAXIMUM  GROUND 
CONCENTRATION*  THE  CORRESPONDING  WIND  SPEED 
AND  DISTANCE  TO  THE  MAXIMUM  FOR  A  GIVEN  STACK 
HEIGHT  ARE  FOUND 
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FIG.  C-l 


PROGRAM  STRUCTURE 


C- 18 


MAINLINE  EXECUTIVE 


con  t i nued 


C- 19 


DATA  INPUT  MODULE 


CALCULATION  SEQUENCE  OPTIMIZATION  MODULE 


.  . .  con t i nued 


C  —  2  0 


.  . . .  con t i nued 


C-21 


ADIABATIC  STREAM  COMBINER  MODULE 


. . .  con t i nued 


C-22 


. .  .  con t i nued 


C-23 


STREAM  COMBINER/DIVIDER  MODULE 


. . .  con t i nued 


C  —  2  4 


. . .  con  t i nued 


C-25 


COMPOSITION  CALCULATION  MODULE 


FIG.  C-2 


SUBROUTINE  LINKAGES 


26 


PROG. NAME 

STORAGE 

PROG. NAME 

STORAGE 

PROG. NAME 

STORAGE 

MAIN 

1032 

SHIFT 

1328 

FLAGI 

944 

RCYCL 

2712 

MINFE 

3520 

FLAG  J 

1792 

TIMER 

680 

INIT 

2104 

NCALC 

2760 

PRINT 

880 

YMODY 

1648 

HLOSS 

2256 

FDSTM 

944 

GAUSS 

1544 

PDROP 

1440 

DSECT 

1120 

I  NPUT 

2424 

INLNB 

704 

OUTPT 

4992 

INPTO 

2216 

BRXNC 

2528 

SUTIL 

1552 

INPT1 

2992 

CNVTR 

1024 

PRNTS 

1536 

INPT2 

3088 

CRBED 

1864 

COMPR 

776 

INPT3 

3384 

DEWCK 

1384 

SET  VU 

336 

INPT4 

3120 

CONDR 

1888 

HFCAL 

1392 

INPT5 

2048 

CINIT 

2616 

VPRES 

1024 

FF  INP 

4144 

CINTG 

2136 

DEWPT 

1552 

SPECL 

1856 

CSECT 

2144 

FINDT 

720 

OPTIM 

1272 

CHBAL 

1728 

TCALC 

2280 

REDUC 

4544 

AQFND 

1264 

GUESR 

672 

DELTA 

864 

FOGST 

2144 

PROP 

1464 

EXCHN 

1752 

COMBN 

1368 

SUMER 

928 

DCHCK 

1 464 

FINDE 

1792 

PRCNT 

2552 

F  I  NSH 

1280 

CMBDV 

1632 

STEAM 

1456 

SEQNC 

2000 

A  I  RAD 

2056 

AIRFD 

1680 

RXWHB 

2088 

INCIN 

3216 

BKBOX 

1120 

BINIT 

1896 

STACK 

3552 

COMP 

1944 

DOPAS 

1528 

STAKU 

2216 

FAKER 

576 

SUBROUTINE 

CORE  REQUIREMENTS 

IN  BYTES 

(TOTAL  IS 

135  K) 

COMM. NAME  STORAGE  COMM. NAME  STORAGE  COMM « NAME  STORAGE 


GEN  1 

80 

EXEC  1 

408 

HTLS1 

32 

GEN  2 

176 

STOR1 

5648 

BURN  1 

3  2 

DATA1 

424 

FLOW  1 

1508 

BURN2 

24 

DAT  A2 

320 

I  NPUT 1 

416 

CONDI 

108 

DAT  A3 

1120 

I N  PUT  2 

220 

STAK1 

24 

DATA4 

240 

OPT  1 

2816 

STAK2 

40 

DAT  A5 

184 

OPT2 

312 

EXTRA 

8 

LABELLED 

COMMON  CORE 

REQUIREMENTS 

IN  BYTES 

( TOTAL 

IS  14 

TOTAL  PROGRAM  CORE  REQUIREMENTS  (INCLUDING  I.B.M.  360/67 
SYSTEM  ROUTINES)  ARE  ABOUT  175  K  BYTES. 


TABLE  C-l 


PROGRAM  CORE  REQUIREMENTS 


- 

• 

0-1 


APPENDIX  0 


PROGRAM  LISTING 


ROUTINE  PAGE 


EXECUTIVE . AND . UTILITY . ROUTINES 


MAIN . 0-3 

RCYCL  .  .  .  . . 0-5 

TIMER . 0-9 

PRINT . 0-10 

FD  STM . 0-11 

DS  EC  T '. .  .  .  .  0- 12 

OIJTPT  . . 0-13 

SUTIL . D- 1 7 

PR  NT  S . .  D- 19 

COMPR . 0-21 

SETVU . D-22 


AUXILIARY  ROUTINES 


HFCAL . 0-23 

VP  RE  S  . . 0-25 

OF  W»t . 0-2  6 
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PROP . 0-35 

SUMER . 0-37 
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AIRED . 0-44 

BKROX . 0-46 


COMPOSITION  CALCULATION  ROUTINES 


COMP  . 0-48 

SHIFT  ....  0-51 

M I  NEE  ...  0-53 

IN  I T . 0-56 

YMODY . 0-59 

GAUSS . 0-62 

FAKE  R.  .  .  . . . 7 . 7 . .  .  . . . . .  ~ . . . .  .  .  0-64 


.  . 

. 


- 


' 


DATA  INPUT  ROUTINES 


INPUT 

IN  pf  0 

INPT1 

INPT? 

INPT3 
IN  DT4 
INPT5 
FF  INP 
SPFCL 


0-66 
. 0-71 

0-74 

0-79 

0-83 

0-89 

0-94 

. 0-97 

D-103 


CALCULATION  SEQUENCE  OPTIMIZATION 

ROUTINES 

OPTIM  . 

0-106 

REOUC  . .  . 

0  F  I  TA . 

EXCHN  .  ....... 

0- 1  09 

0-117 

C-119 

DC  HC.  K  .  . . . . 

FINSH . .  . 

SEQNC  . 

0-122 

0-125 

0-128 

EQUIPMENT  MODULES  ROUTINES 

RXWHB  . 

B  I  N  I  T . 

oopas  . 

0-132 

0-135 

D-138 

FLAG  I . 

FLAGJ . .  .  .  .  . 

NCALC . 

0-140 

0-142 

P-145 

HL  OS  S . 

POROP . .  .  . 

INLNB  .....  . 

0-148 

0-151 

0-153 

BR  XNC . 

CNVTR . 

CP  BED . 

0-154 

0-158 

0-160 

OE  VIC  K . 

CONOR  . 

Cl  NTT . 

0-163 

D— 165 
0-167 

CINTG . .  .  . 

CSECT  . 

CHBAL  . 

0-171 

0-175 

0-178 

AQFND  . 

FOGST  .  .  . 

CO MSN  ....  . 

0-181 

0-184 

0-186 

F  I  NO  E . 

CMBDV  . 

A IRAQ  ....  . 

0-188 

0-191 

0-193 

INC  IN . 

STACK . 

STAKU  . 

D- 195 
0-198 
0-201 
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MAINLINE  PROGRAM 


FUNCTIONS  - 


ijc 


—  M 


1A INLINE  EXECUTIVE  ROUTINE 


* 


r 

C 

c 

c 

c 

c 


TRANSFERS  CONTROL  TO  INPUT  EXECUTIVE  AND 
CALCULATION  OPTIMIZATION  EXECUTIVE 
INITIALIZES  EQUIPMENT  MODULE  CALCULATIONS  AND 
CALLS  APPROPRIATE  EQUIPMENT  MODULF  FOR  THE 
CALCULATIONS  FOR  EACH  EQUIPMENT  UNIT  IN 
THE  FLOWSHEET 


* 


❖ 

* 


c 

c 

c 


* 

* 


-  CALLS  CALCULATION  SUMMARY  ROUTINE  WHEN 
PROCESS  CALCULATIONS  COMPLETED 


❖ 


■'f  V  'iv  *i“ 


COMMON  /GEN1/IWRIT, ID8UGI 15), I TE S T , CR I T , NGMS f NTOT 

’  COMMON  /EXEC1/JTYPE(25),INDEX{25),ISEQ(25),I A SUM! 25) 

$, I SUPRt TOPT 

COMMON  /STQRI/EQUIP (300) , I LOC , NMR E Q, STREM { 50,22) 

$ , NS  INIS) , NS  OUT ( 5 ) 

C  OM MON  / E  X  TR  A /N  D UMY , T DU MY 

CALL  TIMFR _ 

CALL  INPUT 
CALL  TIMER 
IF{in°T)  29,29,30 
29 CALL  SEQNC 
GO  TO  31 

30  CALL  OPTIM _ _ 

31  CALL  TIMER 
NDUMY-0 

DO  150  1=1,25 

I  F(  JTYPFf  H-IJ  150,151,  150 

150  CONTINUE 

_ GO  TO  30  0 _ _ _ 

151  I LOC= I NDEX ( I ) +2  5 
TDUM1  =  ABS (EQUIP!  I  L  OC ) ) 

_W RI TE (6, 100 01 

1  < ) 0 0  F  ORMA T ( 1 0  N  D UM Y  /TDUMY  < I 2 , 1 X, F5 . 0 ) * ) 

RE AD { 5 , 100 1 , ENO=  2  00 )  NO UMY , T  DU MY 

1001  FORMAT! I  2, 1 X,F5 . 0) 

200  T  HUM  Y= S E  TVU ( TDUMY , TDUM1 ) 

WRITE ( I WRIT ,1002 )  TDUM1 

1002  FORMAT! ///T 26* PRIMARY  REACTION  CUT-OFF  TEMPERATURE 
$  ( BOILER )  = • E6. 0 

1 , 1  OEG.F*  ) 

IF(NDUMY)  205,205,203 
203  I  DUMY -NGMS-NDUM Y 

WRITE ( I WRIT  ,1003 )  TDUMY, I DUMY 

1003  FORMAT ( / T29 , *  SECONDARY  REACTION  CUT-OFF  TEMPERATURE 
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MAINLINE  PROGRAM  .  ..(CONT'D) 


$  =*E6.0, 

l'  DEG*  F  * / / T  3  3  * ( BELOW  THIS  TEMPERATURE,  THE  LAST  'I?' 
$  GASEOUS’/ 

2T34* MOLECULAR  SPECIES  ARE  MASKED  FOR  THE  BOILER* /T34 
3’ AND  THE  CONVERTER  COMPOSITION  CALCULATIONS.)') 


205 

9000 

WRITE!  I  WRIT  ,9000  ) 

FORMAT!  '  0  *  ,  T  2  5 ,  *  t-  * 

J/  <.1/  »*'  sir  X  X  X  v*-»  X 

't"  "v*  -r*  'r'  ^  '■>"  -i" 

300 

1  X  si/  X  X  S</  si/  v*-  X  X  s'/  1  /  \ 

L  *,-s  -/p  /,S  ,j-s  ^s  rfs  /  j 

CONTINUE 

I  ST  AT  =  0 

21 

NMREQ= I S  EO ( 1) 

I LOC= I NDEX ( NMBEO ) 

IEQIP  =  JTyc»E(NMBEG) 

CALL  PRINT! IEQI P ,NMBEQ) 

CALL  FDST.M 

CALL  OSECT  (IEQIP) 

1 

GO  TO  (1,2,3,4,5,6,7,3,9,10)  ,IEQIP 

CALL  RXWH8 

GO  TO  100 

2 

3 

CALL  INLNB 

GO  TO  100 

CALL  CNVTR 

4 

GO  TO  100 

CALL  CONOR 

GO  TO  100 

5 

6 

CALL  COM BN 

GO  TO  100 

CALL  CM3DV 

7 

GO  TO  100 

CALL  AIRAD 

GO  TO  10  0 

8 

9 

CALL  INC  IN 

GO  TO  100 

CALL  STACK 

10 

100 

GO  TO  100 

CALL  BKBOX 

CALL  DSECT(IEQIP) 

CALL  RCYCL (  I  ST  AT ) 

CALL  TIMER 

TFINMBEQ)  20,20,21 

20 

I  TF  ST  ■=  ID  BUG!  15) 

CALL  PRCNT13) 

CALL  OUTPT 

3000 

CALL  TIMER 

WRITE ( I WRIT ,3000 ) 

FORMAT! '  1  ’ ) 

CALL  EXIT 
END 


(  r  '  '  . , . 


"  ;,aj  ;  ,  -s  ■  1  !  )  "  "V  •  , o  •  ' 

v  •  ?  it 

\ r  Mi  ■  (■  ■  ;•  '  ’•  jt  »  • 

f 

t  •  7  !  ’ 

*  ,  ?  1  *  ’■ 

n  ’ 1  '  i 

}  '  r 

■  t  ■  : 

(  o  ■  ’  ) 

‘  ,  f  ?  ♦  ,  V  ,  • 

!  I 


sr 

l 

• 

,  '  t  'V  ( 


0-5 


C 

C 

c 

c 

c. 

c 

c 

c 

c 

c 

c 
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c 
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c 
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❖ 


SUBROUT  INF  RCYCL  * 

r  UNCT IONS  -  * 

❖ 


*  _ - _ CALCULATION  RECYCLE  CONTROL  ROUT  INE _ _ _ * 

*  -  DETECTS  IF  AND  WHEN  PROCESS  CALCULATION  * 

*  RECYCLE  IS  REQUIRED  * 

*  -  RECYCLES  CALCULATIONS  WHEN  ALL  PREVIOUSLY  * 

*  ASSUMED  STREAM'S  HAVE  BEEN  CALCULATED  * 


*  -  CHECKS  FOR  RECYCLE  CALCULATION  CONVERGENCE  * 

*  _ WHEN  RECVCLE  LOOP  COMPLETED _ _ _* 

*  -  CONTROLS  THE  ACTIVE  POSITION  IN  THE  CALCULATION  * 

*  SEQUENCE  VECTOR  * 


❖ 


jjt#  #  i:  ^  ^  %  s*;  ❖  4  ❖  ❖❖❖❖❖❖ 


SUBROUTINE  RCYCL (ISTAT) 

DIMENSION  I  CALC ( 25) ,  SSTGR ( 25, 3) 

COMMON  /GEN1/IWR  IT , IOBUGC 15  )  , ITEST , CR IT, NGMS , NTOT 
C  DM  MON  /LCFC1./J  TYPE!  25)  ,  I  NO  E  X  (  2  5  )  ,  I  SE  Q  (  2  5  )  ,  I  A  SUM  {  25) 
5, ISUPR, I  OPT 

COMMON  /ST0R1/EQUIPI300) , I LOC , NMR EQ, STRFM { 50,22) 

$, NS  IN (5)  , NSOUT ( 5) 

COMMON  /FL0W1/I N  FO  { 75 ,5 ) , NNEQP,N0STM 


C*****  INITIALIZE  IF  AT  BEGINNING  OF  CALCULATIONS 


IF (ISTAT)  400,400,402 

400  DO  40 1  1=1, 25 

401  I  CALC (  I  ) =0 
T  PM T 0=1 

I PN  T1  =  0 
T  PL  AC  =  1 
I STA  T= 1 

402  CONTINUE 


C*****  IF  NO  STREAMS  NEED  8E  ASSUMED,  OMIT  CHECKS. 


IF (  I ASUM (  in  200,200,009 

C ❖❖❖❖❖  CHECK  IF  ANY  INPUT  STREAMS  WERE  ASSUMED. 


00 q  NSTRM=IASUM( IPNT1+1 ) 

IF(NSTRM)  2,2,HH 
101  N  EQ  I P  -  I N FQ ( NST RM , 3 ) 

I F ( NMBEQ-NE  QI P )  2,1,2 
1  I PNT1=IPNT1+I 

I F (  ID BUG (15  ) -3 )  909,810,810 
810  WRITE  UWRIT, 2222)  NSTRM 
2222  FORMAT ( T25 '  ASSUMEn  STREAM  *13) 
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SUBROUTINE  PXYCL  .  .  .  (CONT  «  D  ) 


GO  TO  999 

C  A-  >*-  vC 

'f  ***  *v  ¥ 

f*  ^  jJj  ■ 

*  CHECK  IF  AMY  PREVIOUSLY  ASSUME!)  STREAMS  WERF 

*  CALCULATED. 

2 

IFL AG-0 

DO  3  I  J= I PN  TO , I PNT 1 

MST  RM= I  A  SUM { I J) 

102 

IF(NSTRM)  200,200,102 

NEQ I P  =  I NFO( N  S  T  R  M  ,  2 ) 

I  F { NEG  IP-MMBEQ)  3,4,3 

4 

I FL AG=1 

I CALC  C I J )  =  1 

I  F {  I9BUG ( 15  1-3)  3,811,811 

811 

2223 

3 

WRITE ( IWRIT ,2223 )  NSTRM 

FORMAT ( T25 ’  CALCULATED  STREAM  *13) 

CONTINUE 

IF {  If  LAG )  200,200,  100 

c 

*  CHECK  IF  RECYCLE  LOOP  COMPLETED. 

100 

CONTINUE 

no  10  IJ=IPNTOf IPNTl 

10 

IEUCALC(IJ))  200,200,10 

CONTINUE 

O  v*»  %(/  -J» 

^ 

*  RFCYCLE  LOOP  COMPLETE,  CHECK  CONVERGENCE. 

I CONV- 1 

CRI T1=CRIT**0.5 

DO  50  I J=  T  PNTO , I PNT1 

N  ST  RM= I A  SUM ( I J  ) 

20 

IF!  INFO (NSTRM, 5)  )  20,30,30 

NEQ  IP= INFO( NSTRM, 3) 

DO  25  1=2, 6, 2 

21 

NUMBR  =  ABS  I  STREMC  NSTRM,  1-1  )  )  -*-0.5 

I F { NUMBR )  2  5,25,21 

DVALU  =  A8S< STREAK  NSTRM,  I) )+l  .E-10 

22 

24 

I F ( ARS< OVAL U-SS TOR! I J, 1/2) ) /OVA LU-CR I T 1 )  24,24,22 

T  C0NV  =  0 

S  ST  OR  ( I  J  ,  I  /  2  )  =D  V  A  LU 

25 

I LOC= INDEX ( NEQI °  )  +NUM0R 

EQUIP ( I LOC) =DVALU 

CONTINUE 

30 

GO  TO  50 

YTOT=0.0 

DO  31  I  =  1 , N  TOT 

31 

32 

YTOT=YTOT  +  ABS( ST  REM (NSTRM ,  I  )  )  +  1 . E- 1 0 

IFC ABS( YTOT-SSTORI I J , 1 )  ) /YTOT-CR IT  1 )  33,33,3  2 

I C0NV=0 

t 
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SUBROUTINE  RCYCL  .  ..(CONT'D) 


33  SST0RUJ  ,1)  =YTOT 

TEMP=A8S ( STREMI NSTRM, 21 ) )+l.E-10 
I  PC A8S  t TEMP-S STOR  U  J7HT/TE  MP-CRTfl 1  3  5,35,34 

34  ICONV-O 

35  SSTORC IJ ,2) -TEMP 

PRE  SS  =  ABS { STREMC NSTRM , 22) )+l.E-10 
I F  < ABS( PRESS-SSTORI  I J , 3 ) ) /PRESS-CRI T 1 )  37,  37,36 

36  !  C  0  N  V  =  0 

37  S  S  T  0  R  ( I J ,3  5  =PRE S S 
50  CONTINUE 

IFUCONV)  60,60,59 


C*****  RECYCLE  LOOP  CONVERGED,  PROCEED  PAST  LOOP. 


59  IPNTO=IPNTi+i 
GO  TO  20 0 


C*****  RFCYCLE  LOOP  NOT  CONVERGED.  PROCEED  TO  BEGINNING 
C *****  OF  THE  RECYLCE  LOOP.  (IE.  LOOP) 


60 

NSTRM= I  A SUM { I PNTO) 

N  MB  E Q  =  I NF  0  (  NSTRM, 3) 

I STOR= I  PL  AC 

DO  6  1  I  =  i ,NNEQP 

I PL  AC  -  I 

I  F  <  ISEQC  D-NMBEQ)  61,62,61 

61 

CONTINUE 

WRI  TF ( IWR I T  ,5000) 

62 

CONTINUE 

DO  65  IJ-IPNTO, I PNT1 

65 

ICALC  < I J )  —  0 

I PNT1=IPNT0-1 

WRITE  { I  WRIT  ,1000)  ( ISEQ  (TH  I  =IPLAC*  I  STOR) 
GO  TO  900 


C*****  INCREMENT  TO  NEXT  EQUIPMENT  IN  SEQUENCE  VECTOR. 

200  IPLAC=IPIAC+1 

C*****  CHECK  FOR  CALCULATIONS  COMPLETE. 

IF  (  IPLAC-NNEQPl  201,201,202 

C*»*»*  SET  NEXT  EQUIPMENT  NUMBER  TO  RF  DONE. 

201  NMBEQ-I SEQ( IPLAC ) 

GO  TO  90  0 

C *****  FLAG  CALCULATIONS  COMPLETE. 
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SUBROUTINE  RCVCL 


(CONI’ D) 


202  NMBEQ=— 1 
900  CONTINUE 
RETURN 

1000  FORMAT ( ' O' T36 ' CALCULATI CNS  LOOPED  ON  RECYCLE  LOOP  -'/{ 
___  */T40,  101  3)  ) 

5000  FORMAT  {■'0  ERROR  IN  R  ECVCLE  CONTROL’) 

ENO 
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*  "  '  ’  )  T  /\  ’■ 

'  (  •  ■  r , 


’  :  '>  IT  1  ’  ) 
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0-9 


C 


3$:  afe  ^  sjcjjc^jfc  #  4s#  >>53{s  &  ;!:  ^  ']'  &  %  i'  i'-  #  jjc '!?  sjc  jJi  jfc  •?{.  ^c  &  ;>;  j£;Jt  ^c 


c 

c 

c 

c 

r 

c 


❖ 


SUBROUTINE  TIMER 

*  FUNCTIONS  - 

Jr 

*  -  COMPUTING  TIME  MONITOR  ROUTINE 


* 


C 

c 

c 

c 

c 

c 


❖ 


OPTIONALLY  ACTIVATED  Bv  COMPILE  TIME  DATA  FLAG 
USES  360/67  OS  SYSTEM  TIMER  ROUTINES 
f  C  S 0 1 9 A  AND  CS019B ) 

3Uf PUTS  TINE  INTERVAL  SINCE  LAST  CALL  AND 
TOTAL  COMPUTING  TIME  TO  CALL 


❖ 


c  *  ❖ 

x*r  -Jr  J/  Jr  Jr  J.  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  -Jr  J-  Jr  Jr  Jr  Jr  xtr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  xtr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr 

rpx  r,x  >|K  »jx  rp  -p  r. rps  r,x  rjx  r,x  rpv  rpx  ^  r,x  >jX  i,x  -p*  <j«  r,x  /yX  .rjX  M  r,->  /p.  rj\  r,x  rjx  r,x  >(x  r,x  r,x  r^X  r,x  »>  r,x  -{ .  «,x  r^x  r,x  <-,x  r^-x  r  - 

SUBROUTINE  TIMER 

COMMON  /GEN  1/ 1  WRIT, IDBUGC 15 ) , I  TEST , CR IT, NGMS  , NT  OT 

DATA  IFIRST ,TQTIMF/-2»0.0/ 

IF(IFIRST)  3,1,2 

I 

C  ALL  CS019A ( I  F I XI  100.* 1 .E-6/26.  )  ) 

I F I RST-l 

RETURN 

2 

CALL  CS019BIK) 

SEC =100 .-FLOAT ( K )  /  1 . F-6*26 . 

T0TIME=TQTI ME+SFC 

3 

WRITE (IWRIT ,1000)  SEC,T0TIME 

RETURN 

I F {  IF  IRST+2 )  5,6,4 

4 

5 

WRITE! IWRIT, 12341 

I F I RST=- 1 

RETURN 

1000  FORMAT { *  *  T25  *  T I  MER  INTERVAL  ='F6.2*  SEC.,' 

1  T62' TOTAL  TIME  =»F6.2*  SEC.’/) 

1234  FORMAT! *  0* ) 
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c 

c 

r 

v 

C 

c 

c 


* 

£ 


S  U8R0UT INF  PRINT 

FUNCTIONS  - 

-  OUTPUT  CONTROL  ROUTINE 


* 

* 

❖ 

* 


C 

c 

c 


c 

c 

c 


*  — 


*  _ 


SETS  OUTPUT  PRIORI  Tv  FLAG  FOR  MODULE 
CALCULATIONS  BEFORE  CONTROL  IS  TRANSFERRED  BY 
EXECUTIVE  TO  EQUIPMENT  MODULE 
IF  'PRINT  SUPPRESS*  OPTION  IS  USED , 
CALCULATION  OUTPUT  IS  SUPPRESSED  FOR  THE 
FIRST  PASS  THROUGH  RECYCLE  LOOPS 


❖ 

& 

* 

* 

* 


C 

c 

c 

c 


rfc  - 

■J* 

S' 

5)c 


CONTROLS  INITIALIZATION  OF  PAGING  FOR  EACH 
MODULE’S  OUTPUT 


* 


SUBROUTINE  PRINT { IEQI P,NMBEQ) 

DIMENSION  I  V  E  C ( 2  5  > 

COMMON  /GEN  1/ I  WRIT, I  DRUG ( 15 ) , I  TEST, CR I T, NGMS , NTOT 
COMMON  /EX ESI /J TYPE (25 1 , INDEX (25 I, I SEQ  ( 25) , I ASUMC25 ) 
$,  T  SUP R ,  I  0 P T 

COMMON  /FLOW1/INFO! 75,5) ,NNEQP, NOSTM 
DATA  IVEC, lLINE/25*0,50/ 

IFUSUPR)  200,2  00,  100 

100  IF( IVECCNMBEQ) )  104,104,101 

101  ISUPR-l  _ 

GO  TO  200 

104  I F  C I SUPR-2 )  105,900,900 

105  DO  110  1=1,25 

I  FI  I A  SUM ( I  )  )  1 10,1 10, 106 

106  NST  RM= I  A  SUM  1  I ) 

I  Ft  INFO! NSTRMi 3 I-NMBEQ)  110  ,  107, 1  10 

107  I SUPR-2 

109  WRITE! I WRIT ,1010) 

T  LI NE^O 

GO  TO  900 

110  CONTINUE 

2  00  ITFST=ID8UG( IEQIP)*2 
IF f I TEST )  202,202,201 

201  WRITE (I  WRIT, 10 10) 

_ I  L I NE  =  50 _ 

GO  TO  203 

202  I  LI NE  =  I L I NE  +  4 

IF! ILINE-50)  203,203,109 

2 03  RETURN 

900  I VEC ( NMBEQ) =1 

T  TEST  =  Q _ 

GO  TO  202 

1010  FORMAT! *  l* ////) 
end 
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v*r  J*  -A*  -N*r  A  -A»  V-  -V  JU  X  X  X  x  X  Or  -Or  X  Or  Or  Or  Or  Or  Or  Or  Or  Or  X  Or  X  Or  Or  Or  Or  Or  Or  Or  Or  X  Or  Or  Or  Or  Or  Or  Or  X  Or  Or  Or  Or  X  Or  Or 

rjV  r|S  r .  v  V  r,-»  >,«.  r,-  rjS.  -  v  r|X  rj%  ■»,%  r^iy  r^:s  *j*  r^\  r ^ »  r,-v  ..,x  r^v  «^s  r,«.  ,«,*»  -r^  v  r,v  rj-.  /y*  r***  rjt>  r^v  rjv  r^»  ^ V.  rjs  r^v  <^v  rf*  ry.  r*jV  ry>  rj>s  ^fV  *,v  <j»  r, «.  r,-s  r,^  r^v  ry.  r,x  r,  r 


C  *  SUQROUT INF  FDSTM  * 

P  Or  Or 

C  *  FUNCTIONS  -  * 

c  *  * 


C  *  -  EXECUTIVE  UTILITY  ROUT  INF _ _  _ _ * 

C  *  -  FINDS  STREAM  INPUTS  TO  ACTIVE  EQUIPMENT  NUMBER  * 
C  *  AND  STORES  IN  A  VECTOR  INSIN)  IN  THE  ORDER  * 
C  *  PROCESS »  SERVICE,  INFORMATION  —  LATTER  TWO  _  * 


r 

C 

C 

c 

c 


*  FLAGGED  NEGATIVE  * 

*  -  FINDS  STREAM  OUTPUTS  FROM  ACTIVE  EQUIPMENT  * 

*  NUMBER  AND  STORES  IN  A  VECTOR  (NSOUT)  AS  ABOVE  * 


5^  A  #  ❖  Jjt  ^  If.  ■if.  if  if  If  Sjc^  :Jc  sjtjjs  j{t  jjc  ^  ijt  $  :£  :jc  : 


SUBROUTINE  FDSTM 
DIMENSION  11111(3) 

COMMON  /GEN1/IWRIT, ID3UG! 15 ) ,  I  TEST, CR I T , NGMS , NTOT 

COMMON  / STQR1/EQUIP (300) , I  LOG , NMB E Q, ST REM ( 50 ,72) 
$,NSIN<5) , NS  OUT ( 5 ) 

COMMON  /FLOW1/ INFOI 75,5) , NNEQP, NOSTM 
DATA  II  III/ 0, 1,-1/ 

N  M A  X- 50 

_ I  CN  T  I  =0 _ _ 

I  ONTO  =  0 
DO  50  1=1,5 
N  S I N  CIJ  =  0 
50  NSOUT ( I ) =0 
I $IGN=+1 

DO  20  K=  1,3 _ _  _ _ 

'  I  T  S  T  =  I II  IKK  ) 

DO  1  1=1, NM AX 
I  F { I NFOt I,5)-ITST)  1,2,1 

2  I F f INFOi I , 3 )— NMBEQI  4,3,4 

3  ICNTI=ICNTI+1 

NS  INI  ICNTI  )  =  1*1  SIGN  _  _ 

GO  TO  T 

4  IF(  INFOI  I ,2 )-NMBEQ)  1,5,1 

5  ICNTCNICNT041 
NSOUT I  I  ONTO )  =  I*I SIGN 

1  CONTINUE 

_  I  SIGN--1 _ _ _  _ 

20  CONTINUE 

I F (  ID  BUG (  1 5  )  - 5 )  801,800,  300 

BOO  WRITE ( I WRIT  ,5000)  ( NS  INI H , 1=1 , ICNTI! 

WRITE  I IWRIT, 5001)  I NSOUT! I )  , 1  =  1 , ICNTO ) 

801  CONTINUE 

_ return _ 

5000  FORMA  T {  ' 0  INPUT  STREAMS  ARE  -  ’,513) 

5001  FORMAT!*  OUTPUT  STREAMS  ARE  -  ’,513) 

END 
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c 

c 

c 

❖ 

xV 

Jj 

SUBROUTINE  DSFCT 

xO- 

J. 

* 

c 

J# 

FUNCTIONS  - 

Jr 

V 

c 

J/ 

V 

❖ 

c 

* 

-  EXECUTIVE  DEBUG  OUTPUT  ROUTINE 

c 

c 

c 

c 

c 

c 


❖ 

* 

'*'  — 
* 

*  - 


OPTIONALLY  DUMPS  INPUT  AND  OUTPUT  STREAMS  AND 
RELEVANT  SECTION  OF  EQUIPMENT  PARAMETER 
VECTOR  FOP  ACTIVE  EQUIPMENT  NUMBER 
CALLED  BEFORE  AND  AFTER  EACH  EQUIPMENT  MODULE 
CALCULATION 

OUTPUT  RESULTS  ONLY  IF  EXECUTIVE  DEBUG  FLAG 


❖ 

* 

-A. 

‘T' 

V 

* 

$ 


c 

r 

\S 

C 


❖ 

•}» 


(ID BUG! 15))  IS  4  OR  GREATFR 


* 

* 


^  5*<  J1;  J*;  ^  'V  ^  ^  ^  Jo  -*<■  Jo  J#  '*o  Jo  Jo  *»o  Jo  Jo  Jo  Jo  Jo  Jo  Jo  Jo  Jo  Jo  Jo  Jo  -Jo  Jo  -Jo  Jo  Jo  Jo  Jo  Jo  Jo  -Jo-  Jo  - 

OjV  )0,X  Ot\  o,X  O^X  o^-v  o^  O-J-X.  OjX  oyx  OjX  0|X  0,X  O^X  O^S  Oj»  Oj-V  O^X  OjX  -OjX  OjX  >t  *  OjX  OjX  0(N  0|X  OfX  O^x  oys  o jX  OjX  ojx  o^X  OjX  OfX  Op.  OjX  -  op  Op  op  op  op  yx  Op  Op  op  op  XjX  Op  op  0|X  op  7;x  - 


SUBROUTINE  DSECT(IEQIP) 

PI  MEN SIGN  I  TYPE (10) _ 

COMMON  /GEN  1/ I  WRIT, ID3UG(  15  ),  ITEST , CRI T , NGMS , NT0T 
COMMON  / STOR 1 /EQUIP (300) , I LOC , NMBFQ, STR EM ( 50 , 22 ) 

*, NS  IN (5)  ,NS0UT( 5) 

DATA  I TYP E/23, 5, 3,12, 3, 2,6 ,7 , B,  1/ 

I F (  ID BUG ( 15  )-4 )  301,800,300 

8  00  CONTINUE  _ _ _ 

IL0C1=IL0C+1 
I LOC 2= I  TYPE ( I EQI P )  +  I LOC 

WRITE  ! IWRIT ,9999 )  (EQUIP! J) y J^ILOCI, I L  00 2 ) 

IF(ID8U8( 15 ) - 5 )  801,802,802 
302  WRITE! I WRIT, 9998) 

DO  1  1  =  1,5 _ _  _  _  _ 

IF( NS IN( I))  2,3,2 

2  J=IABS(NSIN( I ) ) 

WRITE (IWRIT ,9997)  J , ( STREM ( J , K ) , K - 1 , N T U T )  ,  STREM! J, 2  1 ) 
$, STREM! J , 22 ) 

1  CONTINUE 

3  WRI TE ( IWR I T  ,9096  ) 

DO  L0  1=1,5 

I  F( NS OUT  (  I)  )  12 , 301,  12 
12  J^IABSCNSOUTC I ) ) 

WRITE (  IWR I T ,9997 )  J, ! STREM! J ,K ) , K=1 ,NT0T) , STREM ( J,2  1) 
$ ,  S  T RE  M I J  ,  22  ) 

10  CONTINUE _ 

801  CONTINUE 
RETURN 

9999  FORMAT! *0  EQUIP  VECTOR  SEGMENT  -•  /  (•  *,10611.4)) 

9998  FORMAT! ’  0  INPUT  STREAMS  ARE  -«  ) 

9997  FORMAT (*  *,I3/(*  »,10E11.4)) 

9996  FORMAT ( *  0  OUTPUT  STREAMS  ARE  -»  ) _ 

END 
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& 

SUBROUTINE  OUTPT 

❖ 

❖ 

At 

r 

C 

At 

FUNCTIONS  - 

* 

c 

At 

V 

❖ 

c 

At 

-  PROCESS  CALCULATION  SUMMARY  OUTPUT  ROUTINE 

❖ 

C  «  -  OUTPUTS  SUMMARY  RESULTS  IF  EXECUTIVE  OUTPUT 

C  *  FLAG  (  IDBUG( 15) )  I S  1  OR  GREATFR 


❖ 


C  *  -  OUTPUTS  'OVER  ALL  PL ANT  MASS  AND  ENERGY  * 
C  *  BALANCES*,  *  EQUIPMENT  PARAMETER  SUMMARY*  AND  * 
C  *  'STREAM  COMPOSITION  AND  PROPERTY  SUMMARY’  * 
C  *  WHEN  ALL  PROCESS  CALCULATIONS  ARE  COMPLETE  * 
C  *  * 


■A»  At  iA«  s>»  -A>  *•>  d»  -J*  t/U  <4/  -J.  s'*  \0  > 

r  ay*  ^  -)%  >A  /p  -*fV  - 


-  nV  jrf  «!/  v'x  JU  4»  J»  V*^  J/  At  J#  Vo  Vo  Jo  Jo  V» 

.  Oj»  -0|V  O.V  Oj\  0,1,  0/1  Oj»  >|«  o,k  OJV  OjV  Oji  >jV  o(>  OjS  y*  _0^% 


1  Op  op  op  op  •*,■>  op  op  O^v  *p  op  op 


SUBROUTINE  OUTPT 

DIMENSION  CMTRX ( 20 »  5 ) » TOT  1 ( 5),T0T2(5)  , T0T3I51 ,T0T4(  5) 
$ , ENTH { 5 ) , 

' 1  VOL (5 )  ,TDEGF {5 )  ,TDEW( 5)  , PS  I  A { 5 ) , NSTRM(  5)  ,YC0MD(205 

DIMENSION  I  SPEC  (30) , PVECC30) » I  TYPE  (10) 

DIMENSION  Rll 5) ,R2( 5) ,R3 < 5 ) , R4( 5 > , R5 ( 5 ) , R6{ 5  ) ,R7(5) , 
1R8(5) ,R9(5) ,R10( 5) ,RN(5, 10) 

COMMON  /GEN  1 / I WR IT, IDBUGt  15 ) , ITEST,CRI T, NGMS , NTOT 
COMMON  /DAT A2/NAMEI  20,4) _ _ _ _ 

COMMON  /OATA5/IDH20, IDSULC5  )  ,WTM0L(5I , VMOLEC 20) 

COMMON  /EXEC1/JTYPE(25)  ,  INDEX (25) ,ISEQ(25)  , I  A  SUM (25) 
$, ISUPR, I  OPT 

C  OM  MO  N  /  S  TO  R  1  /  E  CIJ  IP?  3  00  )  t  I  L  CC  ,  NMB  E  Q ,  S  T  R  EM  (  5  0 , 2  2  ) 

$, NS  IN { 5 )  » N SOUT { 5) 

COMMON  /FL0W1/INF0I 75,5 ) , NNEQP , NOS  TM 
EQUIVALENCE  ( R 1 (1) , RN{ 1 ,  1 )  )  ,  { R2 ( 1 ) , RN ( 1 , 2 )  ) 

1, (R3< 1) ,RN( 1 , 3) J , (R4( 1) ,RN( 1 ,41) , <R5<1) ,RN< 1 ,5) ) 

If  ( R6 ( 1 ) , RN { l  , 6 )  ) ,  ( R7 ( 1  )  , RN {  1,7)  )  ,  (  R  8  (  1  )  , RN (1,3)) 

1 ,  ( R9 (  1 )  , RN ( 1 , 9 )  )  ,  ( P  1  0 (  1  )  ,  RN (  1 ,  10 )  5 
DATA  Rl/’  W , *  ASTE  * , *  HF A '  ,  *  T  BO' , *  I LER* / 

_ DATA,  R2  /  1  ’  IN’  ,  ’ -LIN*  ,  *  E  BU  »  ,  '  RNER’  / 

DATA  R  3 /  *  ’  ,  '  »  » . C  ' , ' ON VE '  , *  R  TER '  / 

DATA  R4/ *  C ’  ,  '  ONDE  * , ' NSER  * / 

DATA  R  5 / *  AD*  »  »  I  ABA* ,*TIC  * , »COMB* , * INER* / 
hat  A  R6/ '  *, « COMB*, » INER',* /DI V ' , • IDER  *7 

DATA  R7/*C0MB*  ,  *  UST  I  ’  ,  *  ON  A’  ,  MR  A' ,  •  ODER*  / 

DATA  R8  /  *  ’  ,  ’  «  ,  »  INC  ’  ,  MNER*  ,  1  A  TOR  *  /  _ 

DATA-  R9 /  '  ’  ,  »  ’  ,  '  *  ,  ’  S’  ,  *  TACK  '  / 

DATA  RIO/'  B  * , ' LACK ' , '  BOX'/ 

DAT  A  ITYPE/ 28, 5, 8, 1 2 , 3 , 2  »  6 , 7 , 8 , 1 / 

DATA  1ST AR , I BLNK , HUGE/ • *  ',»  *,1.F30/ 

I E ( I  TEST— 1 )  900,800,300 
800  CONTINUE 

I  T  E  S  T  =  0 
I L I NE= 1 1 

WRITE ( TWRTT, 1000) 
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SUBROUTINE  OUTPT  . ..(CONT»D) 


WRITE  {  I  WRIT  -,9000) 

WRITE ( I WRIT, 1010) 

WRITE ( I WRIT ,9000 ) 

DO  1  I JK= 1 , NNEQP 

NMBEQ=  I  S  EQ  (  UK) 

I LOC= INDEX! NMBEQ ) 

IEQIP=JTYPE (NMBFQ) 

I  NUMB  =  T  T  Y°E (I EQTP) 

DO  2  I =1,1  NUMB 

I  PL  AC  =  I LOC  + I 

VALUE  =  FQUIP (I  PL  AC) 

3 

I  SPEC  (  I )  =  I BLNK 

IF! VALUE)  3,4,4 

I  SPEC { I ) = I S T AR 

4 

*■> 

c. 

PVEC ( I )=ABS( VALUE) 

CONTINUE 

TCHEK= ( I NUMB+1 ) /2+4 

5 

TF{  ILINE+ICHFK-54)  6,6,5 

WRITE (  I WRIT,  1000) 

WRITE-  (I  WRIT  ,9000  ) 

WRITE! I WRIT, 1010) 

WRITE ( I WRIT ,9000 ) 

I  LINE® 11 

6 

I L I NE  = I L I N  E  + 1 CH  F  K 

WRITE  (  I  WRIT  ,  1001  )  N.MREQ,  (  RN  (J  ,  I  EQ  I P  )  ,  J  =  1 , 5  )  , 

I  { J , P  V E  C ( J)  ,  I  SPEC! J) , J=l, I  NUMB ) 

1 

CONTINUE 

WRITE ( IWRIT ,9000 ) 

I  ND=  1 

15 

DO  10  0  K K= 1,50 

I  F {  INFO ( KK, 5 )  )  9  3, 15,  15 

N  STRM ( T  ND ) = INFO { KK , 1 ) 

10 

20 

I F( NSTRM { IND ) )  93,93,10 

IFUND-5)  20,300,300 

IFCKK-50)  30,300,300 

30 

3  00 

I ND= I ND+ 1 

GO  TO  100 

I F ( N STRM  (  1  )  )  100,100,303 

303 

WRITE ( IWRIT, 2000) 

WRI.  TE  (IWRIT  ,9000) 

WRITE ( IWRIT ,20 20) 

WRITE! I  WRIT, 9000) 

WRITE (I WRIT, 2001)  (NSTRM! I) ,I=1,IND) 

DO  301  J  =  1 , I ND 

302 

CALL  S'JT  I  L  (NSTRM  (  J)  ,  I  ,  YCOMP,  TFMP,  PRESS  ) 

DO  302  1=1, NTOT 

CMTRX(I , J)=YCOMP( I ) 

C A l  L  SUMER ( YCOMP , MTOT » 0 V TOT1 C Jl » TOT2 { J ) ) 

CALL  SUMER ( YCGMP ,NGMS , 0, TOTAL , IMA SS ) 

CALL  SUMER (YCOMP , NTOT , I ,DUMY , T0T3< J ) ) 
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SUBROUTINE  OUT FT  . ..ICONT'D) 


CALL  SUMER ( YC0MP  »NTGT , 2 , DUMY , T0T4 { J ) ) 

FNTHt J )  =  HUGE 
VOU  J  )  =HUGE 

I F ( T0T1 (  J  )  -  1  •  OE-6 )  210,310,304 
3  04  I F( YCCMP ( I DH2  0 ) —0 »  1 )  309,309, 305 _ _ 

305  I F { A B S ( YCOMP( IDH20)-T0T1 ( J)  ) /YCOMPI  IDH20)-0.01)  310 
$,309, 309 

309  F  N  T  H  {  J)  -=HFCAL(TFMP,YC0MP,0)  *l.0F-6 

IF  ( TOTAL-1 .F-6)  310,310,306 

306  VOL ( J)=TGTAL/60.*10.73*(TEMP+459.69 ) /PRFSS 

310  TDFGF  (  J)  =  TEMP _ _ _ 

TDEWC J)  =  0 .0 

IF (TOTAL— 1. OE-4 )  312,311,311 

311  TDEW( J )=50Q« 

CALL  DEWPT f  TDEW ( Jl , YCQMP, PRESS, l > 

312  PSI A{ J)=PRESS 

301  CONTINUE _ _ _ 

DO  400  1=1  , NT OT 

400  WRITE ( I  WRIT  ,2002 )  ( NAME {  I  ,  J  )  ,  J= 1  , 4 ) , ( CMTRXI  I  ,  J ) , J  =  1 
$,  I  NO ) 

WRITE  (  I  OR  IT  ,2  003  )  (  TOTH  I)  ,  1  =  1  ,  I  NO) 

WRI TE <  IWRI T ,2004)  ( T0T2( I ) , 1=1 , 1  NO) 

WRITE  (  I  UR  I  T  ,200  5)  (  TQT3  U  )  ,  1  =  1 ,  I  NO) _ _ 

W RITE ( I WRIT  ,2015 ) . ( T  0T4 (I  f,  1  =  1,1  NO) 

WRITE ( IWRI T, 2006)  ( E  N  T  H ( I )  , 1  =  1, I  NO) 

WRITE (I WRIT ,2007 )  (  VOL ( I ) , I = 1 , I ND) 

WRITE ( IWR I T ,2008 )  C TOEGF { FT , 1  =  1 , I  NO) 

WRITE (  l WRIT  ,2009)  {  TOEW ( I ) , I = 1 , l NO J 

_ WRITE ( IWRIT ,2010)  (  PSI A (I  )  ,  1  =  1 , I  NO) 

WRITE ( I WRIT, 9000) 

I  ND=  I 

NSTRM 111=0.0 
GO  TO  100 

98  I F ( KK-50 )  100,90,99 

99  I  ND=  I  NO- 1  __  _ _  _  __  _  __ 

GO  TO  300 

100  CONTINUE 

900  CONTINUE  .  .  . . . . . . 

RETURN 

1000  FORMAT (• 1 ' ////T41* EQU IPMFNT  PARAMETER  SUMMARY') 

1010  FORMAT! T36* PARAMETER  NUMBERS  AND  PARAMETER  VALUES1 

1 /T3  3,  * (  ''*«•  DENOTFS  PARAMETER  VALUE  SPECIFICATION)') 

1001  FORMA  T ( / /T2  5  *  EQUIPMENT  NUMBER  *  I  3 , T6  5 , 5A4 , / / I T30, 13, 

1'  =  *  ,E13.6,1X,A1,8X,I3,  *  =  »E  13 .6,  IX  ,  A1  )J 

2000  FORMAT  { •  1  • ////T35 ’STREAM  COMPOSITION  AND  PROPERTY 
$  SUMMARY.') 

2020  F  ORMAT ( T25  _ 

1 ’ UN ITS  ARE  -«T62 'COMPOSITION  -  MOLES/HR /T2 5  * ENTHA LPY 
$  -  MMBTU./HR 

1. *T54 'VOLUME  -  CU.FT./MTN.  (GAS  ONLY) » /T25 « TEMPERATURE 
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SUBROUTINE  OUTPT  . ..(CONT'P) 


$  -  HE  G.  F  .*  1 

1T69 «  PRESSURE  -  PS  I A . *  I 

2001  FORMAT  ( T2  5  * STRF  AM  NO  •  *~T 39 *  5  ( 12,8X1/) 

2002  FORMAT(T25,4A1»6X,5FL0.4) 

2003  FOR  M  AT (  '  0  *  T  2  5  1  T  0  T  .  MOLES  1 ,5F10.3 ) 

2004  FORMAT! ' 0’ T  2  5  *  T  0  T .  LBS.  ' 5F  10.1  ) 

2005  FORMAT ( T25 1  TOT. LB. S( M) ,F9.lf4F10.1) 
2015  FORMAT ( T  2  5  *  TOT • L  B . S  C E  ) *  F  9 . 1 , 4F 1 0  . 1) 

'2006  form AT! * 0*T25» ENTHALPY  •5T2X*P8lB) ) 
2007  FORMAT! T25' VOLUME  '5(2X,FQ.m 
2 0 OB  F ORM A T ( ' 0 • T 25 ' T E MPE R ATUR E • F 9 . 2 , 4F 1 0 . 2 ) 

2  009 " FORMA t IT 25  *  S .  OEW  P T . « 5F 10.2 ) 

2010  FORMAT  C  T25  *  PRESSURE  *5^10.2) 

9000  FORMAT  {  *  0  *  ,  T25 , 1  *************** 

1  $  s*s  sjs  #  sjc  *  jJc  5j;  sje  *  f  ) 

END 
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C 
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SUBROUTINE  SUITE 


FUNCTIONS 


-  ST RF AN  STORAGE  UTILITY  ROUTINE 
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C 

C 

c 

c 

c 

c 


#  - 
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DEFENDING  UPON  A  FLAG,  STORFS  A  STREAM  IN 
STREAM  MATRIX  (STREM),  RETRIEVES  A  STREAM 
FROM  STREAM  MATRIX,  OR  COMBINES  ALL  INPUT 
STREAM’S  (WITH  OPTIONAL  EXCLUSION  OF  ONE" 
INPUT  STREAM)  TO  ACTIVE  EQUIPMENT  NUMBER. 
LAST  CASE,  RESULTING  TEMPERATURE  AND 


IN 


* 

S?C 

* 


* 


C 

C 

C 
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PRESSURE  ARE  FOUND  * 

£ 
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SUBROUTINE  SUT I L ( NSTRM, I DO, YDUMY, TOUMY , PDUMY ) 

DIMENSION  YDUMY ( 2 0)  , YEXTR ( 2  0  )  _ _ _ 

COMMON  /GENL/IWRIT, IDBUGt  15) ,  I  TEST, CR I T , NGMS , NTOT 
COMMON  /GEN2/TEMP,TFEED,YCOMP(20) , YE EEC (20 ) , PRESS, ENTH 
COMMON  /STOR1/EQUI P (300 ) , I LOC, NMBEQ, ST REM { 50 ,22 ) 

$ , NS  I N ( 5 ) , NS OUT (51 
I F ( I  DO- 1 )  100,101,102 

100  DO  12  I  =  1,  NTOT _ _ _ 

12  v DUMY ( I ) =0.0 
E  NTH- 0.0 
PDUMY=100 . 

NOT  SN=NSTRM 
DO  1  1=1,5 

N  STRM  =  TABS!  NS  INC  I  )  ) _ _ _  _ 

IE(NSINU))  6,6,2 

2  IF(NSIN(  D-NOTSN)  3,1,3 

3  DO  4  J  =  1  , NT QT 

YEXTR (  J) =A8S( STREMC NSTRM, J ) ) 

YDUMY ( J)=YDUMY{ J)+YEXTR{ J) 

4  CONTINUE _ _ 

T DU M Y  =  A 8  S { S TREM i NSTRM , 2 1 ) ) 

ENT H= ENT  H  +HFC AL { TOUMY , YE  X  TR , 0 ) 

PTE  ST=ABS ( S TREM(NSTRM,22 ) ) 

IF(PTEST)  1,1,6 

5  PDUMY=AMIN1 (PDUMY, PTEST ) 

_ 1  CONTINUE _ 

6  CALL  FINDTI YDUMY, TOUMY, ENTH) 

RETURN 

101  IF(NSTRM)  105,105,104  . . . 

1 05  DO  60  1=1, NTOT 

60  YDUMY(I)=0.0 

PPUMV=Q .  0 _ 

TDUMY=0.0 

RETURN 

104  DO  40  1=1, N TOT 
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SUBROUTINE  SUTIL  ...(C0NT*0) 


40  YDUMY ( I )=ABS( STREMC NSTRM, l ) ) 

TDUMY=AB  S  (  STREJM  (  NSTRM,  ?1  )  ) 

P  OU N Y  =  A  B  S ( STREM  fNSTR M  , 22) ) 

RETURN 

102  IRNSTR.M)  107 , 107,106 _ 

106  on  50  1=1, NTOT 

50  S TR  E M ( N  S T R M , I ) =  5  IGNI YDUMY { I ) , ST REM { NSTRM , I )  ) 
S  E M (NS T RM , 2 1) =  S  T  G N ( TDU M  Y , S IRE  M ( MST  R M ,  2 1 ) ) 

S  TR F M f NS T  RM , 22 ) = S I G N ( POUMY ,  S TR E M ( NSTR M , 2? ) ) 

107  RETURN 
END 
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SUBROUTINE  PRNTS 
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c 
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- J u 

FUNCTIONS  - 

Ay 

'T' 

Ay 

-  STREAM  OUTPUT  UTILITY  ROUTINE 

❖ 

c 

c 

c 

* 

«Ap 

-  OUTPUT  RESULTS  ONLY  IF  PRESENT  OUTPUT 

PRIORITY  FLAG  IS  1  OR  GREATER 

-  OUTPUTS  EQUIPMENT  PROCESS  FEFD  (COMBINED), 

£ 

={t 

A/ 

r 

c 

c 

o 

yu 

* 

PRESENT  ACTIVE  STREAM  (YC0MP),  OR  STREAM  FROM 
STREAM  MATRIX,  DEPENDING  UPON  A  FLAG 
-  TEMPERATURE,  PRESSURE,  ENTHALPY  AND  MOLE 

* 

* 

if 

c 

c 

c 

ou 

st 

A' 

sjcsjt: 

NUMBERS  OF  STREAM  CONSTITUTE  OUTPUT 

3{c:fc)$c  jje  S}c  #######:}<##  #  #  jjtsjc^sje  ### 
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❖ 

Ay  AU 

^  *e- 

SUBROUTINE  PRNTSUNDIC) 

DIMENSION  YDUMY ( 20 } 

COMMON  /GFNl/IWRIT, IDBUG(  15) ,  I  TEST , CR I T * NGM S . NTOT 

COMMON  /GEN2/TEMP,TFEED,YCGMP{ 20) ,YFEEC(20) , PRESS,  ENTH 
COMMON  /O AT A2/N AMEC  20,4) 

20 

10 

IF ( ITEST-1 )  20,10,10 

RETURN 

CONTINUE 

1 

IF(INDIC)  1,2,3 

WRITE ( IWRIT, 9000 ) 

WRITE (  IWRIT , 1000 ) 

WRITE {  IWRIT  ,1001 )  f FEED, PRESS 

WRITE ( IWRT  T  ,8013)  ENTH, ((NAME! I , J ) , J= 1 ,4 ) , YF EED ( I ) ,  I 
$ , NTOT  ) 

=  1 

2 

21 

GO  TO  900 

IF(ITEST-l)  900,21,21 

WRITE ( IWR IT, 8000 ) 

WRITE ( IWRIT ,801  3  3  ENTH,  ( ( NAME { T , J ) , J= 1 ,4 ) , YC0MP ( I  ),  I 
$, NTOT ) 

GO  TO  900 

=  1 

3 

NST  RM=I NO! C 

CALL  SUTIL(NSTRM,1, YOU  MY, TDUMY, PDUMY) 

DENTH=HFC AL (TDUMY, YDUMY, 0 ) 

WRITE ( IWR IT ,2000)  NSTRM 

WRITE (  I WRIT,  1001 )  TDUMY , PDUMY 

WRITE ( IWRIT  ,8013 )  DENTH,  ( (NAME!  I , J ) , J- 1 , 4 ) , YOUMY ( I ) 

900 

$,  1=1, NTOT) 

WR  I TE (  IWRIT  ,9000) 

RETURN 

1000 

1001 

F0RMAT(T44, 'EQUIPMENT  PROCESS  FEED'/) 

FORMAT (T25, 'TEMPERATURE  (DEG.  F)  =  »,F7.1,T61 
% ,  *  PRESSURE  (PSI  A)  =  ' 

2000 

8000 

1 , F6 . 2  ) 

FORMAT (T47, 'STREAM  NUMBER' , 13/ ) 

FORMAT ('  ') 

. 
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SUBROUTINE  PRNTS  . ..tCONT'O) 


8013  FORMAT!  T  3  5 »  *  STREAM  ENTHALPY  (BTU.) 

$ t ’ MOL E  NUMBERS 

1  ARE  - « // { T29,4A1  ,  '  -  » , F  1  5 . 5 , 1  OX , 4A 1 
^000  FORMAT ( ' 0 1 , T25 , *  ******************** 


■=  ’  ,EL5. 7//  T 46 
,  •  -  •  ,E  1  5.  5)  ) 

**  $  ^  £  j}c 
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1********** i f  ) 


END 
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SUBROUTINE  C.OMPR 


FUNCTIONS  - 


* 


-  DATA  COMP ATI B I LTY  CHECK  UTILITY  ROUTINE 


* 


C“ 

c 
c 


c 

c 

c 

r 

C 

C 


* 

* 


COMPARES  A  STREAM  PARAMETER  { PARAMETER  NS  PAR 
OE  STREAM  NSTRM)  WITH  AM  EQUIPMENT  PARAMETER 
(PARAMETER  NEPAR  OF  ACTIVE  EQUIPMENT  NUMBER) 


IE  ONE  IS  ZERO,  THE  TWO  VALUES  ARE  EQUATED  TO 

THE  NEGATIVE  SPECIFICATION  VALUE 

IF  TWO  VALUES  ARE  DIFFERENT  (AND  NON-ZERO)  AN 


C 

c 


c 


ERROR  MESSAGE  RESULTS  —  BOTH  VALUES  ARE 
EQUATED  TO  EQUIPMENT  PARAMETER  VALUE 
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SUBROUTINE  COMPR  ( NS TRM , N S P AR , NE P AR )  . _ 

COMMON  /GENI/IWRITt  IDBUG( 15  ), ITEST, CRI T ,NGMS , NTOT 
COMMON  /ST0R1 /EQUIP (300) , ILOC, NMBEQ, STREM( 50,22 ) 
$,N$IN(5) , NSOUT  C 5) 

IF ( NSTRM J  900,900,100 
100  NLOC=NEPAR+ILOC 

S  VALU-STREM  (NSTRM  ,  NS  PAR  ) _ _ _ _ 

E VALU=E QU I P ( NLOC ) 

IF( SVALU*EVALU)  1,2,3 

1  WRITE (I WRIT , 1000 )  NSTRM, NSPAR ,NMBEQ, NEPAR 

2  IFTEVALU)  1C,  L 2 , 1? 

10  STR EM (NSTRM, NSPAR)=EVALU 

GO  TO  POO  _ 

12  EQUIP (NLOC) =SVALU 
GO  TO  900 

3  I F( ABS ( S VALU— EV  ALU)— ABS ( SVALU/ 1000» ) )  900,900, 1 
900  RETURN 

1000  FORMAT ( ' 0  CONFLICTING  DATA  GIVEN  -  */*  NSTRM  =  *,T4 
$, •  NSPAR  =  * 

1,14, »  NMBEQ  = 

END 


*  ,  14, 1  NEPAR 


1  ,  14) 
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T 

FUNCTION  SETVU 

❖ 

dr 

O* 

dr 

c 

c 

c 

* 

* 

FUNCTIONS  - 

-  DEFAULT  VALUE  UTILITY  FUNCTION 

dr 

c 

•dr 

-  CHECKS  A  TEST  VALUE  —  IF  POSITIVE,  FUNCTION 

c 

-dr 

IS  SET  TO  TEST  VALUE 

c 

dU 

IF  TEST  VALUE  IS  ZERO  OR  NFGATIVE,  FUNCTION 

dr 

'i* 

c 

dr 

-v- 

IS  SET  TO  DEFAULT  VALUE 

dr 

c 

-dr 

4= 

c 

dr  dr  -dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  -dr  dr  dr  dr  dr  dr  dr  dr  dr  -dr  dr  dr  -dr  dr  dr  dr  dr  dr  dr  dr  d»  dr  -dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  dr  -dr  dr 
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•r* 

FUNCTION  SETVUf  TEST , VALUE ) 
IF {TEST)  3,3,4 

3  T  E  S  T~  V  AL  U  r 

4  SET VU=TE  ST 
RETURN 
END 
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FUNCTION  HFC&L 


*  FUNCTIONS  - 


* 


_* _ -  THERMODYNAMIC  PROPERTY  EVALUATION  ROUTINE _ _*^ 

*  -  "for  given  stream  mole  numbers  and  temperature,  * 

*  EVALUATES  (DEPENDING  UPON  A  FLAG) —  * 

*  -  TOTAL  STREAM  HEAT  CAPACITY,  OR  * 

*  -  TOTAL  STREAM  ENTHALPY,  OR  * 

*  -  ONE  MOLECULAR  SPECIE'S  FREE  ENERGY  FUNCTION  * 

*  * 

jjc  if;  *  >f-  Jf:  •%  if-  if:  %  if;  if;  if;  if;  if;  *  if;  sjs  if  aft  if;  :ft  if  if  if  if  if  if  ?f  if.  if  >f  if  J?c  **  if  sjt  *  if  if  if  if  if  if 


FUNCTION  HFCAL  C  TF, Y, J ) 

DIMENSION  Y 1 2 0 ) 

COMMON  /GFN1/IWRIT, ID8UG( 15) , I  TEST,  CRI  T, NGMS , NTOT 
COMMON  /DATA3/TDATA(20tl4)   


Y  -  STREAM  MOLE  NUMBERS 
T F  -  TEMPERATURE,  DEG.  FAHRENHEIT 
*****  J  -  THERMODYNAMIC  PROPERTY  FLAG 
*****  =  -VE  -  STREAM  HF AT  CAPACITY  CALCULATED, 

*****  ( 3TU . / LB  . MOLE  DEG.  F) 

*****  . . . . =  0  -  STREAM  ENTHALPY  CALCULATED  (BTU.) 

*****  (RELATIVE  NOT  ABSOLUTE) 

*****  =  +VE  -  DIMENSIONLESS  TREE  ENERGY  FUNCTION, 

*****  (F/RT),  TOP  JTH  MOLECULAR  SPECIE 

*****  CALCULATED. 


*****  CONVERT  TEMPERATURE  FROM  FAHRENHEIT  TO  KELVIN  FOR 

*****  CALCULATIONS 


TK=  ( TF+45'9  76917  KB 

*****  DECIDE  WHAT  DATA  TO  USE _ 

*****  ~  F  OR  (  30  0. ~  —  IOOO".  DEG.  K  )  ,  K=0 
*****  USE  T  DAT  A ( - , I )  TO  THAT  A ( — »  7 ) 

*****  FOR  (1000.  -  5000.  DFG  K)  ,  K=7 
*****  USE  TDATA 8)  TO  TDATA (-, 14) 


_ K  =  0 _ _ _ 

I  F < TK-IOOO.  )  1,1,2 
2  K=  7 

1  CONT  I  NUT  _  _ _ _ 

I T ( J )  100,200,300 

C*****  CALCULATE  HEAT  CAPACITY  ( BTU/LR . MOLE . DFG . F ) 


100  Y  TO  T=  0 
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FUNCTION  HFCAL  . . . (CQNT»  D) 


DO  10  1=1, N TOT 

SUM=SUM»  (  TOATA{  I  fK+l  )  4T0ATA  C  I  ,K  +  2  )  *TK+TDAT A(  I  ,  K  +  3  ) 

1  *  T  K  *  *  2  +  T  D  A  T  A ( I ,K*4) *TK ** 3+TD A T A ( T , K+5 )*TK**4)*Y{ I) 
YTOT=YTOT+Y ( I ) 

10  CONTINUE 


C*****  EQUATE  'HFCAL*  TO  THE  HF AT  CAPACITY 

HFC AL=SUH*3L  .98726/YTOT 
GO  TO  900 


C*****  CALCULATE  RELATIVE  STREAM  ENTHALPY  C  BTU.  ) 

200  SUM-0, 

no  20  1  =  1 f N TOT 

SUM=SUM+  I  THAT  A{  I  ,K+1  )  +TDATAU  ,  K  +  2  )  /2  .  *  TK+TDA  TA  {  I  ,  K+  3  I 
_ 1  /3.*TK**2-»TDATA(T,K»4)/4.*tk«»3->-T0ATA(  I,K  +  5  )/5.»TK*»4 

1  +TD A  T  A (  I , K  +  6 ) / TK ) * Y (  I ) 

20  CONTINUE 

C*****  equate  'HFCAL'  TO  THE  STREAM  ENTHALPY 

_ HFCAL  =  SUM*1 .99726*TK*1 .  8 _ _ _ 

GO  TO  900 

C  CALC.  F  RE  c  ENERGY  FUNCTION  i  F/R  T  )  FOR  JTH  SPECIE 

C *  *  * *  EQUATE  TO  'HFC A L ' " 

300  HFCAL=TnATA( J ,K  + L  )*( l.-ALOG(TK)  ) - TD AT A { J , K  + ?  ) /2 . * TK  _ 

1  -TDATAI J,K+3  )/6. *TK**2-TDATA( J, K+4)/12.*TK**3 
1  -TDATAI  J  ,K*5  ) /2  0  .*TK**4+T  DAT  A  ( J ,  K+6 )  /  TK-TD  AT  A  ( J  ,  K+7  ) 
900  RETURN 


END 


_ 


' 

7  ‘  :  '\ ,  •  ' 


.  ■ 

•  1  .  \  i  ,  M  /  T  '  ►  <  ,  ! 

.  i  .  ' 

(  (  -  V* 


, 


.  <M  J  •  ' 

n  .  • , ) 


r  .  r  t  y 

■  (l  ,  ) . 

[  *  ,  Cu  •  T-  • 

- 


D-25 


{“  jfcjScifc#  jje#  #j{e  s^sjcafe  i#5#  ******  *##*##£'£** 
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c 

c 

* 

jV 

SUBROUTINE  VPRES 

* 

* 

* 

c 

c 

c 

a. 

FUNCTIONS  - 

-  VAPOR  PRESSURE  CALCULATION  ROUTINE 

* 

•vO 

a. 

A' 

c 

a. 

-  DEPENDING  UPON  A  FLAG,  CALCULATES  WATER  OR 

❖ 

c 

x4 

SULPHUR  VAPOR  PRESSURE  AT  A  GIVEN  TEMPERATURE 

❖ 

c 

a> 

(ALSO  FIRST  DERIVATIVE  OF  VAPOR  PRESSURE 

❖ 

c 

* 

W.  R.  T.  TEMPERATURE) 

a/ 

r 

C 

ac 

❖ 

c 

a»  a. 

"f*  ^ 

*  *:&  *  -if.  ***  *  **  *  *  *  *  *  *  *  *  *  #  *  *  *  *  *  ***  * 

a*  a»  a>  a» 

*l*n'  A*  A** 

SUBROUTINE  VPRES  ( PC ALC, DP , T F , IFL AG ) 

C* 

****  CONVERT  FROM  FAHRENHEIT  TO  KFLVIN 

TK={ TF+459.69) /1.3 
IFUFLAG)  1.0,10,20 

CALCULATE  WATER  VAPOR  PRESS.  AND  DERATIVE  AT  TK . 
C *****  ref.  KEENAN  AND  KEYS  (  50  -  374.  1  1  DEG.  C) 


10  X=647.27-TK  _____ _ 

V  -  X  /  T  K 

U=3 .3463  1.30+4. 14113E-2*X+  7 . 5  15484E-9*X**3+6 . 56444E-  11 
$*  x**4 

W=l  +  1. 3  7 9 4 4  3 1 E - 2  * X 
DV=-647.27/TK**2 
DW=-1 .3 7944 8 IE— 2 

DU=  -  (  4 . 1  4 1 1  3F  - 2  + 3  .  *  .  7 . 5  1  54  8 4E -9*  X* *  2+  4  .  *  6 .  5  6 4 44 F  -  1 1  *  X* 

**3) 

PCALC  =  218 . 167*EXP(-2.3Q3*( V*U/W) ) 

D P- -°C  AL  C *  2.30 3  * ( V* ( W *  DU- U * D W ) / W**2+U*DV/W ) 

GO  TO  30 


C  ^  ^  ^  v 

0  V  *  *  *  * 

CALCULATE  SULPHUR 
REF.  TEXAS  GULPH 

VAPOR  PRESS. 
SULPHUR  DATA 

AND  DERIV.  AT  TK 

BOOK 

20 

I F ( T  K - 7  0  0 )  21  ,  2  2,72 

a»  o»  a»  a/  au 

-if'  A5  -O  T 

SHOULD  BE  600. 

{ CONVERGENCE 

PROBLEMS) 

21 

PCALC  =E XP ( { l4.7-.0  06  223  8*TK-5  405.  1 /TK ) *2 . 3 0 3 ) /760 .0 

D P  =  p C.  ALC*?  .  303*  i  -0.0062  2  3  8+  54  05.1  /TK**2  ) 

GO  TO  30 

22  PCALC=EXP( ( 7.432 87-3268. 2 /TK) *2. 303)/ 760.0 
DP=PC ALC*2. 303* ( 3268. 2/TK**2 ) 
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-V* 

SUBROUTINE  DEWPT 

<A> 

* 

* 

c 

c 

c 

* 

sje 

J, 

FUNCTIONS  - 

-  DEW  POINT  CALCULATION  ROUTINE 

4. 

❖ 

X 

V 

c 

-  DEPENDING  UPON  A  FLAG,  CALCULATES  WATER 

OR 

r 

V,/ 

* 

SULPHUR  DEW  POINT  (USING  NEWTON'S  METHOD)  FQR 

❖ 

c 

GIVEN  PRESSURE  AND  STREAM  MOLE  NUMBERS 

❖ 

c 

Jj. 

-  REQUIRES  AN  INITIAL  ESTIMATE  OF  DEW  PT. 

TFRP. 

X 

-vv 

c 

Of 

❖ 

c 

’A'  ^  •**/  \V  ^  wO  ^  -A/  .V  •*)<■  ^  J.  X*  «ir  .1. 

V  'P  'I'  V  ^1'  V  -y*  <f»  •('  'O  ^  vjs  >,*»  ^4'  'A  >('  **,n  -)*«  «yx.  «*j». 

J#  >A*  «fc>  4  Jw  .V 

•*,%  >,*%  »vs  '1*  <*A 

X  X  X  X  X 

W'  t  -v  v 

SUBROUTINE  DEWPT  ( TF , Y , PS  PEC , I FL AG ) 

DIMENSION  Y (20) 

C  OM  MO  N  /GFN1/IWRIT, I  DBU  G  C  15)", 'i  TEST  »CR  I  T  ,NGMS  ,  NT  GT 
COMMON  /DATA5/IDH20, IDSUL(5) ,WTM0L<20) ,VMGLE(20) 

I F  C  I  TEST-9 )  811 , 810,810 
8  10  WRITE  T  I  UR.  IT  ,  9990  ) ~ . . 

9*899  FORMAT! 1H0,»  DEW  POINT  CALCULATION  **  OEWPT  •• 

$  ’  /  ) 

811  CONTINUE 

C***»* I  FLAG  =  0 -  WATER  DEW  POINT  CALCULAT ION _ 

C *****  =  1  -  SULPHUR  DEW  POINT  CALCULATION 

r  & 

C*****  FIND  TOTAL  NUMBER  OF  MOLES  IN  STREAM  FOR 
SUBSEQUENT  MOLE  FRACTION  DETERMINATION 


CALL  SUMER { Y , NGMS, 0, YTOT , DUMY ) 


C*****  FIND  MOLE  FRACTION  (YFRAC)  WATER  OR  SULPHUR,  USING 
-  ****!_ . .  COMPONENT  I  DENT  IMITATIONS  < IDH20 , IDSUL I 

IF(IELAG)  2,2,3 


C*****  WATER  MOLE  FRACTION 

2  YFRAC^Yt IPH2Q  ?/YTQT 
G 0  TO  4 


C**»**  SULPHUR  MOLE  FRACTION  (5  SULPHUR  SPFCIFS  MAXIMUM) 
C*****  CHECK  GIVEN  TEMP  TO  S EE  WHAT  COMP .  TO  USE  FOR  MOLE 
FRACTION  DETERMINATION.  (SULPHUR) 

3  IF(TF-700.0)  10, 10,20 

C»****  TEM° .  IS  BELOW  700.  0  DEG.  F.  -  USF  GIVEN _ 

(•,*****  CCMPOS IT  I  ON. 

10  CALL  SUMER! Y, NGMS, 1 , STOT, DUMY) 
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SUBROUTINE  OEWPT  .  ..{CONI' D) 


YFR AC=STOT/ YTOT 
GO  TO  4 


C*****  TEMP.  IS  ABOVE  700.  DEG.F. 

ASSUME  ALL  SULPHUR  (GAS)  IN  S8  FORM  AT  PEW  POINT 

c*«*.**  -  (IE.  CONVERT  ALL  GASEOUS  SULPHUR  FORMS  IN  GIVEN 

C*****  STREAM  TO  SB  EQUIVALENT). 

~20  tall  sumerTT, m ms ,1 , dumy, sn ass f 

YFRAC=SMA$$/{ 32.0*8. 0*YTOT) 


E C 

(*■  >1*  Jj>  X  JU 

-'<**  '?• 

7*  jij  jt. 

L/  1  4  “ 

USE  GIVEN  TEMPERATURE  AS  INITIAL  GUESS  IN 

ITERATIVE  CALCULATION  OF  DEW  POINT.  NEWTON'S 

METHOD  IS  USED  -  (IF.  AT  EACH  TEMP.  GUESSED, 

r  $:  $  a(c  sjc  # 

r  ju  ^ 

'i-  “T  *¥*  •'i*  V 

f  **  * 

CALCULATE  VAPOR  PRESSURE  AND  DERIVATIVE  W.R.T. 

TEMP.  CORRECT  TEMPERATURE  RESULTS  IN  VAPOR 

ORES  SURE  EQUALLING  PARTIAL  PRESSURF  OF  COMPONENT 

7"*  »•/  Jr 

^  ■V*  *V  "V*  V 

Q  s!t* 

IDEAL  GAS  BEHAVIOR  ASSUMED  -  DALTON'S  LAW 

USEO  . 

7*  J/  Jr  Jr  v*/  J. 

C  ^  ^ ^ 

/*  Jr  Jr  Jr  Jr  Jr 
1  ■*.'  -rj-  -»]>.  ^  <*0 

CALCULATE  PARTIAL  PRESSURE  AND  ERROR  RESULTING  FROM 
GUESSED  TEMPERATURE. 

IF  MOLE  FRACTION  IS  ZERO,  SET  DEW  PT.  TO  0.0 

4 

100 

T F ( YFRAC-1 .OE-6 )  100,100,30 

T F  - 0.0 

30 

31 

GO  TO  40 

I F ( TF-20  0 . )  31,31,5 

T  F  =  5  0  0 . 

5 

CALL  VPRESCPCALC,DP,TF, IF LAG) 
PARTP-PSPEC / 14. 696*YFRAC 
ERROR=PARTP-PCALC 

800 

801 

IF (  I TE  ST-0 )  801,800,800 

WRITE (  I WR IT  ,5001  )  TF , YE RAC , PCALC , PARTP  , 
CONTINUE 

ERROR , DP 

TF  =  TF  + ERROR /DP* 1 . 8 


C*****  CHECK  F OR  CONVERGENCE  -  IE  ERROR  SUFFICIENTLY 
C*****  SMALL  *  TERMINATE  -  OTHERWISE  ITERATE  WITH  NEW 

£  Jj:*  sSe  TEMP. 


I  F  (  A8S( ERROR/PSP  EC* I  4.6  96 J-CRIT) 40, 40, 5 

40  CONTINUE 

I F ( 1TFST-5 ) 9C3 , 802, 802  _ 

8 0 2  IF (I FLAG)  804 ,804, 805 

804  WRITE ( IWRIT, 5000)  PARTP ,TF, CR IT 

GO  TO  803 _ 

805  WRITF( IWRIT, 5002)  PARTP, TF,CRIT 

803  CONTINUE 
RETURN 


'  ... 
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SUBROUTINE  OF  WD T  .  ..(CONT'D) 


5000  FORMAT (1  HO,  'WATER  DEW  POINT  FOR  PARTIAL  PRESSURE  OF  ' 
$ , F 1 0 . 4 , '  ATM. 

1  IS  ' F  L  0 . 4 ,  *  OFG.  F'/'  (  CRIT  =  *,F^.2»  )') 

5001  FORMAT { 1H0 ,  '  TF  =  »  , F  1  5 . 7 , 2 X ,  * YFR AC  =  ' 

$  ,  E  1 5 .  7 , 2  X , _  __  

l'PCALC  =  FI  5. 7,/ IX /'PAR TP  =  « , F  15. 7 , 2X , ' ERROR  -  ' 
$,E15.7,2X, 

1  '  DP  =  '  , F15. 7) 

5002  FORMAT?  1H0,  ' SULPHUR  DEW  POINT  FOR  PARTIAL  PRESSURE  OF 
$  * , F 1 0 . 4 , '  AT 

1M.  IS  '  F  10 . 4 ,  '  DEG.  F  *  /  *  {  CRIT  =  SE9.2' 


*  )  ’  ) 

END 


'  ) , . . 


'  ‘  •  ;  f  ‘ 
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•  ’  ,  '  r  ,  •  .  {  ,  f  f\ ,  .  j  f  •  r 
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C  *  $  $  $$$^  #$  $  $:$c 
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•V 

c 

c 

yu 

SUBROUTINE  FI  NOT 

gu 

c 

FUNCTIONS  - 

•J-r 

-S'- 

c 

yU 

c 

y< 

-  TEMPERATURE  CALCULATION  ROUTINE 

❖ 

c 

❖ 

-  GIVEN  STREAM  MOLE  NUMBERS  AND  A 

REFERENCE 

c 

& 

ENTH A  Lov  ,  FINDS  THE  CORRESPONDING  TEMPERATURE 

❖ 

c 

yu 

ASSUMING  NO  COMPOSITION  CHANGES 

(NEWTON’ S 

y* 

c 

■JU 

-'f*' 

METHOD  USED) 

* 

c 

yu 

-  REQUIRES  AN  INITIAL  ESTIMATE  OF 

TEMPERATURE 

¥ 

c 

* 

' 

yj 

c 

y*  y*  y<  y<  >v  ^  y-  «>#  <a»  >•*  <a»  %c*  »*»  a  wu  y»  j*  «•»  »•<  -ju  x  %c> 

^  ^  *)V  ^  ^  -;N  -*|V  ^ ^  ‘'l'  ^  ^  ^  Tx  Ap 

j);  #  $  #  =5=  * 

-i- 

SUBROUTINE  FI NDT (YCOMP, TEMP , ENTHR ) 

DIMENSION  YCOMP (20) 

COMMON  /GEN1/IWRIT,  IDBUG( 15 ),  I TEST, 
YTOT=0.0 

CR  I  T, NGMS , NTOT 

DO  10  1=1,  N  TOT 

10 

YTOT=YTQT+ YCOMP ( I ) 

1 

ENTH=HFCAL( TE MP , YCOMP , 0 ) 

D  HDT=HEC AL ( TEMP , YCOMP , -  1 } *Y TOT 

E  RROR =EN  T  H- ENTH  R 

TEMP=TEMP-ERROR/DHDT 

I  F (  ITEST  -9)  801,800,  800 

800 

WRITE { I NR  I T ,1000)  TFMp» E NTH , ERROR 

801 

CONTINUE 

IE( ABS( ERROR/ ENTHR) -CP  IT)  2,2,1 

2 

RETURN 

1000 

FORMAT ( *  { E  INDT  )  -  TEMP  =  *,  El  1.4, 

’  ENTH  =  ’  , El  1. 4, 

t 

T  ERROR  =  »  , 

IF  1 1 .4) 

END 

•  ’  '  It,  -  •-  ■  '  '  '*  ’ 
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SUBROUTINE  TCALC 


* 


FUNCTIONS  - 


ITERATIVE  TEMPERATURF  DETERMINATION  ROUTINE 


* 


*  - 


❖ 

* 

if 

£ 

* 

❖ 


-  FOR  A  GIVEN  FEED  STREAM,  FINOS  ADIABATIC  OR 
NON-ADI ABATIC  TEMPERATURE,  DEPENDING  ON  A  FLAG 
TAKES  INTO  ACCOUNT  COMPOSITION  CHANGES  WITH 

temper"  aFOre 

FOR  NON- ADIABATIC  CASE  (BOILER),  HEAT  LOSS 
IS  EVALUATED  USING  MEAN  STREAM  PROPERTIES 


* 

❖ 

-iv 


r 

C 


(ALSO  PRESSURE  DROP  IS  CALCULATED  AND  REDUCED 
PRESSURE  IS  USED  FOR  OUTLET  COMPOSITION 


* 

* 


r 

L. 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 


5 fz 


❖ 


CALCULATION)  * 
TC TOE  (ECU  IL.  CUTOFF  TEMP.)  MUST  BF  PREVIOUSLY  '* 
SET  * 
RIGOR  OF  CALCULATIONS  INITIALLY  IS  LOW,  BUT  IS  * 
INCREASED  AS  CONVERGENCE  (USING  SECANT  METHOD)  * 
IS  ACHIEVED  * 
INITIAL  POSITIVE  SET  IS  GENERATED  FOR  FIRST  * 
TEMPERATURE  ESTIMATES,  BUT  THIS  GENERATION  IS  * 
BYPASSED  WHEN  CONVERGENCE  IS  NEARLY  ACHIEVED  * 
REQUIRES  AN  I N I T I  A L  E ST  I MA TE  (TEMP)  * 


SUBROUTINE  TCALC ( NOHL S ) 

DIMENSION  Y  A  V  G ( 20) 

COMMON  /GENI/IWP  IT,  IDBUG( 15 ) ,  I TES T , C R  I  T , NQM S , NT  OT _ 

C  0  M  10  N  /  G  E  N  2  /  T  E  1  P,TFEED,  Y~C  OMP(20),YFEED{  20  )  ,  P  R  €  S  S  ,  E  N  T  H 

C  OM MON  /HTL  S 1 / TNUMB , T D I  AM , T LONG, TSHL 1 , T SHL 2 , QLOS  S 
$,DELPC,DEtTP 

C OM MO H  / 3 UR N 2 / I  FLAG, I  PASS, M PASS  , E STMT ( 3  ) 

DATA  TW ALL/500./ 


q * * **&  CALCULATE  REFERENCE  ENTHALPY  OF  INLET  STREAM  AT 

C*****  INLET  TEMP. 


ENTHR-HFC  AL ( TFE  ED, YPEED , 0 ) 

I F {  ITEST-3)  811,810,810 

810 

WRITE (I  WRIT  ,50 10)  TF FED, ENT HR 

811 

CONTINUE 

DEL  PC =0.0 

I FN SH  =0 

I TERH=0 

K  I  N I  T  =  1 

LOOSE=0 

Qif  if  if  if 


GENERATE  A  TEMPERATURE  GUESS 


V' 

. 
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SUBROUTINE  TCALC  . ..(CONI’ D) 


I  CONTINUE 

FAC  1  - 1  •  0 1  +  ( 1—LQOSE J *0 . 09 
FAC 2= liO 

CALL  CUE  SRI  TEMP, FACT, FAC  2, ERROR, ITFRH) 


CALCULATE  ERROR  EXACTLY  (IF.  CALCULATE  NEW 
C*****  C  CMPOS I T I  ON  t  IF  NECESSARY,  AND  THEN  ENTHALPY  AT 

C*****  GUESSED  TEMPERATURE 

C  *****  C  ALCULATE  composition  at  temp. 

CALL  COMP (LOOSE , KINIT ) 


G*****  SKIP  HLOSS  CALCULATION  EOR  ADIABATIC  CASE. 


QLOSS=Q.  0 

IF  I NOHLS )  100,100,102 
102  CONTINUE 


C *****  EVALUATE  STREAM  PROPERTIES  NEEDED  FOR  QLCSS  CALC. 


CALL  PRO  P  C  T  W  AL  L  ,  Y  A  V  G  ,  A  VG  MU  ,  W  AL  MlJ ,  RHO  ,  TMA  SS  ,  Y  TOT  ,  C  PAVG  ) 

C*»»»»  CALL  PDRQP  TO  CALCULATE  PRESSURF  DROP  ( AND  TO  SET 
r  **  **  *  0 1 A  ME  TER-'  F  0  R  S I  M  UL  A T I  0 N  CASE.  ) 

CA1.L  PDROPI  AVGMU  ,  UAL  MU ,  R  HO ,  TMA  SS  ,  GT  ,  I  TER  H  ) 


CALCULATE  TOTAL  HEAT  LOSS. 


CALL  HLOSS  { GT , C PA VG , TWAL L , YTOT f Y AVG ) 

100  CONTINUE 

C*****  DEFINE  ERROR  AS  REFERENCE  ENTHALPY  MINUS  (ENTHALPY 
C  AT  THE  GUESSED  TEMP  +  HF AT  LOSS). 


ERR0R=ENTHR— ENT H-OLOSS 
I F (  I  TEST- 3 )  317,916,316 

816  WRITE (  IWRITt50m  TEMP y ENTH,QLOSS> ERROR 

817  CONTINUE 

C***#*  CONVERGENCE  CHECK 


5  C  RI T 1 =CR I T**( 0.2 5+0. 5  0* LOOSE) 

IF( AB S ( ERROR/ ENTHR)-CR IT 1)  2,?,1 

C*****  IF  ERROR  IS  SMALL,  INCREASE  EQUILIBRIUM  CRITERION. 
C*****  IF  THIS  HAS  BEEN  DONE,  TERMINATE 


2  IF (LOOSE)  3,3,4 

3  IE ( ITERH-3)  11,10,10 
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SUBROUTINE  TCALG  .  . .  (CQNT’D) 


11  LOOSEST 
GO  TO  1 
10  \  00SE=1 
KINIT=0 

GO  TO  5 _ 

4  I  F  (  IFNSH  )  2  00,200,201 

200  PRESS^PRESS-DELPC 
I  E  N  S  H  =  1 

GO  TO  1 

201  CONTINUE 

_ I  F!  I  TEST -1 )  801 , 800,  800 _ 

800  IF(NOHLS)  301,301,302 

301  WRITE! IWR  IT  ,  1001 ) 

GO  TO  310 

302  WRITE C I  WR  I  T  ,3001 ) 

I F {  Ic  LAG- 1 )  303,303,304 

303  WRITE  UWRT  T  ,3002  ) _ _ 

GO  TO  310 

304  WRITE ( I  WRIT ,3003) 

3 10  WRITE { IWR I T  ,900  0 ) 

1  RI TE ( I WRIT »40Q 1 >  TEMP, PRESS  ,CR I T 
IF(NOHLS)  801,801,311 

311  WRITF  {  IWR  IT  ,801?)  TD  I  AM,  TNU  MB  ,'TLONG,  OFLPC,QLOSS  _ 

801  CONTINUE 
RETURN 

1001  FORMAT t  T34 , *  I T^RATT VE  ADIABATIC  TEMPERATURE 

$  calculatiIn1  ) 

3001  FORMAT!/  T32 , *  I  TER AT  I VE  NON-ADI ABAT I C  TEMPERATURE 
$  CALCULATION*  )_ 

3002  FORMAT ! T37,  * TDI AM  SPECIFIED,  DEL  PC  CALCULATED.*) 

3003  FORMAT !T37, *  DELTP  SPECIFIED,  TDI AM  CALCULATED.’) 

4001  FORMAT t  T3 3, ’FINAL  CONVERGED  TEMPERATURE  IS  ’,F7.i, ’ 

$  n F G .  F*/T32» 

1  *  PRESSURE  (PSIA.)  =  ’,F6.2,’  !CRIT  =  ’,E9.2,'  )*) 

8012  FORMAT  !/T43,  ’TURF  PI  A.  <IN.)  *  ,F6.2/T44,  ’  NUMBER  OF 

$  TUBES  =  * , F5 . 

10 /T42 , *  TUBE  LENGTH  (FT.)  =  F6 . 2/T41 ,’ PRESSURE  DROP 
$  !PSI)  =  * ,F6. _ 

12/T35, ’TOTAL  HEAT  LOSS  ( BTU  •  )  -  ’,£15.71 
9  0 00  FORMAT !  *  0 *  ,  T2 5  ,  '  **#*•*#**#*  #***■***#$*  ##  $  *** 

L  »U  J/  vl<-  *•»  J-  JU  »•/  Jy  -A» 

p  v  v  ?  -'i'-  -'•v  -Tp  v  ?r* 

1  ;jc  ft  ^c^cs>c  *  *  t  f  ) 

8010  FOP  MAT! 1H0,  • FEED  TEMP.  =  *,F10.4,'  DEG.  F, 

3  REFERENCE  ENTHALPY 
ITS  *  ,  E15  .  7,  ’  BTU.’/) 

5011  FORMAT! 1H0,  ******  TEMP.  =  *  ,F10.4,*  ,  ENTHALPY  =  * 

$  ,  E  1  5 . 7  ,  /  * _ _ _ _ 

10L0SS  =  '  ,  E  1 5 . 7  ,  *  ERROR  =  *,F15.7) 

END 
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SUBROUTINE  GUESS 


FUNCTIONS  - 


-  ESTIMATE  GENERATOR  ROUTINE 


* 


* 


C 

c 

c 

r 

v> 

C 

c 


* 


USES  THE  SECANT  METHOD  TO  PREDICT  THE 
INDEPENDENT  VARIABLE  THAT  WILL  RESULT  IN  A 
ZERO  ERROR  FUNCTION 

GIVEN  m  INITIAL  ESTIMATE  AMD  A  FACTOR  FOR 
GENERATING  A  SECOND  ESTIMATE  FROM  THE  FIRST, 
PRODUCES  THIRD  AND  SUBSEQUENT  ESTIMATES  FROM 


❖ 


C. 

c 

r 

G 

r 

V/ 

r 


PREVIOUS  ERRORS  AND  ESTIMATES 

SAVES  BEST  PREVIOUS  ESTIMATE 

MUST  BE  GIVEN  A  CONVERGENCE  ACCELERATOR 

(USUALLY  I  IF  run  CONVERGENCE  PROBLEM")  — 


WILL  EQUATE 
CONVERGENCE 


CONVERGENCE  ACCELERATOR  TO  1  AS 
PROCEEDS 


* 

* 

❖ 

❖ 


C 

r 


❖ 


*.*-  vt»  -JU  ^1/  J*  -gU  %•/  -V  J/-  ->'/  A>  >A#  si/  >1/  s1/  >V  sV  si*  sl»  sO  sl>  J/  •?-'  -J/  sfl*-  si*  J»  v*»  A-  J/  >C-  X  s*/  >1/  ^  J/  J/  s*/  A>  J/  si'  5*'  • 

«vv  AS  .'^S  >(s  «,s  /,s  /^s  /JS  -%s  /(S  ^  //»  /|S  /^s  /|»  /jS  /||S  ^s  >jS  y(s  jjs  /js  «,» .ijs  >js  .»j»  /|S  ^  ^s  >(S  <js  >(S  /JS  /js  /|V  /,s  /)S  >,s  /,s  /|S  /jS  ^s  ',s  .-fv  . 


SUBROUTINE  GUESR (GUESS »FACI ,F AC2 , ERROR , I TERH ) 


THIS  METHOD  USES  THE  SECANT  METHOD.  GUFSS  MUST 
C  *****  BE  FOUND  SUCH  THAT  THE  ERROR  BECOMES  ZERO.  TWO 

O****  INITIAL  GUESSES  ARE  REQUIRED  TO  INITIALIZE  THE 

METHOD.  THF  FIRST  IS  SUPPLIED  BY  THE  CALLING 
C*****  PROGRAM  ON  THE  FIRST  CALL  TO  GUESR.  THE  SCCONO  IS 

C*****  GENERATED  BY  GUESR  ON  THE  SECOND  CALL.  SUBSEQUENT 

C»**»*  GUESSES  ARF  DERIVED  FROM  THE  LAST  TWO  GUESSES  ^  NO 

C*****  ERRORS. 


ITERH=I TERH+ 1 

IFC ITERH-? )  LOO ,  102, L03 

C*****  STORE  FIRST  GUESS  SUPPLIED  BY  CALLING  ROUTINE. 


100  GUE  SI =GUESS 
RETURN 


0*****  GFNERATE  SECOND  GUESS  FROM  FIRST.  (STORE  FIRST 
C*****  ERROR  AND  SECOND  GUESS). 


102  ERP 1=  ERROR 

GUE$S=GUESS*FAC1 
GUE S2=GUESS 
RETURN 


Ct-****  THIRD  OR  GREAT  FR  GUESS.  GENFRATE  FROM  LAST  TWO 
C*****  GUESSES  AND  ERRORS  TO  APPROX.  GUESS  FOR  ZERO 

£***#*  ERROR. 
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SUBROUTINE  GUFSR  i**(CONT»D) 


103  GUE  SS  =  GUES1 -FAC2*( i GU ESI -CUES 2 ) *ERR1/ { ERR1 -ERROR }  ) 


Ff  THIP^  guess',  save 

BEST  OF 

FIRST  TWO  GUFSSES. 

I  F  {  I T  ERH- 3 )  104,  104 ,  105 

104 

105 

IF ( AB S ( ERR  1 ) -ABS  (ERROR)  ) 
GUES1 =GUES2 

FRR1=ERR0R 

106,1 06, 

105 

1  06 

108 

GUE S2 -GUESS 

T  F (  I TERH-4 )  107,  108,108 
FAC  2=  1.0 

107 

return 

END 
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C  ********  ***  ***********************************  ***#***#$## 


r 

r 


C 

r 

C 


SUBROUTINE  PROP 


'C' 

3jC 

* 


FUNCTIONS  - 


STREAM  PROPERTY  EVALUATION  ROUTINE 


* 

-A- 

* 

* 

* 

* 


c 

c 

c 

c 

c 

c 


5? 

* 

* 

* 


CALCULATES  STREAM  PROPERTIES  USING  AN  AVERAGE  * 

STREAM  COMPOSITION  AND  AVERAGE  TEMPERATURE  * 

EVALUATES  AVERAGE  COMPOS  I  TON,  AVERAGE  AND  WALL  * 


f SULPHUR  DEW  POINT)  TEMPERATURES,  GAS  VISCOSITY, 
DENSITY,  TOTAL  STREAM  MASS  AND  MOLES,  AND 
AVERAGF  STREAM  HEAT  CAPACITY 


C  *  * 

C  ****  **  ******  **  ********************************  **^.**  ***  *** 


SUBROUTINE  PROP (TWALL ,Y AVG,  AVGMU  »WALMUTRHG7t  MASS,  YTOT 
$ , CP AVG ) 

DIMENSION  YAVGI2Q) 

COMMON  /GENI/IWRIT, ID9UG(  15  )  , I TE ST,CR I T ,NCMS , NTOT . 

E OMMON  /GEN2 /TEMP, T FEED, YCOMP( 20 ) , YFEEDI 20 ) , PRES S, ENTH 
COMMON  /DAT A4/RMUC 20) ,SMU(20) ,RAPCT( 20) 

C OMMON  /DAT  A5/  I  DH20,  IDSUU5  )  , WTMOL( 20)  , VMOLE  (  20  ) 

I F  C I  TEST-7 )  811,810,810 

BIO  WRITE ( I  WRIT  ,999  9) _ _ _ _ 

9999  FORMATdHO,  '  PROPERTY  EVALUATION  ''PROP*' 

$  '  /) 

811  CONTINUE 


C  *  *  *  *  *  CALCULATE  MEAN  TEMP.  AS  AVERAGE  OF  INLET  ( T  FEED ) 

AND  OUTLET  { TFMP  )  TEMPERATURES. 


TMEAN=( TFEED+TEMP  )/2.0 

C*****  CALCULATE  MEAN  COMPOSITION  -  AVERAGE  OF  TWO 
C***«*  COMPOSITIONS  SATISFYING  MASS  BALANCES  ALSO 

C*****  SAT  I SEYS  IT. 


DO  40  1  =  1 , N  TOT 

40  v AVG (  I )= ( YCOMPI  I  )  +YF E ED ( I )  )  /2.0 

C*****  CALCULATE  TUBE  WALL  TEMP.  (TWALL  )  =SULPHUR  DEW  PT. 
C*****  TEMP. 


CALL  DEW  PT ( TWALL  ,YAVG , PRESS  ,  l  ) 


C*****  CALCULATE  STREAM  VISCOSITY  AT  MEAN  STREAM  TFMP. 

C *****  AND  AT  WALL  TEMP.  STREAM  VISCOSITY  IS  WEIGHTED 
C»»***  (ROOT  MCL.  NT.)  MEAN  OF  COMPONENT  VISCOSITIES. 

C*****  ref.  -  DERIVED  FROM  DATA  IN  PERRY’S  CH.  ENG. 

C*****  HANDBOOK 

C  *  *  *  *  *  DATA  FORM-  MU  (CENT  I  POISE)  =  RMU  +  SMU  *  T  (DEG.F) 
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SUBROUTINE  PROP 


( CQNT*  Q ) 


SUM  1=  0 . 

SUM 2=  0 . 

S  UM 3  =  0. 

DO  1  1=1  , NGMS 

YM=YA VG( I ) * WTMOL { I ) **0.5 

SUM 1=SUM1+YM  ' 

SUM2=SUM2+YM*(RMU< I ) +  SMUI I ) *TMEAN ) 
1  SUM3=  SUM3+YM*  ( RMU (  I  )+SMU(  I )  *TWALL } 
A VGMU=SUM2/ SUM1 
WALMU= SUM3/ SUM1 


C *****  CALCULATE  GAS  STREAM  MEAN  DENSITY  I RHO=L B/CU. FT ) 

C*****  USE  IDEAL  GAS  LAW  (PV=NRT)  -  FIRST  CALCULATE 

C****»  TOTAL  HOLES  and  TOTAL  mass 


Y  T  0  T  =  0  . 

T  M  A  S  S  =  0 . 

DO  2  I  =  1 ,  NG  M  S 
YTOT=VTOT+YAVG( I ) 

2  TMA  SS=TMAS S+YAVG ( I )*WTMGL( I ) 

F  HO=  T  H A  S  S  *PRE  S  S / ( 10. 73*YTGT* ( TMF  AM+459 . 69 )  ) 


C*****  CALCULATE  STREAM  MEAN  HEAT  CAPACITY  AS  MEAN  OF 

C*****  "  STREAM  HEAT  CAPACITIES  AT  TFEED  AND  TEMP. 


C  P A VG -  ( H F C  A L  (  T  F E ED ,  Y A VG  , - 1  }  +  MFC  AL  {  T  E  M  P ,  Y A V G ,  -  i  )  )  / 2 . 0 
$*YTOT/THAS$ 

I F {  I  T  EST- 7 )  301,800,  300 

800  WRI TE { IWRIT  ,5000)  TME AN, YTOT , TM ASS , AVGMU , WAL MU , RHO 
■$»  TWALL  ,C  PAVG 

801  CONTINUE 
RE  TURN 

5 0 0 0  F OR M A T ( 1 HO f  * T M E A N  =  * , E 1 5 • 7 , 2 X,  * Y T OT  =  * 

$,E15.7,2X, 

_ I’TMASS  =  '  ,  El  5. 7, /IX, » AVGMU  =  1  ,E15.7,  ?X,  «WALMU  =  * 

'  $, El  5. 7 , 2  X , 

1'  RHO  =  * , E15. 7,/ IX, *  THEWS  =  *,E15.7,  2X,'CPAVG  =  1 
$, E15. 7) 
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c 

3^C  sjc  > 

########  ####2};#  ## 

#  #  # 

c 

* 

c 

5»? 

SUBROUTINE  SUMER 

* 

c 

* 

c 

FUNCTIONS  - 

y*; 

r 

£ 

C 

# 

-  STREAM  SUMER  ROUTINE 

r 

C 

r 

vy 

c 

c 

c 


* 

* 


-  DEPENDING  UPON  A  FLAG,  SUMS  TOTAL  MOLES  AND 
MASS,  TOTAL  MOLES  AND  MASS  OF  ELEMENTAL 
SULPHUR  OR i  TOTAL  ATOMS  AND  MASS  OF  (ATOMIC) 
SULPHUR  IN  A  GIVEN  STREAM 


* 

* 


£ 


#  s’;  #  ##  #  #  #  ##  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  #  ❖  #  #  #  #  #  #  #  ##  ##  #  #  #  ###  4s 


SUBROUTINE  SUMER  ( VDIJMY  ,  INDEX,  IFLAG, TOTAL ,TMASS  ) 
DIMENSION  YDUMYI20) 


COMMON  /GEN1/IWR IT, IDBUG( 15) , ITEST,CRI  f ,  NGMS «  NT OT 
COMMON  /DAT  A  I /FOR MU { 20 , 5 ) , N ATYP, I DATM ( 5 ) 

COMMON  /DAT  A5/T DH20 , IDSUL(5 ) ,WTM0L(2O) ,VMOLE (20) 


>-C»  J#  Jy 

\y  ~  ">' 

IFLAG  =  0  -  SUM 

TOTAL 

MOLES 

AND 

MASS 

(ALL  SPECIES) 

C*  -A»  Jj*  ■A'  J/ 

1  -  SUM 

TOTAL 

MOLES 

AND 

MASS 

( SULPHUR ) 

r*  j»  ,0  »a»  j/  -v*^ 

1  ./,»  ^)V  yj* 

Z'  •A/  -A/  Jy  Jy 

'C'  -Y* 

2  -  SUM 
ATOMS) 

TOTAL 

ATOMS 

AND 

MASS 

( SULPHUR 

TOT  AL  =0 . 0 

T MASS =0.0 

Q -##### 

DECIDE  WHAT  TO  SUM. 

IF(  IFLAG-!.)  1,2,3 

Z“  Ay  a,V  A»  A/ 

^  -v* 

SUM  ALL  MOLECULAR  SPECIES 

(TO  INDEX  INCLUSIVE). 

1 

DO  10  1=1, INDEX 

TOTAL  =  TOT  AL+ YDUMY ( I ) 
TMASS=TMASS+YDUMY { I ) *WTMOL< I ) 

10 

CONTINUE 

RETURN 

c ##  ##  # 

SUM  ALL  PURE  SULPHUR  SPECIES  (TO  INDEX 

INCLUS IV E) . 

2 

00  20  1=1,5 

15 

I CN TS= I DSUL ( I ) 

IF(ICNTS)  20,20,15 

I F ( I CNTS-I NDEX )  16,16,20 

16 

20 

TOTAL=TQTAL+YDUMY( ICNTS ) 

TMASS=TMASS+YDUMY( 1CNTS) *WTMOL( ICNTS) 
CONTINUE 

RETURN 

(2####  # 

SUM  TOTAL  SULPHUR  ATOMS  IN 

ALL  SPECIES 

*  :  r. 
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SUBROUT  INF  SOWER 


(CONT » 0 ) 


(FROM  1  TO  INDEX  INCLUSIVE). 

3  C  ON  T I  NUr 

C*****  IDENTIFY  SULPHUR  COL.  IN  FOR MU  M A  T  R I  X 

I ROW= I DSUL (  I) 

DO  25  J  = I ,  N  A  T  Y  P 
I  F  (  FOR  MU  (  I  ROW ,  J  )~-Q  *  1 )  25,25,26 

25  CONTINUE 

26  ICOL-J _ 

DO  30  1=1, INDEX 

30  TOT  AL-TOT  AL+YDUMY ( I ) *FORMU(  I  »  I  COL ) 

T MASS-TOTAL *32.0 
RETURN 
END 


f  '  ’  ) . . .  •  '  . 
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c  * 

* 

C  *  SUBROUTINE  PRCNT 

C  * 

C  *  FUNCTIONS  - 
C  * 

C  *  -  SULPHUR  CONVERSION  AND  RECOVERY  ROUTINE 

wU 

❖ 

•JU 

'f- 

❖ 

C  *  -  CALCULATION  BY-PASSED  IF  OUTPUT  PRIORITY  FLAG 

C  *  IS  OFF 

C  *  -  STORc  S  INPUT  SULPHUR,  FINDS  REAL  AND  APPARENT 

C  *  SULPHUR  CONVERSION  OR,  FINDS  TOTAL  PLANT 

C  *  SULPHUR  RECOVERY,  DEPENDING  UPON  A  FLAG 

C  *  -  FOP  LAST  C AS  ^ »  ALSO  COMPLETES  PLANT  MASS  AND 

'(*■ 

~r- 

■j, 

■A, 

* 

V 

C  *  ENERGY  BALANCES 

C  * 

V 

C  #JSes}S:#:$tJ{S5{C3(t  j}C3{CS{c  #  #  #  :$!  :#  3{£  #  2}c  #  jjf  #  <£3$C  ^  #  jf:  :£  :$  5je  :$:  S?C  £  2jt  £  5$:  >}£  3$C  :£  jJc^Cjjt  £  Jj  :£ 

SUBROUTINE  PRCNT  { I  FLAG) 

DIMENSION  NAMEC5) , AT  IN (5 ) , A  TOUT C 5) , YDUMYC 2  0 )  


COMMON  /GENI/I WRIT,  IDBUGC 151,  ITEST, CR I T , NGMS , NTOT 
COMMON  /GEN2/TEMP,TFEED, YCGMPC 20) , YFEEDC20) , PRESS, FNTH 
C  OMMON  /DAT  A 1 / FO R MU  C 20,5) , N ATYP, I DATM { 5 ) 


COMMON  /F  LOW 1 / I NFO  t  75 , 5 ) , NNE  QP , NOSTM 
DATA  NAME/ *  S  ' ,*  1 2 3 0  *  , *  C  »,'H  *,'N  */ 

I  F  (  IT  EST-I )  900,100,  100 


COMMON  /FL0W1/INF0(75,5) , NNE QP, NOSTM 

DATA  NAME/ *  S  •,'□  »,’C  »,*H  *,'N  •/ 

I  F  (  IT  EST-1 )  900,100,  100 

100  CONTINUE 

I  F  <  I  EL AG— 2 )  1,2,3 

1  CALL  SUMER! VF F ED , NTOT , I  ,‘TOTS  *T5M1  ) 

CALL  SUMER { YFEED, NTOT, 2, TOTS, TSM2 ) 

I  F ( IFL  AG— 3 ) 900 ,  2,2 

2  CALL  SUMERCYCOMP, NTOT, 1, TOTS, TSM3) 

— 

C0NV1=TSM3/TSM2* 100.0 

CONV?= ( T  SM3-TSM 1 )/<  T SM2-TSM 1 ) *100. 

WRI TEC IWR IT, 1000)  CON VI 

I F { AB SC CONV 1-CON V2 ) -0. 1)  11,11,10 

10  WRITE ( IWR IT, 1001 )  C0NV2 

11  WRITE (IWRIT, 9000) 

GO  TO  900 

3  CONTINUE 

E  N I  M=  0 . 0 

ENO’JT  =0  •  0 

DO  40  1  =  1, NTOT 

YFEED ( I ) =0. 0 

— 

40  YCOMP  C I )=0.0 

DO  50  1=1,50 

I  E (  INFO C  I  ,  l  )  )  50,50,  51 

51  TFC  INFOC  1,5) )  50,52,50 

52  I F {  INFOC  1,2) )  54,53,54 

53  CALL  SUTILC I ,1 , YOU MY , TEMP , PRESS ) 

DO  60  J  =  1 , N  T 0 T 

60  YFEEDC  J )=YF EEOC J ) +YDUMYC J ) 
FNTN=ENIN+HFCALCTEMP,YDUMY,0) 

100  CONTINUE 

I F (  I  FLAG- 2 )  1,2,3 

1  CALL  SUMER (YFEFO, NT UT,1, TOT S, T S  *n  ) 
CALL  SUMER { YFEED, NTOT, 2, TOTS, TSM2 ) 
I  F ( IFL AG— 3 ) 900 , 2 , 2 

2  CALL  SUMERCYCOMP, NTOT, 1 , TOTS, TSM3) 


C0NV1=TSM3/TSM 2*100.0 
C0MV2=(TSM3-TSM1 )/{ TSM2-TSM1 > *100. 

_ WRITE (I WRIT, 10001  CON VI 

I F { AB  S ( CONV 1-CON V2 ) —0 • 1 )  11,11,10 

10  WRITE ( IWR IT, 1001 )  C0NV2 

1 1  WRI TE { I WR I T ,9000) 


GO  TO  900 

3  CONTINUE 
E N I N= 0 . 0 
ENG UT =0.0 
DO  40  1=1, NTOT 
YFEED ( I ) =0. 0 


40  YCOMP { I )=0.0 
DO  50  1=1,50 
I F ( INFOC 1,1))  50,50,51 

51  IF ( INFOC 1,5))  50,52,50 

52  IF(  INFO (  1,2) )  54,53,54 

53  CALL  SUT IL ( I ,1 »YDU MY, TEMP, PRESS) 


DO  60  J= 1, NTOT 

60  YFEEDC J)=YFEEDC J ) +YDUMY ( J) 
FNTN=ENI N+HFCAL ( TEMP, YOU MY, 0 ) 
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SUBROUTINE  PRC  NT 


(CONT*  n ) 


GO  TO  50 

. 54  I F (  I N F Q ( 1,31?  50,55,50 

55  CALL  SUTIL!  I,  1 ,YDUMY,TE VP, PRESS) ' 

DO  61  J=l,NTOT 

_ 61  YCCMP!  J  )  =  YCOMP  {  J  )  +  YOU, MY  (  J  ) 

FNOUT=ENUUT+HFC AL( TEMP, VQUM yToT 
50  CONTINUE 

WR I TF { I WR I T  ,2000 } 

W  RITE ! I  UP  TT ,9000) 

WRITE  {  IWP.IT  ,2020) 

A  TOTL  =  0. 0 
ERRGR  =  0>  Q 
DO  68  1=1,5 
A  T  I  N  (  I  )  =  0 . 0 
A TOUT { n  =0.0 

68  CONTINUE 

DO  70  J= 1 , 5 
ICQL= I DAT  M ( J )  " 

DO  69  I  =  1 , N T 0 T 

ATINC  I  COL  )  =  AT  I  N  (  I  cot  ?  + FOR MU  {  I ,  I C  OL  )  *Y  E  FED  {  I  ) 

A T  OUT ( ICOL ) = A TOUT (  I COL ) + FOR MU (1,1 COL ) ♦YCOMPC  I ) 

69  CONTINUE 

A  TOUT ( ICOL ) =( AT  IN!  ICOL  )-ATOUT {  ICOL) ) /AT  INI ICOL) *100.0 
WRI TE ( I  WRIT ,2001)  NAME { J ) , AT  INC ICOL ) , A TOUT {  ICOL ) 

A  TO  TL  =  AT  OT  L  +AT I N ( ICOL ) 

F  R ROR=ER RO R  +  A T I N ( ICOL ) * AT OUT ( ICOL ) 

70  CONTINUE . 

ERROR= ERROR /ATOTL 
WRITE ( I WRIT  ,2  002 )  ATOTL, ERROR 

WRITE ( I WRIT, 9000)  - - - - - 

D IF  F=  EN I N-ENOUT 

H R ITE  C IKRIT ,2003 )  E  N I N , F NOU T , 0 [ FF 
- ! p I TF { I WR IT ,9000) 

WRITE (IWRIT ,1002) 

GO  TO  1 

QOO  RETURN 

1000  FORMAT (/ /T40 *  PERCENT  OF  TOTAL  INLFT  SULPHUR  * /T39 ’OUT 
$  AS  ELEMENTAL 

1 'SULPHUR  =  ’  F6.2  ) 

1001  FORMAT!/ /T37' PERCENT  OF  NON-ELEMENTAL  INLET  SULPHUR’ 

$  /T 39 ’ OUT  AS 

1  ELEMENTAL  SULPHUR  =  ’F6.2) 

1002  FORMAT! ’ 0 *T40 • OVERALL  PLANT  SULPHUR  RECOVERY’) 

2000  FORMAT (» 1*/////T36» OVERALL  PLANT  MASS  AND  fnfrgy 
$  BALANCE ’ ) 

2020  FORMAT ( T41 *  ATOM  AND  TOTAL  MASS  RALANCES*/ 

5/T37 ' ATOM’ T51 *AT0M’T65*PE 

lPCENT* /T37*  TYPE’ T5 1 • TOTAL ’ T66»  ERROR  »7T 

2001  FORMAT ! ' 0 *  T  39 , A 1 , 7X , E 1 3 . 6 , 5  X , F7 . 5 ) 

2  002  FORMAT ( *  O’ T37* TOTAL ’5X,E13.6,5X,F7.5) 
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SUBROUT  INF  PRC NT  .  ..(CONT’O) 


2003  FORMAT!  • 0* T43 ’ ENERGY  BALANCE' // T3  8  *  {  CN  TH  AL  P Y  IS 
$  RELATIVE  AND  IN  BT 

10. ) '//T41' ENTHALPY  IN  =  ’ E 1 3 . 6 / / T4 1  * E N THA L P Y  OUT  = 

*  ' E 1 3 . 6/ /T4  l ' 01 

lFFERENCE  _  =  '  El  3.0/ /  T  3  4  '  OIFFERENCE  SHOIJLO  BF  TOTAL 

$  PLANT  HF AT  LOA 
10'  ) 

9 0  00  FQPM  AT  ( ’  0  *  »  T2  5  »  *  ♦■***  #*#•*$  **#*##*  *#-**#■*£#*❖ ##  ❖ 

it  «.•.  Jf  gu  si>  s»r  J> 

4>  -O  *V*  V'-  V  T  '»*•  "T  -  ^  ^  v 

FNO 
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SUBROUTINE  STEAM 


-  FUNCTIONS  - 


_Z _ STEAM  PRODUCTION  CALCULATION  ROUTINE 


FINDS  CORRECTED  LATENT  HEAT  OF  STEAM  AND 
STEAM  PRODUCTION  (LBS,  AND  MOLES)  FOR  A  GIVEN 

duty,  feedwater  stream  and  steam  temperature 


STORES  RELEVANT  STEAM  PEFD  AND  PRODUCT  STREAMS 
IF  PRESENT 


-a. 

nr 

* 

% 


********  ***************************** 


SUP  ROUT  I NE  STEAM  C  DUTY  ,TSTEM,  PSJEMjrNSTMSjNS  TMP_,J  PAR] 
C OMMON  /GEN 1/1 WRIT , I  DRUG!  15), T TE S T , CR I T , NGMS , NT 6 T 
COMMON  / S TORI/ EQUIP (300 ) , ILOCt  NM8EQ, STREM(  50, 22 ) 
_ $, NS  IN ( 5 )  , NS OUT ( 5 ) 

C  OM  MON  /DATA  5/1  D  H20  ,  I D  S  U  L  (  5  }  ,  w  T  M  0  L<  20)  , VMOLE  [20)  ~ 
STORE  STEAM  PRESSURE  IN  EQUIP  VECTOR. 


I VAL= I LOC+ I  PAR 

EQUIP ( IV AL) =SIGN(PSTEM, EQUIP! IVAL) ) 
COR EC =0.0 


C***** _ _ I?=  STEAM  FEED-HATER  STREAM  EXISTS,  CHECK  ITS  TEMP. 

IF(NSTMS)  100,100,10 
_  10  TSIN=ABS{ S T R E M ( N S T M S , 2 1  ) ) 

IF!  TSIN)  12, 1.2,1  1 

C IF  TEMPERATURE  !  FEED-WATER )  SPECIFIED,  CALCULATE 
r  *  *  *  i-  *  LATENT  HEAT  CORRECTION  TO  COMPENSATE  FOR  HEATING 

C *****  (COOLING)  TO  THE  SATURATION  TEMP.  CORRESPONDING  TO 

C*****  GIVEN  PRESS.  (ASSUME  1.0  BTU . /L B . DEG. F ) 


11  COREC-TS  TEM-T  SIN 
GO  tu  100 


C*****  if  FEED-WATER  TEMP.  NOT  GIVEN,  SET  TO  SAT.  TEMP. 


12  STREM (NSTMS ,21 )-TSTEM 


C*****  CALCULATE  LATENT  HEAT  OF  FEED-WATER  AT  SAT.  TEMP. 
C*****  THEN  CORRECT  THIS  TO  EXISTING  CONDITIONS. 

100  DELHV=EXP( 7 . 0Q95+0 . 3542* ALOG ( 1 . 0-TSTEM/705 . 4 ) ) 

CDELH  =  DELHV  +COREC 

C*****  CALCULATE  STEAM  PRODUCTION. 


t : '  j  '  •  • 
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SUBROUTINE  STEAM  .  .  .  ( CONI 1 0 ) 


PROD=  DUTY/CO ELM 


r  *****  '  if  FEED-WATER  STREAM  EXISTS,  SET  PRESSURE  AND  FLOW 

_ IEINSTMS )  21,21,20 _ 

20  S  TRF  M { N  S  TM  S , 2  2 )  =  S I GN { PSTEM, EQUIP! IVAL)  ) 

STREMCNSTMS , I DH20) = PROD/W TMOL ( I0H2O) 

C*****  if  STEAM  PROD* *  STREAM  EXISTS,  SET  PRESS ,  TEMP.  AND 
C*j£**X:  FLOW* 


21  IF(NSTMP)  23,23,22 

22  S  TREM { NS  TMP  ,  22 ) =  $ I G N ( PSTEM , EQU I P { I V AL)  ) 
S  T  R  F  M  !  N  S  T  M  P  ,21)  =  T  S  T  E  M 

STREM ( NS T M P , I  OH  ? 0 ) =  P R 00 / W T M OL < 1 0 H 20 ) 


C*«***  PRINT  RESULTS  IF  REQUIRED. 


23  I F I  I  TEST- 1 5  801  ,800,800 

800  "PI TF { I  WRIT, TOGO)  8UTTfTST5M»PSTEM,OELHV,CQREC,PROD 
WRITE  (  I  r  IT  ,"90001 

801  CONTINUE 

_ RETURN _ 

TOGO  FORMAT! ///T25 ' EQUIP.  HEAT  DUTY  ( B TU/HR )  I S ’ , T 70 , E 15 . 7 / 


$ / T  2  5 ’ STEAM 

ITEM0.  {  9  E  G  ,  F  .  )  =  « ,T71, FT. 1/T32*  PRESS.  CPSIA)  ='T10 
$,F8;3/T32'LATEN 

IT  HEAT  I BTU/LB )  =  *  ,T71  ,F7,  1  ,  / T  3  2 ,  ’L.H.  CORRECTION 


9000 


$  =  *  T7 1 , F  7. 1/T32, 

1 ' PRODUCT  I ON  ( LB/HR  I  =  « T63 , E 1 5 . 7  ) 

FORMAT! *  0* , T?5, 1 


*  $  $  **  ***  % 

1J.  -A,  ^  S.V  J-  4,  ,0  I  /  \ 

*!*•  'J-*  *v  ^  ^  'r  'r'  1  /  f 


END 
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SUBROUTINE  AIRFD 


FUNCTIONS  - 


COMBUSTION  AIR  REQUIREMENT  ROUTINE 


* 

* 

❖ 

* 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


❖ 

❖ 

ic 

5jc 


FINOS  AIR  STREAM  (NITROGEN,  OXYGEN  AND  WATER) 
REQUIRED  TO  COMPLETE  A  SPECIFIED  COMBUSTION 
REQUIRES  FRACTION  OF  SULPHUR  TO  BF  BURNED, 
EXCESS  OR  DEFICIENT  AIR  COEFFICIENT  AND  AIR 
RELATIVE  HUMIDTY,  PRESSURE  AND  TEMPERATURE 
SPECIFICATIONS  


*  -  STORES  AIR  STREAM  SEPARATELY  —  ALSO  ADDS  AIR 

*  TO  GIVEN  STREAM  TO  BE  COMBUSTED  AND  FINDS 

*  RESULTING  COMBINED  TEMPERATURE 


* 


* 


❖ 

❖ 


sje 


* 


*;*c  jfs  >!«  £  ❖  sjesjt  ^  aje  #  &  j{c  SJc  :5c^s^c  sfc  %  # 


SUBROUTINE  AIRFD  < YCGMP , TEMP , SPEC  1 , SPEC2 , REL HY,YA IR 

$, TAIR ,PAIR) 

DIMENSION  SUMS! 4) ,YAIR(20) ,YC0MP(20 ) 

COMMON . /GEN  I/I WR I T , IDBUGC IS) ,  ITEST,CRI T,NGMS ,  NTOT 

COMMON  /DAT  A5/ I DH20,  IDSUL( 5  )  ,WTMOL (20) ,VMOLE { 20 ) 
COMMON  /DATA1/F0RMIM  20,3)  ,N ATYP,  T  D ATM ( 5 )  _ _ 

DATA  I DF Y/0 / 

IF(IDFY)  1,1,2 

1  ICHEK=0 

■  DO  10 . 1=1,  NGM  S 

I  ND  I  C=  ID  ATM  (2  ) 

I F ( FOfiMU  <  I  ,  INDIC )-0»01 )  5, 5 , 50 _ _ 

5  INDIC- IOATM (5 ) 

I F ( FOR MU ( I , INDIC )-O.Qi)  10,10,50 
50  DO  60  J=X , NATYP 

IF(J-INDIC)  55, 6Cf,55 
55  IF ( FORMU ( I , J )— 0. 01 )  60,60,10 

60  CONTINUE _ _ 

I  FC  INDIC- ID  ATM  (  2  )  )  62,61,62 

61  NO 2= I 

I CHEK- ICHEK+1 
GO  TO  10 

62  NN2=I 

ICHEK=ICHEK+1  _ _ _ 

10  CONTINUE 
I DF Y=  1 

I F ( ICHEK-2  I  500,2,500  _ 

500  WRITE ( I WRIT ,5000) 

2  CONTINUE 

DO  90  J=  l  , 4 _ 

00  SUM  S ( J )  =  0 . 0 
DO  100  J  =  1 , 4 
NCOL=IDATM( J) 


V  ■  V  A  ; 
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SUBROUTINE  AIRFD  . ..(CONT’D) 


DO  100  I  =  1 »  N T 0 T 

SUMS ( J  ?  =  SUMS ( J ) + FOR MU ( I , NCOL ) *YCOMP ( I ) 

100  CONTINUE 

DO  20  0  I = 1 , NTOT 

200  V A  I R {  I  )  =  0.0 _ 

V  A I  R  <  N02  )  =  SPEC  1*0. 5  4'  {  SUMS  {  1  )  *2.*SPEC2  +  SUMS <  3  )  *2. 
1  +{ SUMS ( 4 ) -2.*SUMS (1) *( 1.-SPEC2) )*0.5-SUMS( 2 ) ) 
v  A I R  {  NM2  )  =' Y  A I  R  (  M  02  )  *  70  .  /  2  l  . 
r  ALL  VPRES ( VPH20  »DUMY ,TA IR, 6 J 
VPH20=VPH20*14. 696*RELHY/ 100 . 

_ VAI R( IDH2Q)  =  t VPH20*< YA I R ( NO? ) + YA I R ( NN2 ) ) 

]  /< PA  IR-VPH20) ) 

E  NT HR=HFC AL { T  EM P , YCOMP , 0 ) +HFC  Al C  T  A IR, Y A  IR, 0 ) 

DC  201  1=1, NTOT 

201  YCOMP ( I ) =YCOMP(I J+YAIRt I) 

CALL  FINDTI YCOMP, TEMP jENTHR ) 

_ RETURN _ 

5000  FORMAT (« OERRDR  W.R.T.  PRESENCE  OF  02  AND/OR  N2 
$  SPECIES  * ) 

END 
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** 

-sly  sV  sl»  Jy  J*  «|y  Jy  vly  Jy  Jy  »*/  -.V  X  sty  X  Jy  X  X  X  X  sly  ->X  »'»  -sty  X  X  Jy  X  X  X  sly  sly  X  X  X  sly  sly  X  X  X  sly  Jy  X  XX  sly  sly  X 
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SUBROUTINE  RKB0X 

X 

¥ 

sly 

V* 

X 

c 

c 

c 

5j< 

A 

yj 

FUNCTIONS  - 

(BLACK  BOX)  RUMMY  EQUIPMENT  MODULE  (ITYPF=10) 

* 

* 

X 

-V 

c 

c 

c 

It 

■V 

J- 

-1' 

-  SOLE  EQUIPMENT  PARAMETER  IS  TCT0F  (EQUILIBRIUM 
CUTOFF  TEMPERATURE)  —  ASSUMED  AS  -l  IF  NOT 
GIVEN  (I.F.  SULPHUR  SHIFT  ON  GIVEN  STREAM) 

* 

* 

<£ 

c 

r 

C 

* 

'T' 

s {« 

-  ALTERS  INLET  TEMPERATURE  AND  PRESSURE  TO  THE 
OUTLET  CONDITIONS  (TEMPERATURE  AND  PRESSURE) 
SPECIFIED  AS  ^STREAM  SPECI FACT  ION*  DATA.  IF 

X 

T 

❖ 

X 

C 

c 

r 

Vy 

* 

3* 

LATTER  IS  NOT  GIVEN,  OUTPUT  EQUATED  TO  INPUT 
-  I F  OUTPUT  CONDITIONS  (T  AND  P)  GIVFN,  COMPLETES 
COMPOSITION  CALCULATION  (DEPENDING  UPON  TCT0F ) 

sly 

•Av 

sly 

•V* 

c 

c 

r 

kJT 

J/ 

O' 

ou 

J/ 

AT  SPECIFIED  OUTPUT  CONDITIONS  AND  STORES 

OUTPUT  MOLE  NUMBERS.  ENTHALPY  DIFFERENCE 
BETWEEN  INPUT  AND  OUTPUT  TS  CALCULATED. 

•Mg 

T 

3k 

X 

O' 

c 

c 

& 

a-  X 

-V* 

X 

#  3^  sj<3k  £#5!;  3f£  #  if-  $  #  sfc  #  #3k  if.  3}c  3jc  -*  sje  if.  •&  if 

SUBROUTINE  8KB0X 

COMMON  /GEN  1/ I WRIT , IDBUG(  15)  ,  I  TEST , CRI T , NGMS , NT OT 
COMMON  /GEN? /TEMP,T FEED, YCOMP ( 20) ,YFEED( 20 ) , PRESS, 

ENTH 

COMMON  /STGR1/EQUIP (300) , I LOC, NMBEQ, STRFM(  50 , 22 ) 

$, NS  INI  5) ,NS0UT( 5) 

COMMON  /BURN! /TCTOF , T8URN , I  MUFF , NLGTH , NDI AM , NRT IM 

$, NHRL  5, N BURN 

WRITE ( I WR I T ,6000  )  NM8E  Q 

NSTRM-0 

CALL  SUTIL(NSTRM,0, YF FED, TFEED, PRESS ) 

CALL  PR NT S ( -1 ) 

TCTOF=SETVU (-EQUI P ( ILOC+1) ,-1.0) 

P  FEE D  =  PRESS 

HREF=HFCAL < TFEED, YCOMP, 0) 

NEX I T-NSOUT (  1  ) 

CALL  SUE  I L ( NEXI T , I , YCOMP , TE MP , PRE SS ) 

PRE SS-SETVU (PRESS ,°FEED ) 

TEMP= SET VU (TEMP  , TF  EFO ) 

1 

DO  I  1=1 , NTOT 

YC-CMP  (  I  )  =YF  EF0(  I  ) 

LOO  SE= 1 

K  I N I T- 1 

CALL  COMP (LOOSE, KIN  IT) 

CALL  SUT I L ( NE  XI T , 2 , YCOMP , TEMP , PRESS ) 

800 

HD I FF=HFC AL ( TEMP , YCOMP, 0 ) -HREF 

I F ( ITFST-1 )  801,800,000 

WRITE ( I WRIT  ,1000)  TFEED , TEMP , HD I FF 

801 

WRITE ( I WRIT ,9000) 

CALL  PRNTS(NEXIT) 

CONTINUE 
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SUBROUTINE  BKBOX  ...  (CONI' 0) 


RETURN 

lOOt?  FORMAT!  T31  *  TEMPERATURE  CHANGED  FROM  *F6.l«  TO  »F6«1 » 
$  DEG.F.*// 

1T32M  ENTHALPY  DIFFERENCE  IS  'E13.6'  BTU/HR .  )  *  ) 

6000  FORMAT  (T  50  »  BL  ACK  BOX  V  T45  '  E  OU I  PMEN  T  NUMBER.  M3) _ 

9000  FORMAT!  *  O'  j  T25  ,  * 

$  ^  sje  jJ:  ^  *  #  *  ijc 


'  ' . . .  •  i  ■ ; 
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❖  #  jJc  #  #3j;  ajcafc  ^  $  3}e  s^e  %  # ajesje  #  sJesjsajE  ^c  >j« 3jc  3$: a{e  #3$:  #  #  #  ^  #  $$$:£$$ 
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SUBROUT  INF  COMP 


* 


FUNCTIONS  - 


-  PRIMARY  COMPOSITION  CALCULATION  ROUTINE 


C 

c 

c 

c 

c 

c 


* 

s* 


OECIOES  WHETHER  TO  DO  COMPLETE  EQUILIBRIUM 
CALCULATION  AT  GIVEN  TEMPERATURE  f  EQUILIBRIUM 
AT  CUTOFF  TEMPERATURE,  SULPHUR  SHIFT  ON 
CUTOFF  COMPOSITION  OR  SULPHUR  SHIFT  ON 
GIVEN  COMPOSITION 

-  STORES  CUTOFF  EQUILIBRIUM  COMPOSITION  SO  THAT 


* 

A> 

❖ 

t- 


c 

c 

c 


'4  IT  NEED  BE  CALCULATED  ONLY  ONCE 

5»* 

3^  &  #  ak  *  *  3jt  ajc  5|j  >Ji  ajt  afcajc  a}t  3js  if.  jfc  3$c afcajc  3{c  3js  %  &:$c  ^  ijcajc  ;}:  afc  ajc  £  sje  $  3§{  3§c  3^ : 


SUBROUTINE  COMP { LOOSE , K I N I T ) 

DIMENSION  BSTORI51 , YCTOFI 20 ) 

COMMON  /GFNI/IWRIT, IDBUGI 15), I TF ST , CR I T , NGM S , NTOT 
COMMON  /GEN 2/TEMP, TFEED, YCOMPI 20) ,YFEED{20),PRESS,EN1H 
C 0 M MO N  /DAT  Al/F QRM1  )C  20,  5)  ,NATYP,  IDATMC  5) 

COMMON  / BURNI/TCTOF , TBURN , I  MUFF, NLGTH, NDI AM, NRT I M 
$,NHRLS,NBURN 

NST  OR  =  NG  MS _ 

C.  S  TOR  =  T C  TOF 

CALL  FAKER { NGMS ,  TCTOF , TEMP ) 

CP  ITS=CRIT 
IF(LOOSF) ] 30,100 ,101 

100  CP.IT=CRIT**0.25 

101  CONTINUE 


C*****  CHECK  TO  SEE  IF  TEMPERATURF  (TEMP  )  IS  B  F  LOW 

EQUILIBRIUM  CUT-OFF  TEMPERATURE  (TCTOF  ? .  IF  IT 
c*****  I  S  BELOW”,  USE  S TR E A M  COMPOSITION  AT  TCTOF. 

_ I  F (  I  TEST -4 )  803,800,  300 _ 

800  I  F  {  TEMP  -TCTOF)  801,801,802 

801  WRITE ( IWRIT, 5000)  TEMP  , TCTOF 
GO  TO  303 

802  WRITE (IWRIT, 5001)  TEMP  , TCTOF 

803  CONTINUE 

IF {TEMP  -TCTOF)  1,1,8 


C*****  CHECK  IF  EQUIL.  AT  THIS  CUTOFF  TEMP.  HAS  BEEN 

PREVIOUSLY  CALCULATED.  IF  NOT,  CALCULATE  IT  NOW 

1  IF ( ABS( ( TSTOR-TC TOF ) /TCTOF) -1 .OE-4)  2,2,6 


C *****  CHECK  IF  PREVIOUS  CALCULATIONS  WERE  FOR  AN 

£*****  IDENTICAL  STREAM  -  USE  ATOM  TOTALS  (B’S)  FOR 

C*****  STREAM  COMPARISON  -  IF  STREAM  DIFFERENT, 
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SUBROUTINE  COMP 


•  •  • 


(CONI' D) 


CALCULATE  NEW  EQUIL.  COMP.  AT  TCTOF 

2  nu  4  J  =  L  ,  N  A  TY  P 
TOT=0 . 

00  3  1=1  ,  NGMS 

3  TOT=TOT+FORMU( I  »  J)  ^YCQMPI  I) 

I F ( A  B  S ( ( TOT-BSTOR ( J ) ) /TOT ) -  1 .OF- 4 )  4,4,6 

4  CONTINUE 


C*****  EQUIL.  AT  THIS  EQUIL.  CUT-OFF  TEMP.  FOR  AN 
C *****  IDENTICAL  STREAM  HAS  BEEN  PREVIOUSLY  CALCULATED, 
C*****  SO  EQUATE  TO  PREVIOUS  RESULTS 

I E{  I  TEST-4 )  309,303,308 
3  08  WRITE {  I  WRIT,  8004) 

809  CONTINUE 

DO  5  1  =  1, NG M S 
6  YCOMP (I ) =  VC  TOP ( I ) 

GO  TO  99 

CALCULATE  STREAM  COMPOSITION  AT  TCTOF 

6  I  F ( I TE  ST-4 )  807,806,306 

8  06  W  R  IT  E  (  IWR  I  T  ,  50  0  3  )  TCI  OF  " 

307  CONTINUE 


C  J.  vY  Jr 

S  CALCULATE  RIGOROUSLY  (ONLY  DONE 

ONCE) 

IF ( LOOSE )  20,20,21 

20 

21 

CRIT=CRITS 

CALL  MI  NEE  ( PRE S S , TCTO F, YCOMP , K I N I T ) 
TSTOR- TCTOF 

f'  Jy  Jy 

1  ¥  *V 

£  ##  ## 

*  STORE  THIS  EQUILIBRIUM  COMPOSITION  AND  ATOM  TOTALS 

*  FOR  FUTURE  USE. 

10 

DO  10  J= 1 , N  ATYP 

B  ST  OR ( J)=0. 0 

DO  7  1=1, NGMS 

VCTOFI  I  ) -YCOMP (  I ) 

DO  7  J=1 , NA  TYP 

7 

99 

BSTOR( J5=8STOR ( J }+YCOMP{ I)*FORMU(  I, 
CALL  SHIFT! KI NI T,NTOT ) 

DO  12  1=1, NGMS 

J) 

12 

YCTOF ( I ) = YCOMP ( I ) 

GO  TO  9 

£*****  if  TCTOF  IS  NEGATIVE,  JUST  DO  SULPHUR  SHIFT  ON 

C*****  GTVEN  STREAM. 


i  '  - 


'  .  . . 

.  •  I  • 

»  '■  .  1  -  .  r  <  :  ■  f  '  (  '  •  '  t  -  )  ) 

.  ’ 
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SUBROUTINE  COMP  . ..(CONT*D) 


8  IF( TCTOF+LE-IO) 99,98,98 

C**#**  CALCULATE  EQUILIBRIUM  COMPOSITION  AT  SPECIFIED 

C*****  TEMPERATURE 


98  IF(ITEST-4)  805,304,804 

804  WRITE ( IWRIT, 500?)  TEMP 

805  CONTINUE 

CALL  MINFE  (PRESS,  TFNIP  » YCOMP , X I N Tfl 

C****»  CALCULATE  ENTHALPY  OF  STREAM  AT  SPECIFIED 

C*****  TEMPERATURE 

q  ENTH=  HFC  Al.  ( TEMP  ,YCOMP,0) 

TrTt=crits 

NGMS=NSTOR 

TCTOF=CSTOR 

RETURN 

5000  FORMAT ( l HO , 1  TEMP .  (»,F10.4,*  DEG.F),  IS  BELOW  TCTOF 

$  (  *  F  1  0 . 4 ,  *  |  »  )  _ 

5001  FORMAT (1HQ, *  fEMP.(  *  ,F10. 4,  *  DEG.F),  IS  ABOVE  TCTOF 

$  (  *  F  1 0 . 4  ,  *  )  •  ) 

5  0  02  FORMAT  (If)  ,  ♦CALCULATE  COMPOSITION  AT  SRQ.4,1  DEG. 

$  F*  ) 

5003  FORMAT (1H  , 'CALCULATE  COMPOSITION  AT  CUTOFF  TEMP.  (* 
$,<=10.4,*  tU 

5004  FORM  A T ( 1 H . 7* . COMP.  AT  CUTOFF . H A  S  BEEN . CALCULATED,  USE 

$  PREVIOUS  RES 

IULTS* ) 


END 


"  •  ... 
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• 
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C 

C 

c 

❖ 

A 

SUBROUTINE  SHIFT 

*Yk 

* 

* 

c 

c 

c 

* 

FUNCTIONS  - 

SULPHUR  SHIFT  ROUTINE 

* 

* 

* 

c 

* 

EXTRACTS  SULPHUR  VAPOR  SPECIES  (AND  OPTIONALLY 

c 

LIQUID  SULPHUR)  FROM  GIVEN  STREAM  — 

* 

c 

y? 

INTRODUCES  THEM  INTO  A  DUMMY  STRFAM 

c 

uu 

CALCULATES  EQUILIBRIUM  COMPOSITION  FOR  THIS 

* 

c 

-JL. 

'I'- 

DUMMY  STREAM  AT  GIVEN  TEMPERATURE  AND  EXISTING 

c 

SULPHUR  PARTIAL  PRESSURE. 

Y* 

r 

u 

c 

c 

c 

c 


* 


SULPHUR  PARTIAL  PRESSURE  CONVERGES 
SKIPS  CALCULATION  IE  NO  SULPHUR  IN  GIVEN 
STREAM 


* 

* 


#  #  *  # £  $  # *  jf; ^  afe  j*c  #  #  5jt#  4: ❖  $  &  *  ^s":^  &  ^  ^  *  *  # 


SUBROUTINE  SHI  FT { K I N I T , N I  NO ) 

DIMENSION  YDUMV (20) 

COMMON  /GENl/IWRIT,  ID8UGU5I  ,  ITEST,CR IT *NGMStNTOT 
COMMON  /GEN2/TEMP,TFEEQ,YC0MP( 20 ) , YFEED { 20 ) , PRES  S , ENTH 
COMMON  /0ATA5/I0H20,  I0SUU5  ),WTMOL(20)  ,VM0LE  (20) 

K ST OR-K I  NT  T 

I F I  I  TEST-4 )  801,800,800 

800  WRI TF (  IWRIT ,1000)  ( I n SUL ( I ) , I = 1 , 5 ) 

801  CONTINUE 
VT0T=0.0 
S  TO  T=  0 . 0 

DO  100  1=1, NGMS 
YTOT=YTOT+YCOMP( I ) 

100  YDUMY d  )=0.Q 
DO  1  1=1,5 
K=  I 

I  1=10  SUL ( I ) 
l  F  (  1 1  )  9 ,  9 , 2 

9  K=I— 1 
GO  rn  12 

2  YDUMY ( II }=YCOMP(  II) 

IF! I I -NGMS) 3,3,4 

3  STOT  =  S TO T+ YDUMY (II) 

GO  TO  1 

4  IF{  M-NIND)  5,5,9 

5  I  SUB=  IDSUL (  1 )  ___ 

STOT=STO T-Y  OUMY ( ISUB ) 

YDUMY ( ISUB) =Y DU MY { ISUB)+YCOMP( I  I ) *WTMOLI I  I ) 

$/WT  MOL { ISUB) 

S  TO  T=  S  T  0  T  f  Y  D'JMY  {  ISUB) 

YDUMY d I  )=0.0 
1  YCOMP (  IT  )  =  0 . 0 


- 


•  sn  ; 


,  r  T  ? .  ’  ,  f ) ,  ur 

.  •  * 

T  : 

t  :  (  -I?  '• " 

,?»?,(’  ■  )  [ 

e,  i=i 

•  c  t  )  : 

t  ,£ 

f!'  V  :  (  r  1 Y 

(  n 

{ 


SUBROUT  I ME  SHIFT 


(CouT*r>) 


1?.  CONTINUE 

I F ( STQT-1 .E~3) 5 0,50, 11 
11  P  A  RT  P*=  PR  E  S  S  *  S  T  OT  /  YT  0T 
51  CALL  MINFEI PARTP  ,  TEMP , YDUMY , K I N IT) 

DO  200  1  =  1, K 

I  I  =  T  D  SUL  (  I  ) 

200  YCCMP ( I  I ) -YDUMY ( II) 

CALL  SUMER! YCOMPfNGMS, 1 , STOTjOUMYl 
CALL  SU  WR  ( YCQMP,  NGMS ,  0  ,  YTQT  ,  DUMY  ) 

POLU= PART0 
K  I  N I T  =  0 

PARTP=PRESS*ST 0  T / Y T 0  T 

IF! ABS!PARTP-P0LD)/PQL0-CRIT**0.5)  50,50,51 
50  CONTINUE 
K IN  I f=KSTOR 
RETURN 

1000  FORMAT ( ’ 0  SULPHUR  SHIFT  CALCULATION,  COMPONENTS  - 

$,  51 3) 


> 


. 
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C  to************-****#******####***  *####*##  #**#### 


C 

C 

c 

c 

c 

r 


C 

C 

c 

c 

c 

c 


* 

if 

X 

if 


SUBROUTINE  MINFE 


FUNCTIONS 


-  FREE  ENERGY  MINIMIZATION  ROUTINE 


* 


* 

* 


INITIALIZES  TEE  EQUILIBRIUM  CALCULATIONS 
-  FOR  EACH  ITERATION,  SETS  UP  THE  MATRIX  FOR 
DETERMINING  THF  L AGRA NO  I  A  N  MULTI  PL  I ERS 
CALCULATES  TUP  PREDICTED  MOLE  NUMBER  CORRECTIONS 

<A> 

^  if  if  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ^  ft  *  *  ft  ft  ft  ft  ft  ft  X.  ft  ft  a,  ft  £  ft  ft  ^  ftft 


SU8ROUTI NE  MINFE { PRESS, TDEGF, YDUMY, KINIT ) 

DOUBLE  PRECISION  Z ,R , S ,  YBAR , SUM, p , B , R ATI  0, ADD, YCOMP 
DIMENSION  BIS)  , YCOMPC  20  ) , F { 20  f ,  STORE  ffo)  ,Z(6  ,6)  ,R(6  ) 
$, S ( 6 ) , ADO{ 20) 

_ DIMENSION  INDBI5) , T  POS ( 20 ) , YDUMY ( 20 ) 

COMMON  /GEN  I /I  WRIT,  IDBUGC 15 ) , I  TEST, CR I T, NGMS , NTOT 
COMMON  /DAT  A I /FORM!.!  (  2  0, 5  )  ,  NA  TYP,  IDATM  {  5  ) 

IF  < IDBUG  f 1 2 1-1 )  801,800,800 
BOO  WRITE! IWRIT ,5000) 

801  CONTINUE 

DO  200  1=1, NGMS _ 

200  YCOMP ( I ) =DBLE { YDUMY { I) ) 


r  *  *  # *  #  CALL  INIT  TO  INITIALIZE  THE  FREE  ENERGY 

C*****  MINIMIZATION  AND  TO  GENERATE  AN  INITIAL  POSITIVE 
C**-**  SET  OF  MOLE  NUMBERS  IF  NECESSARY 
c*****  I  POS, STORE, NATPR  AND  B  ARE  DEFINED  BY  IN  I f 


CALL  IN  IT ( P RESS, TDEGF, YCOMP, B, STORE, I NDB , I PO S ,NA TPR 
$, KINIT) 

MPl-NATPR+l 


C***»* _ ITER  -  ITERATION  COUNTER 


I TER=0 

101  CONTINUE 


C  ftft  ftft  ft 

O  -A* 

V,  '»v  *¥*•  'r-  A'  -v* 

HERE  TO  3 
LAGRANGI AN 

-  SET  UP  MATRIX  EQUATION 
MULTIPLIERS  -  THESE  ARE 

TO  FIND 

USED  TO 

f - 

C  if 

C  ft*  if  if  if 

C  if  if  ftft* 

■> 

GENERATE  A  NEW  SET  OF  MOLE  NUMBERS. 
TYPES  PRESENT  AND  MOLECULAR  SPECIES 
DETERMINED  BY  INIT)  ARP  CONSIDERED. 

ONLY  ATOM 

POSSIBLE  (AS 

— - - 

I  TER- ITER  +  1 

C  if*  if  if  if 

HERE  TO  I 

-  SUM  MOLE  NUMBERS 

YBAR=0 

IL 

->>  #• 


'  ! 

' 


'■  ,  '  '  f  ,  ,  '  t  '  t  ■  *  « 

,  '  .  :  r  ,  }  .  '  ’  •  t  ‘  ’ 

>  .'r!  • 

'  ’  {  '■  ,  ■  )  . 
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(  .  )  ■  t  a  r  .  ,  } 
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•  n  i  ;•  *  (  :  n  «  ■  r‘  r  r G 
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SUBROUT  INF  MINFE  ...(CONT «D) 


DO  1  1=1, NGMS 

YB AR=  YBA  R+YCOMP ( I ) 

1 

CONTINUE 

Q 

4  HERE  TO  2  -  CALCULATE  FREE  ENERGY  FUNCTIONS 

SUM=0 

DO  2  1=1,  NGMS 

LO 

F { I )  =  0.0 

I  F ( YC QMP { D  )  2,2,10 

CONTINUE 

2 

F ( I )  =  YCOMP ( I )*{STORE{ I ) +DLOG(YCOMPI I)/YBAR) ) 
SUM=SUM+F { I ) 

CONTINUE 

R { MP1 )  =  SUM 

DO  3  J  =  1  , NATPR 

I ND= I  NOB { J  ) 

Z ( J  »  M P 1 >  —  R  <  IND) 

Z ( MPI ,  J  )  =  B{  IND) 

SUM  =  0 

5 

DO  5  1=1, NGMS 

S  UM-SUM+F OR MU ( I ,  IND) *F( I ) 

CONTINUE 

R ( J )  =  SUM 

DO  3  K=l, NATPR 

I  NO  1  =  I  NO  B  { K  ) 

SUM  =  0 

DO  4  1=1, NGMS 

S  UM  =  S  UM+  F OR  MU ( I  , I ND ) * FOR MU  I  I  , IND1 ) *YCGMP{  I  ) 

4 

CONTINUE 

Z< J,K )  =  SUM 

Z  (  K  ,  J  )  =  S IJ  M 

— 

3 

CONTINUE 

Z { MP 1 , MPI 1-0 

I  F  <  ID3UG (  12  1-10)  806,804,804 

8  04 

805 

WRITE ( IWRIT ,5002 ) 

DO  805  1=1, MPI 

WRITE  {  IWRIT  ,5003  )  (  Z  (  I  ,  J  )  ,  J=1  ,MP  1  )  ,  R  U) 

806 

CONTINUE 

C*****  CALL  GAUSS  TO  SOLVE  THE  CONSTRUCTED  MATRIX 

C*****  EQUATION  FOR  THE  L A GRAN G  I  AN  MULTIPLIERS 

C *****  Z  -  SQUARE  MATRIX  ,  DIMENSION  MPI 

C*****  R  -  RIGHT  HAND  SIDE 

i  ^  ***■*•  "r'  •'r 

*  S  -  SOLUTION  VECTOR 

— 

CALL  GAUSS  (Z,R,MP1,S) 

I F ( I OBUG { 1 2 ) -1 0 )  808,  307, 8 O7 

807  WRITE ( IWRIT  , 5004 )  ( S { I) , 1  =  1 , MP I ) 

808  CONTINUE 


«  • 


'  .  0  =  u  ' 

, 

-  (  ' 

'  <  1  r"'?  IB 

'•  '  '  '  ,  I  ’ 
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SUBROUTINE  MINFF  ...  (  CDNT  1  0  ) 


Hppc  TO  6  -  CALCULATE  THE  CORRECTIONS  TO  THE 

MOLE  NUMBERS  CADD)  WHICH  WILL  RESULT  IN  A  BETTER 
APPROXIMATION  TO  THF  EQUILIBRIUM  COMPOSITION 
(MINIMUM  SYSTEM  FREE  ENFRGV ) 


RAT IO  =  S ( MP1  )  +  l .0 
DO  6  1  =  1  *  NG MS 
S  0  M  =  0 

DO  7  J=1 i NATPR 
I ND=I NDB { J  ) 

S U M=  SUM+S ( J ) *  FOR  MU (  1 ,  T  ND ) 

7  CONTINUF 

ADD ( I  )  =  ( -F (  1} +< P AT  I O  +  SUM ) *YCOMP {  I ) ) -YCOMP ( I ) 
6  CONTINUE 

I F (  ID BUG ( 12  )-8)  803,802,80? 

802  WRITE! IWRIT,5001  )  ( ADD ( I ) , I=1,NGMS) 

803  CONTINUE  “ 


_ 


CALL  YMOOY  TO  PREVENT  NEGATIVE  MOLE  NUMBERS  OR 
C*****  PREMATURE  ZEROING  OF  MOLE  NUMBERS  AND  TO  "CHECK  FOR 
C*****  CONVERGENCE 

CALL  YMODY (YCOMP  ,  ADO, ICNT, I  TER, TDFGF , PR  ESS ,  IPOS) 


C *****  _  IF  CONVERGED  ( I CNT=NGMS ) ,  TERMINATE,  OTHERWISE 

£*****  ITERATE 

I  F ( ICNT-NGMS)  101,100,100 

100  no  201  1  =  1 ,  N GM S  - - 

201  VDUMY ( I ) - SNGL ( YCOMP ( I ) } 

RETURN 

5000  FORMAT ( 1  HQ , *  EQUILIBRIUM  COMPOSITION  CALCULATION’  ) 

5001  FORMATdHO,  ‘CORRECTIONS  ARE  -  */(5E15.7)) 

5002  FORMAT (1  HO,  'AUGMENTED  MATRIX  FOR  CALCULATION  OF 
$  LAGRANGTAN  MUL  T  I  PL 

HERS  IS  -  •  ) 

5003  FORMAT ( 1 H  , 7F 1 5 . 7 ) 

5004  FORMAT ( 1H  t / »  SOLUTION  IS  -  ' /6F15.7  ) 

END 


-f 


i  '  ’ 
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C 

r 

C 


sjojt  sfc  3$o$<  A#*#  ijc*  **  ^  *#3^  #  3$c  #  $  £  £  $&$:$$  #  if.  #  £  1f.i(.  £  if.  3*5 


* 


SUBROUT I  ME  INTT 


r 


y» 


C 

C 

c. 

c 

c 

c 

c 

c 

c 

c 


*  FUNCTIONS  - 

* 


*  ~  EQUILIBRIUM  INITIALIZATION  ROUTINE _ * 

*  -  DE  PEND  I N  G  UPON  A  FLAG,  GENERATES  A  POSITIVE  * 

*  SET  OF  MOLE  NUMBERS  OR  SKIPS  THIS  GENERATION  * 

*  -  CALCULATES  THE  ATOM  TOTALS,  AND  FREE  ENERGY  * 

*  FUNCTIONS,  AND  FLAGS  ALL  IMPOSSIBLE  SPECIES  SO  * 

*  THEY  WILL  BE  IGNORED  DURING  THE  MINIMIZATION  * 


❖  £  3?f  if.*  #  3*5  ifi-if-  'r  ❖  #  £  ❖  &  *  $  #  £  #  %  >Jt  $#3)c3{c  #  *  3jc  *  <c  *  s;«  a{s  Sjc  jjc  ^  ^  s;;#:}*  ##  ^  ^  Jjc 


SUBROUTINE  INIT C PRESS, TQEGF, YCOMP,B, STORE, INDB,IPOS 
$ , NA  TPR , K I N I T) 

DOUBLE  PRECISION  YCOMP,B 

DIMENSION  3(5) , YCOMP(  20 ) , STORFI 20 ) , I  NOB ( 5) , I  PCS ( 20) 

COMMON  /GENI/IWRIT, IDBUGI 15) , I TE ST , CR I T , NGMS , NTOT 
COMMON  /DAT Al/FORMU ( 20,5 ) , NATYP, IDATM (5) 


C*****  NGMS  -  TOTAL  NUMBER  OF  MOLECULAR  SPECIES  LISTED 
€*****  { CORRESPONDS  TO  ROWS  OF  MATRIX  FOR MU ) 

C***» *  I POS ( I  ) =  l  IE  ITH  MOLECULAR  SPECIE  PHYSICALLY 

FEASIBLE.  (IE.  ALL  CONSTITUENT  ATOMS 
ARE  PRESENT  IN  THF  STREAM 
=  0  IF  ITH  SPECIE  IS  NOT  FEASIBLE 

bTJ) . - . JTH  ATOM  TO  TAL . IN . ST  REAM 

NATYP  -  TOTAL  NUMBER  OF  ATOM  TYPES  LISTED 
_  _  (CORRESPONDS  TO  COLUMNS  OF  MATRIX  FQRMU) 

C*****  NATPR  -TOTAL  NUMBER  OF  ATOM  TYPES  PRESENT 

-IND3  -  ITH  ELEMENT  OF  I NDB  CORRESPONDS  TO  THE 
£**♦**  -  COLUMN  OF  THE  JTH  NON-ZERO  ATOM  TYPE 

C*****  -  (IN  MATRIX  FOR  MU ) 


C  * 

/■*  -Ar  -V*-  X 

I  «•,%  .*.< 

CnO  •»!#  s</  X 

->»  V*-  '■|v  *f* 

CJ#  ^  xl/  J/  X 

*,V  X,x  y,x  Xx  .».x 

^  xf/  X  X 

U  ^  ^  'f 


I F {  ID BUG  f  12 ) -4)  801,800,800 

800  WRI TE { IWPTT  ,5000  )  { YC OMP { I) ,  1  =  1 , NGMS ) 

I  FLAG-0 

801  CONTINUE 

_ C***»*  -INITIALIZE  IPOS  ELEMENTS  TO  1,  AND  CALCULATE  FR E P 

C  *****  '  ENERGY  -FUNCTIONS  (F/RT  4-  LN  P) 

DO  I  T  =  1  , NG  M S 

fposTf) = l 

STORE  (  I ) =HF C AL ( TDFGF, YCOMP,  I  )  +  ALOG( PRF SS / 1 4 . 696 ) 

_ _ 1  CONTINUE _ _ _ _ 

IH  ID  BUG  (  l  2  )  - 9  )  809,808,808 

808  WRI TE ( I  WRIT  ,5005  )  ( STORE ( I ),  1  =  1 , NGMS ) 

8 09  CONTINUE 


- - 
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, 
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s'- 
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I  ND=  1 

N ATPR=NATYP 

/**  sO  >•<  si/  .ty  \ly 

^  '*v  'i*  -r  4* 

C  ^  sA. 

L.,  -r  'r  +v*  -r 

HERE  TO  3  -  CALCULATE  ATOM  TOTALS,  AND  S^T  IPOS 

AND  INDB  VECTORS 

DO  3 

J=1 , NATYP 

c 

CALCULATE  A T CM  TOTAL  (B(J)J 

B  (  J  ) 

=  0.0 

00  4  1=1 ,NGMS 


B  (  J  )  =  B( J }  4-F0P.MU  (  I  ,  J  )  *YCOMP(  I  } 
4  CONTINUE 

I F{ B( J)-l .0E-30 )  40,40,43 


-IF  ATOM  TOTAL  IS  ZERO,  SET  IPQS  FNTRIFS  FOR  ALL 
C*****  MOLECULAR  -SPECIES  CONTAINING  THAT  ATOM  TYPE  TO 
C*****  ZERO,  AND  DECREMENT  MM. 

40  DO  41  I =1, MG MS 

I F { FORMU { I , JJ-1.0E-30)  41,41,42 
42  IP0S(I)-0 

41  CONTINUE  - 

NAT  PR=NATPR  — 1 

GO  TO  3 


-IF  ATOM  TOTAL  NON-ZERO,  STORE  MATRIX  COLUMN 
C**»»*  NUMBER  IN  I NOB 


43  I  NOB (  I  NO ) = J 
I N0= I ND+1 
3  CONTINUE 

I F { I  DRUG (  1 2  ) -  5 )  803,802,802 

802  WRITE  UWR  I  T,5001  )  {  I  POS  <  I  1  ,  I=1,NGMS) 

WRITE (I  WRIT ,5002)  C B { I) , 1  =  1 , NATYP ) 

803  CONTINUE 


f  ^  ^  JU 

^  'r-  'i" 

CJ*  Jr  J, 


nr  •'r  ";■*  *r 

* 

r  Sji  #  2lt  jJj  2^ 
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0  2|;j!c  ^cjjt 

rJ»  »V  ^ 

<•)>  AS 


HERE  TO  5  -  GENERATE  AN  INITIAL  ROSSI TIVE  SET  OF 

MOLE  NUMBERS  ,  (FOR  THE  FREE  ENERGY  MINIMIZATION  ) 

,  IF  ONE  DOES  NOT  ALREADY  EXIST.  EQUATE  POSSIBLE 
MOLECULAR  SPECIES  (  IPOS'^1 )  WHICH  ARE  ZERO  TO  AN 
ARBITRARILY  SMALL  AMOUNT.  THIS  INTRODUCES  A  SMALL 
ERROR  INTO  THE  MASS  BALANCES,  BUT  IS  NECESSARY  TO 
FACILITATE  A  VALID  EQUILIBRIUM  COMPOSI TI ON 
CALCULATION. 


IF  K I  NT  T=0  ,  SKIP  THIS  SECTION. 


IF(KINIT)  900, POO, 100 


«  *  • 


(  ' 


’ 


•  v  T  f 

.  -II 

.  ' 


.  I  •*,<)■  r'-in  ■  .  >  -  ! 


■  -  • 
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SUBROUTINE  IN  IT  .  ..!CONT*D) 


LOO  DO  5  1=1 ,  NGMS 

C **  ** *  C  HECK  IF  MOLE  NUMBER  IS  ZER 0 

_ TFIYCCMPII )-l .OE-IO )  6,6,5 


CHECK  IF  MOLECULAR  SPECIE  POSSIBLE 
6  IF!  I  POS (  I  >  )  44,5  ,44 

C*****  IF  SPECIE  IS  POSSIBLE  AND  IS  ZERO,  EQUATE  TO  SMALL 
C * * * **  POSITIVE  Q  U A  N T I T  Y . 


44  YCOMP ( I  I  =  1 .OE-6 
I  F  LAG-1 
5  CONTINUE 

IF { IDBUG I  12 1-4)  807,804,804 

804  I F I  IE  LAG )  805,805,806 
8  05  WRITE! I  WRIT, 5003) 

GO  TO  807 

806  WRITE ( I HP  IT, 5 004) < YCOMp ( i ) , 1=1, NGMS) 

807  CONTINUE 
RETURN 


if  A  POSITIVE  SFT  HAS  NOT  BEEN  GENERATED  CKINIT=0) 
C*****  ,  SET  ipos  ELEMENTS  ZERO  FOR  ANY  ZERO  SPECIES. 


900  DO  901  1=1, NGMS 

I E { YCQMP { I ) -1 .OE-IO)  902,902,901 
902  I POS (I) =0 

901  CONTINUE 
RETURN 

5000  FORMATUHO*  'INITIAL  MOLE  NUMBERS  are  -»/!6F15.7)  ) 

5001  FORMAT! 1  HO,  ' I POS  VECTOR  IS  ’,2014) 

5002  F0RMAT(1H0, '3* * S  ARE  »,5E15.7) 

5003  FORMA  T ( 1 HO,  ♦POSITIVE  SET  EXISTS*  )_ 

5004  FORMAT ( 1H0, * POS IT IVE  SET  GENERATED  IS  -  */<6E15.7}) 

5 0 0 5  FORMAT (1H0, *  FREE  ENERGY  FUNCTIONS  (F/RT  +  LN  °)  ARE 
$-*/ (5E15.7) ) 

END 
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C 

C 

c" 

c 

c 


# 

* 

X 

❖ 

❖ 


SUBROUT  INF  VMOOY 


FUNCTIONS 


-  COMPOSITION  MODIFICATION  ROUT  INF 


* 

ju 

* 

* 


C 

c 

c 

c 

c 

c 


* 


PREVENTS  NEGATIVE  OR  PREMATURELY  ZERO  MOLE 

NUMBERS  DURING  FNERGY  MINIMIZATION 
DEFINES  NEW  MOLE  NUMBERS  AND  CHECKS  FOR 


* 


CONVERGENCE  OF  THE  COMPOSITION  CALCULATIONS  * 
EQUATES  SPECIES  DRIVEN  BELOW  A  SPECIFIED  LEVEL  * 
( I  .  E .  I.E-10)  TO  l ERO  AND  FLAGS  THEM  SO  THEY  WILL  * 


BE  IGNORED  (THIS  SPEEDS  CONVERGENCE)' 


C  * 

C  * 

#3jc  sjs  ft  4e  #  jJc  #  #  ijc  $  ft  #  #  : 


* 


'r  ~c-  'c-  'r 


SUBROUTINE  YMODY { YCGMP , ADD, ICNT, I  TER, TDEGF, PRESS , IPOS) 
DOUBLF  PRECISION  E AC , F AC  I , YCOMP , ADD 
DIMENSION  ADD (20 ), YCGMP (20 ) ,  I°OS (20 ) 

COMMON  /GENI/IWRIT, ID3UGI 15 )  ,  I  TEST , CR I T , NGMS , NTOT 
COMMON  /DATA2/NAME< 20,4) 


HERE  TO  8  - 

_ CHECK  TO  SEE  IF  ANY  MOL  p  NUMBERS  WILL  BECOME 

C^ftftJit^  NEGATIVE  WHEN  THE  CALCULATED  CORRECTIONS  ARE 

C*****  MADE.  IF  NOT  USE  EXISTING  CHANGES.  IF  SOME  WILL 

_ BECOME  NEGATIVE  OR  ZERO,  FIND  FAC]  (WHICH  THE 

C*****  CORRECTIONS  ARE  MULTIPLIED  BY)  SUCH  THAT  NONE  OP 

C*****  the  MOLE  NUMBERS  BECOME  ZERO  OR  NEGATIVE. 


E AC  1=1.0 

DO  3  1=1, NGMS 


c*****  IF  I P 0 S = 0  ,  IGNORE  THAT  MOLECULAR  SPECIE 

(IE.  EITHER  PHYSICALLY  IMPOSSIBLE  OR  ELSE  HAS  BEEN 
C*****  DRIVEN  TO  ZERO) 


I F { IPOS( I ) )  8,3,13 
13  IF(VCQMP<  n+APP(  IH  9,9,3 
9  FAC^0.99*PA8S<YCQMP( I ) / A U D (  I  ) ) 

IF(FAC-FACl)  12,8,8 

12  FAC  1= FAC _ 

3  CONTINUE 

Cftftftftft  HERE  TO  10  -  FINP  NEW  MOLE  NUMBERS  AND  CHECK  EOT 

r**ftftft  CGNVERG ENCE 


_ I  CTi T  =  0 _ 

DO  10  1=1, NGMS 

if  I^OS=0  ,  IGNORE  THAT  MOLECULAR  SPECIE 


V 

IT  12  qi' 
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•  . . .  ’■  ,  1  \ 
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,  {  * ) 1  • 
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_ SUBROUTINE  VMOOY _ .  .  .  ( CONT  * D) 

IFUPOS(I))  11,11,14 

C*#***  MODIFY'  CORRECTIONS  (IF  NECESSARY)  SUCH  THAT  MOLE 
C *****  NUMBERS  WILL  NOT  BECOME  ZERO  OR  NEGATIVE. 


14  ADO {  I  )= ADD (  I  ) #F  AC  1 

FIND  NEW  MOLE  NUMBERS 


YCOMP (  I }  =  Y  C  0  M  P  (  I  )+ADD{ l  ) 


C*****  i<=  MOLE  NUMBER  HAS  BEEN  DRIVEN  BELOW  A  SPECIFIED" 

C*****  VALUE,  EQUATE  MOLE  NUMBER  TO  ZERO  AND  SET  IP0S=0 
£»****  FOR  THAT  SPECIE  SO  THAT  IT  WILL  BE  IGNORED  FOR  THF 
REMAINDER  OF  THF  MINIMIZATION.  THIS  CAN  SPEED  UP 
C****#  C  CNVERG  ENCE  CONSIDERABLY. 


IFIYCOMPC I )-1.0E-10)  20,20,21 

20  iposm-o 

YCOMP { I >-0.0 
GOTO  11 . 

_ IF  RELATIVE  CHANGE  IN  THE  MOLE  NUMBER  IS  LESS  THAN 

C*****  A  SPECIFIED  VALUE,  INCREMENT  CONVERGENCE  COUNTER 

(  ICNT ) .  THIS  COUNTER  IS  ALSO  INCREMENTED  FOR 
C  *****  MONIED’  SPEC  I  ES,  SO  THAT  WHEN  THF  COMPOSITION 

C*****  HAS' CONVERGED,  TCNT-NGMS,  OTHERWISE  IT  IS  LESS 

THAN  NG  MS . 


21  I E( DABS ( ADD (  I  ) / YCOMP (  I  ) ) -CR I T )  11,11,10 

11  ICNT= I CNT+1 
10  CONTINUE 

I F (  ID BU G (  12  ) -  7 )  805,804,804 

804  WRITF ( I  WRIT,  5  002  )  I  TER, E AC  1,  ICNT, (YCOMP ( I)  ,  I=1,NGMS ) 

805  CONTINUE 

I F (  ICNT-NGMS )  101,100,100 

100  CONTINUE 

IF  (  ID  BUG  ( 12)-n  801, 800, 800 
800  WRITE ( IWRIT ,5000 )  TDEGF , PRESS ,CR I T, ITFR 
8  01  I F (  ID  BUG (  1 2  )  - 3 )  808,8  02,8 02 

802  WRITE (IWRIT  ,5001  )  (  (  NAMF (  I , J?  , J-1,4? , YCOMP (  I),  1  =  1 

$,NGMS) 

803  CONTINUE 

101  RETURN 

5000  FOR MAT 11 H  1  CONVERGENCE  OBTAINED  AT  * , F9.2, *  DEG.  F, 

$  PRESSURE-  *, 

1  F6  . 2  ,  1  PSIA'/lOX,*  GRIT  =  *  ,  E9 . 2 , *  ITERATIONS  =  • 

$,  14/) 

5001  FORMA  T ( 1 H  ,»  THE  CONVERGED  MOLE  NUMBERS  ARE  AS  FOLLOWS 

S  -  •/  /  (  *  ‘ , 
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(  i  ■  •  (  1  )  ' 
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I :  ••  »  ,  r  )  T  y  o  I  r 

t  »  '  )  \  ' 


SUBROUTINE  YMODY 


.  •  .( CONT*  0) 


14A1,»  -  * ,F15.7, 5X,4A1, •  -  % F  1 5 . 7 , 5X , 4A I , ' 

$ ,  F  1  5 . 7  )  ) 

5002  F ORM ATI  I HO, *  I  TER  -  «  ,  I  4  ,  *  ,  FAC1  -  *,E15.7 
$  ICMT  -  M3, 

_ 1  1  ,  Y  *  ' S  ARE  -»  /C6EI5.7)  ) 

END 
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* 

* 

SUBROUTINE  GAUSS 

* 

V 

c 

c 

c 

vU 

* 

A 

FUNCTIONS  - 

-  GAUSSIAN  ELIMINATION  ROUTINE 

❖ 

❖ 

-JU 

c 

JU 

SOLVES  THF  GIVEN  MATRIX  EQUATION  FOR  THE 

❖ 

c. 

* 

LAGRANGI AN  MULTIPLIERS 

-.if 

'f 

c 

* 

-  PARTIAL  PIVOTTING  IS  USED  TO  REDUCE  ROUND-OFF 

* 

c 

* 

ERRORS  DURING  CALCULATIONS 

-JU 

«r* 

c 

%v 

nn 

-  SINGULARITY  OF  THE  MATRIX  RESULTS  IN  JOB 

JU 

•v* 

c 

* 

TERMINATION 

V 

C  **  **  **=  ’j'*3!4  #  ❖❖  *£  $$$$  #  Jjs  ^c*  £  *  £  %  ^C^C3{£  $$$$  £  *  ***  #  *;' 


* 

■J-  -JU 


SUBROUTINE  GAUSS  (A,R,N,X) 

DOUBLE  PRECISION  A,R,X,U,S 
DIMENSION  A ( 6  »  6 )  ,  R  (  6 }  ,  X  (  6 ) 

COMMON  /GFN1/IWRIT, IOBUGI 15 ) , I TE S T , CR I T , NGM S , NTOT 

C *****  SOLUTION  OF  N  SIMULTANEOUS  LINEAR  EQUATIONS  USING 
£*****  GAUSSIAN  ELIMINATION  -  PARTIAL  °IVOTING  IS  USED 

C*****  T0  RgDycE  ROUND-OFF  ERROR  {MATRIX  FORM  AX=R) 


M=N-I 


C****» _ HERE  TO  11 TR  I  ANGULAR!  ZE  THE  MATRI  X 


DO  II  J  =  I ,  M 

S  =  0.0 

C  ❖  *  *  *  J- 

HERE  TO  12  -  FIND  TH^ 

PIVOTAL 

ELEMENT 

DO  12  1  =  J » N 

U=D A3S { A { I , J ) ) 

IE(U-S)  12,12,11 2 

1  12 

12 

S=U 

L=  I 

C ON T I NUE 

r  *  JU  wu  ju 

?  •V*  *c-  'r 

HERE  TO  IP  -  EXCHANGE 

ROWS  IF 

NECESSARY 

1  IP 

IF(L-J)  119,19,119 

DO  14  I =  J , N 

S=A ( L  ,  I  ) 

14 

— - - 

A(L, I )  =  A  < J,  I) 

A  (  J  ,  I  )  =  S 

S=R ( L  ) 

R  (  L  )  =  R  (  J  > 
R  ( J  )  =  S 
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SUBROUTINE  GAUSS  .  .  .(CONT'P) 

****  CHECK  FOR  SINGULARITY 

1^  I  T ( 0  A  3  S ( A { J  f  J )  ) - l . 0  F - 3  0 )  1 15 ,  I  15,  1  5 
115  WRITE (I  WRIT,  3) 

CALL  EXIT 


c*****  HERE  TO  11  COMPLETE  THE  PIVOTAL  OPERATION 

15  1M=J+1 

DO  11  I=MM,N 

_ I F ( DABS {  A (  I > J)  ) -  1 .  OE- 30  )  11,111,111 _ 

111  S=A( J , J) /AC  I , J) 

A (  I  , J  )=0.0 
no  16  K~MM, N 

16  AC  I  ,K)s=A  (  J  ,  U-S*MI  ,K  ) 

R ( I  )  =  R { J ) -S  *R { I  ) 

11  CONTINUE 


c*****  HERE  to  it  -  HAVING  TR  I  ANGULAR  I  ZED  THE  .MATRIX, 

_  FIND  SOLUTION  VECTOR  ,  X,  BY  BACK  SUBSTITUTION 

C ***** ~  STARTING  FROM  B QTT 0 M , 

_ DO  17  K~  1 ,  N _ 

I  =  N  + 1  -  K 

S -0 . 0 

T  F ( I  —  N )  117, 17,  ]  17 

117  MM=I+ 1 

DO  13  J=MM,N 
18  S  =  S +A ( I »  J ) *X { J ) 

17  X  {  I  )  =  (  R  {  I  )  —  S )  /  A  <  I  ,  I  ) 

RETURN 

3  FORMAT  C1H  , *  MATRIX  SINGULAR* } 

END 
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C 


c 

r 

C 

❖ 

* 

SUBROUTINE  FAKER 

* 

❖ 

4/ 

*r- 

C 

c 

r 

o 

* 

4r 

nV 

FUNCTIONS  - 

EQUILIBRIUM  COMPOSITION  MASK  ROUTINE 

4. 

T 

Jj 

4/ 

V 

c 

* 

IF  »N0UMV«  IS  NON-ZERO,  TEMPORARILY  S^TS  THE 

* 

c 

'r- 

NUMBER  OF  GASEOUS  MOLECULAR  SPECIES  TO  NDUMY. 

t' 

c 

(I.E.  THE  FIRST  NDUMY  SPECIFS  ARC  NOT  MASKED, 

it 

c 

AND  THE  LAST  ( NGMS -NDUMY }  SPECIES  ARE  MASKED,  OR" 

4/ 

•v 

c 

-JU 

IGNORED  DURING  THE  COMPOSITION  CALCULATION  WHICH 

* 

c 

4U 

IMMEDIATELY  FOLLOWS ) 

* 

c 

4/ 

MASKING  OCCURS  ONLY  IF  BOILER  OR  CONVERTER 

4U 

c 

jV 

COMPOSITIONS  ARE  BEING  CALCULATED,  AND  ONLY  IF 

4/ 

r 

V/ 

❖ 

THE  TEMPERATURE  (AT  WHICH  THE  COMPOSITION  IS  TO 

C 

sjjt 

BE  CALCULATED)  IS  LOWER  THAN  THE  SPECIFIED 

* 

C 

4. 

4s 

SECONDARY  CUTOFF  TEMPERATURE  ( T DU MY ) , 

4r 

T 

C 

4# 

-T* 

4, 

"V 

c 

*  jJcjJc*  A*'*#  *  *  £  *  *  ^  £  £  s^o};  **  *  Sf;  *:  *:  *  -*t  $  £  #  5^  #  :>;  *  ^  ^  *  J;  $  *  £  £ 

SUBROUTI NE  FAKER { NGMS , TCTOF , TEMP ) 

COMMON  / E XT R A/ N D UM Y , T DU M v 

DATA  JEL AG/O/ 

O  ^ 

IF  NDUMY  ZERO,  RETURN. 

I F  C NDUMY )  20,20,21 

20 

RETURN 

21 

CONTINUE 

c  ** 

4^  y,  yu 

IE  TCTOF  ZERO  OR  NEGATIVE,  SHIFT  ON  GIVEN  STREAM 

c** 

•4  V  V 

—  RETURN  — 

IF (TCTOF)  3,3,4 

3 

RETURN 

c** 

'1^  ^ '!' 

IF  TCTOF  +V E  BUT  LESS  THAN  10,  COMPLETE 

j'j  4/  Jj 

EQUILIBRIUM  CALCULATION  ,  CHECK  TEMP. 

4 

I  EC TCTOF -10.  )  5,6,7 

r  JU4. 

L 

r  ** 

si:  s';  ;‘c 

IF  TEMP  G.T.  900.  COMPLETE  EQUIL.  MAY  BE  CALC’D. 

T  C  TCMD  1  T  O  A  A  A  C  C  1  !  MC  r  AM  v/c  n  t  c  n  Ml  »  r  i/ 

SPECIES  ) 


5  IF ( TEMP-O00. )  6,6,3 

MASK  LAST  GASEOUS  SPECIES  SO  THEY  ARE  FROZEN 


6  NGMS- NDUMY 
RETURN 
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SUBROUTINE  FAKER  .  ..(CONT’O) 


«A*  J/ 

1  .  -V*  "I" 


CHECK  IF  TEMP.  IS  G.T.  SECONDARY  CUTOFF  TEMP , 


7  IF(TEMP-TDUMY)  9,8,3 


Cst-  , 


FLAG  TEMP.  GREATER  THAN  SEC.  CUTOFF. 


3  JFL AG~1 
RETURN 


C****»  CHECK  HIGH  TEMP.  FLAG 


°  TF(JFLAG)  6,6,10 

SET  PRIMARY  cutoff  TO  SECONDARY  CUTOFF  FOR 
c*****  A  SINGLE  COMPOSITION  CALCULATION  -  LAST 
C*****  COMPONENTS  WILL  BE  MASKED  FOR  NEXT  COMP.  CALC. 


10  T CTOF  =  TDUMv 

***  RESET  HIGH  TEMP. FLAG 


J  FL  AG -0 
RETURN 

END 
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c 
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c 

c 
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c 

c 

c 

c 
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SUBROUTINE  INPUT 


* 

sfc 

❖ 


FUNCTIONS  - 


DATA  INPUT  EXECUTIVE  ROUTINE 


?*? 

❖ 


INITIALIZES  DATA  INPUT  AND  THEN  READS  ALL 
DATA  USING  •EFINP*  FREE  FORMAT  INPUT  ROUTINE 
POP  EACH  DATA  SEGMENT  np  INPUT,  TRANSFERS 
CONTROL  TO  APPROPRIATE  INPUT  SUBROUTINE — 

TH I S  ROUTINE  IS  DETERMINED  FROM  DECODED  DATA 
CONTROL  MESSAGES 


* 


* 


* 

# 


# 


r 

vjr 

c 

c 


# 

it 


IE  ANY  ERRORS  ARE  DETECTED  DURING  DATA  INPUT, 
THE  JC8  IS  ABORTED  WHEN  DATA  INPUT  IS  COMPLETE 


#  #  i'  *  #  #  #  #  it  it  it  it  it  #  it  #  #  ########################  #  #  #######  * : 


# 

* 


SUBROUTINE  INPUT 

DIMENSION  TREE { 10 ) 

COMMON  /GENI/IWRTT, IOBUGI 15) , I  TEST,  CR I T, NGMS , NTOT 
COMMON  /EXEC1/JTYPEI25) , INDEX( 25) , ISEQC25) , I ASUM( 25 ) 

$,  I SUPR, I  OPT 

COMMON  /FLOW  1/ INFO 1  75,5) , NNEQP , NOSTM 

COMMON  /INPUT1/T V(25) ,RV(25) ,IALPH{50) , N I , NR , NA , NOX E Q 
"  COMMON  /I NP U T2 7  I S v M 3 ( 2 0 ) ,  I A  T  0 M { 5 ) , A T M W T (  5 )  , V  a TO M ( 5 ) 

$, KEOI VI 20) 

DATA  TRF P/-040 19 2. 12234. ,-757760. ,-569856 . ,-4152 32. 

$,-672768 . , 

1  -37  1456. , C. ,-9062  4. ,-3  573  88. / 


C*****  INITIALIZE  FLAGS  AND  PARAMETERS 

I  R  E  A  D  =  1 
I  WRIT -8 

WRITE  I  I WRIT ,0999) 

9090  FORMAT (» 1 • ///////T37* SULPHUR  PLANT  DESIGN  AND 

$  SIMULATION*/////) 

NOXEQ-O 
I OPT=  1 
I SUPR=0 
NGMS=0 
N  T  0  T = 0 

NOSTM=0  '  '  . . 

KEQIVI 1 )=1 
I CHCK  =0 
JC  HCK  =  0 

C*****  INITIALIZE  ICBUG  VECTOR  6  CR IT  IN  CASE  THFY'RF  NOT 

C***«*  READ  FIRST. 

DO  10  1=1,15 


* 

r 

T  .  f 
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SUBROUTINE  INPUT  . ..(CONT'D) 


10  I OBUG ( I ) =0 
ERIT-l .OF-4 
100  CONTINUE 

if  ECHO  CHEEK  WANTED,  SKIP  TO  NEW  PAGE. 


IF  {  IOBIJG  (  14  )-l )  801,800,800 

800  WRITE ( I WRIT ,1003  ? 

801  CONTINUE 


READ  INPUT  VIA  EFINP  -  (UNSPECIFIED  INPUT). 


110  KFL  AG  =  0 

CALL  EF  INP(  I V,R V , I ALPH, N I , NR , NA , I WRI T , I RE AD, KFLA G 
%ft  TV  ALU) 

O****  SET  INPUT  FLAGS. 


I  END  =  0 
IND^O 


C*****  CHECK  FOR  EFINP  ERROR. 


500 

IF (KFL AG)  500,101,101 

WRTTE ( I  WR  IT  ,5000  > 

N0XEQ=1 

KFL AG=0 

c ❖#*** 

IDENTIFY  CONTROL  MESSAGE 

RETURNED 

{ TVALU  )  . 

101 

DO  102  1=1,10 

I F ( AB  S( TVALU-TREF ( I ) ) -ABS ( TVALU/ 1000. 

))  103,103,102 

102 

CONTINUE 

r  s[t  ate  #  *  & 

IF  NOT  IDENTIFIED,  ERROR 

MESSAGE, 

THEN  TRY  AGAIN. 

WRITE  (IWR  IT  ,5001  )  TVALU 

_ NOXEQ-l _ 

GO  TO  110 

C*****  GO  TO  APPROPRIATE  INPUT  ROUTINE. 


103  CO  TO  (1,?, 3, 4, 5, 6, 7, 8, 8, 200), I 
C  *****  I  N  PI  FT  OF  PR  6  G  R  A  M  CONTR  0  L  PAR  A  M  FTERST 

_ 6  CALL  INPTO _ 

GO  TO  150 

INPUT  OF  MOLECULAR  AND  THERMODYNAMIC  DATA. 
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_ SUBROUTINE  INPUT  .  . . ( CONT * D_) 

1  CALL  INPT1 {  INO, I  END) 

TFUFND)  1  I  ,150, 11 


C*****  DATA  CALCULATIONS  AND  M  &  T  DATA  ECHO  CHECK  IF 
€»*»»»  DESIRED. 


11  CALL  TNPT2 
GO  TO  130 

C*****  INPUT  OF  EQUIP.  PARAMETER  SPECS.  <£  DATA  ECHO 

C****»  CHECK). 


2  I SPEC=-1 

CALL  INPT3I INO,  I  SPEC, ICHCK ) 

GO  TO  150 

INPUT  OF  EQUIP.  PARAMETER  ESTIMATES  ( £  DATA  ECHO 

C*****  CHECK ) .  ~  . . 

3  I SPEC= 1 

CALL  IN  PT 3 (IND, I  SPEC,  ICHCK) 

GO  TO  150 


C*****  INPUT  OF  STREAM  SPECS.  (£  DATA  ECHO  CHECK). 

4  I  SPEG=41 

CALL  INPTA  (  IND,  I  SPEC,  JCHCK,  ICNT  ) 

GO  TO  150 

C*****  INPUT  OF  STREAM  ESTIMATES . (£  DATA  ECHO  CHECK)". 

5  I  SR EC  =  1 

CALL  1NPT4I IND, I  SPEC, JCHCK,  ICNT) 

GO  TO  150 


**  INPUT  OF  FLOWSHEET  DATA  (£  DATA  ECHO  CHECK). 

I  CALL  INPT5 ( IND I 
GO  TO 150 

8  WRITE ( I WRIT ,5004 ) 

GO  TO  110 


C*****  IF  END  OF  DATA  SET,  LOOK  FOR  NEW  DATA  SFT  CONTROL 
CARD.  IF  END  0 F  ALL  DATA,  TERMINATE.  IF  NEITHER, 
CONTINUE  WITH  INPUT. 

150  I F (  I  END )  200,  151,201 

READ  MORE  INPUT  VIA  FFINP.  (UNSPECIFIED  INPUT). 
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SUBROUTINE  INPUT  ...(CONT'D) 


151  KFL  AG=0 

CALL  EFTNPC I  V , R V , I  A LPH , N I , N R , N A , IWRIT, IREAD,KFl  AG 
$, TV ALU) 

C *****  CHECK  POR  FFINP  ERROR. 


IF ( KFL AG )  502, 152, 152 
502  WRITE  C  l HR  1J  ,5002 )  I 
N0XEQ=1 
KFLAG^O 


CHECK  FQR  END  OR  END  OF  ALL  DATA  CONTROL  MESSAGE. - 
C*****  ANY  OTHER  CONTROL  MESSAGE  RESULTS  IN  INPUT  ERROR. 

IF  NO  MESSAGE,  GO  TO  ASSIGNMENT  . 

152  I F { TV  ALU )  153,103,153 

153  I F ( AB SI TVAL U-TRCF (9 )  ) -AOS  I  TV ALU/ 1000. ?  )  15  9,  I  59,  154 

154  IF! ABSITVALU-TREF { 10) )-ABS( TVALU/1000. ) )  158,158,503 
503  WRITE ( [WRIT ,5003)  TV ALU 

NOXEQ=l 
KFL AG=0 
GO  TO  101 


****  SET  FLAG  FOR  END  OF  DATA  SET  -  GO  TO  ASSIGNMENT. 

159  I  END-  1 
GO  TO  103 

201  WRITE (IWRIT ,1001 ) 

GO  TO  100 


C*****  SET  FLAG  FOR  END  OF  ALL  DATA  -  GO  TO  ASSIGNMENT. 


158  I  END- - 1 
GO  TO  103 

200  WRITE  {  IWRIT  ,1000) _ _ _ 

CALL  SPECL 

C*****  _ I E  ERROR  IN  DATA  INPUT  ENCOUNTERED  CN0XEQ=1 ) ,  CALL 

C*****  EXIT.  *  OTHERWISE  { NOXEO-O)  PROCEED  TO 
C*****  CALCULATION  EXECUTIVE  PROGRAM. 


IFINOXEQ)  300,300,301 

300  CONTINUE 
WRITE (6, 1111) 

RETURN 

301  WRITE (6,2222) 

CALL  EXIT _ 

1000  FORMAT ( • 0* , T25, 1  END  OF  ALL  DATA') 

1001  FORMAT  I • O’ , T2  5, 1  END*  ) 

1003  FORMAT! *  1'///) 
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_ SUBROUTINE  INPUT _ . . .  (CONT'Q) 

1111  FORMAT! ' O' T25'NO  ERRORS  DETECTED  IN  INPUT  DATA,  AH 
.$  SYSTEMS  ARE  GO 

722  FORMAT! *  0  *  T  2  5  *  E  R ROR  DETFC  TED  IN  INPUT  DATA,  NO  GO  •) 
OOP  FORMAT!*  1  ERROR  ON  FFINP  RETURN  -  INPUT  CONTROl 
%  CARD’ ) 

5001  FORMAT!'  INVALID  CONTROL  CARD  ENCOUNTERED  -  INPUT 
$  CONTROL  CARD, 

1  T  V  ALU  =  ’  ,  F 1  5  •  7  ) 

5002  FORMAT! '  ERROR  ON  PFINP  RETURN  -  I  =  ’,13) 

5003  FORMAT!'  INVALID  CONTROL  CARD  ENCOUNTERED  -  DATA 

$  INPUT  "  '  ,  “  - -  - 

1  TVALU  =  ' , E15. 7) 

5004  FORMAT  C  *  DATA  CONTROL  CARD  MISSING  OR  *END*  oijt  OF 
$  PL  ACE') 

END 
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c 

c 


SUBROUTINE  INPTO 


* 


FUNCTIONS  - 


PROGRAM  CONTROL  PARAMETER  DATA  INPUT  ROUTINE 


* 


C 

c 

c 

c 

c 

c 


❖ 


SETS  OUTPUT  PRIORITY  VECTOR  (IDBUG)  AND 
CONVERGENCE  CRITERIA  ICRIT)  TO  GIVEN  OR 
DEFAULT  VALUES 
SETS  ’PRINT  SUPPRESS  *  AND  ’NO  OPTIMIZATION’ 
FLAGS  IF  DESIRED 

ECHO  CHECKS  THIS  DATA  IF  DESIRED 


C 

C 

C 


* 


( I  DRUG! 14) -4  OR  GREATER) 


3*r#3$c -j}t  jJssJcsJjjjc#  #  #  £  *  #  #  sfc  sjc  #  j{c  #  #  sjs  $  jje  sjc  : 


* 
* 
:  jje 


SUBROUTINE  INPTO 

DIMENSION  TREE!  3) _ _ _  _ 

DIMENSION  RI (6)  t  R  2 { 6 ) ,R3(6) ,R4(6),R5I6) ,R6{6) ,R7(6) 

$  t  R8 ( 6 ) » 

1  R9 ( 6 ) , R 1 0 ( 6 ) , R 1 H  6 J , R 1 2 i 6 )  , R  I  3 { 6 ) , R I  4 ( 6 ) , R i 5  { 6 ) , S ( 6 
$,15) 

COMMON  /GEN  1/ 1 WRIT, IDBUG ( 15) , I TEST,CRIT,NGMS , NTOT 
COMMON  / EX  EC  I /JTYPE(25),IN0EXI25),ISEQ(25),I ASUM( 25) 

$ f  I  SUPR, I  OPT  "  " 

COMMON  / INPUT 1/ I  VI 25) ,RV{ 25 ) , I ALPHI  50 ) , N I , NR  , NA, NOX EQ 
|QU  I V  AL  EMCE  fRl  tl),SU)  ),  (R2C1)  ,SI7)  )  ,  (R3(  1)  ,  SC  13)) 

$,  IR4I 1 )  ,  SjC  19)  )  , 

1  (R5(l),S(25))»(R6(l)fS(31))»{R7(l),S{37)),(R9{l) 

$, S( 43 ) ) , 

1  (  RO  I  I )  ,  S I  49 )  )  ," fR  1 0  (  I  )  ,  S  <5 5  )  )  ,  {  R  1 1  {  l  )  ,  SI  6  1 )  )  t  { R 12  1 1  T 

$ , S ( 67  )  )  , 

1  (RI3  11  )  , S ( 73  )  )  , (R14I 1 ) , S( 7  9  )  ) , ( R 1 5 ( I ) ,S( 8  5  )  ) 

DATA  Rl  / *  W AST*  ,  ’  E  HE ’ , ’ AT  P»,’OILE’,*R  »,*  ’/ 

DATA  R2  / ’ IN-L’ , ’ INC  ’,’3URN’,’ER  ’,«  ’,»  */ 

DATA  P.3  /  ’  C G N V ’  ,  ’  ERTF  »  ,  ’_R__  »  ,  ’  ’  ,  *  ’  ,  ’  ’  / 

DATA  R4  /*COND* f *ENSE*,*R  *,’  .  '  •/ 

DATA  R5  / *  ADI  A*  , *  BAT  I  * , *C  CO  * , ’ MB I N * , * ER  ’,*  ’/ 

DATA  R6  /’COMB* , » INFR* , ’ /DI V’ , * IDER’ , •  *,»  ’/ 

DATA  R  7  /  ’COMB  »  ,  *USTI  »  ,  *  ON  A»,*IR  A  ’  ,  *  DDF  R  *  ,”*  ’/ 

DATA  R 8  /* INCI * , ’NERA* , »TOR  *,*  V 

DATA  R 9  /  ’  STAC  ’  ,  »K _ *_ _ _ S  ’ _ S_!  _  J_ _ 

DATA  RIO/’ BLAC*  ,  *K  BOS’X  »,’  »,»  •,»  ’/ 

DATA  R 1 1  /  ’  ’  ,  ’  *  ,  ’  *  ,  •  *  ,  ’  ’  ,  *  ’/ 

DATA  R12/’E0UI ’  , *LIRR * , ’  IUM  ’ , • COMP ’  , » OS  I T »  , *  I  ON  •/ 
HAT  A  R13/ • CALC •  , »UL AT  •  ,  » ION  * , * OPT! * , * MI ZA * , » TI ON * / 
DATA  R  14  /  ’  DAT  A  ’  ,  ’  INP*,*UT  E’,*CHO  S’CHECS’K  ’/ 
FATA  R 1 5 / *  E  x  E  C ’  ,  *  U  T  I  V  *  ,  *  E  EU«,’NCTI’, *  QMS  ’  ,  ’  V 

DATA  TREF, I BLNK/-342272 . ,-384512 . ,-726784. , *  ’/ 


C: 


CHECK  FOR  EXISTENCE  OF  INTEGER, REAL  OR  ALPHA  DATA 
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_ SUBROUTINE  IMP  TO  . . . (CONT «  0? 

IF{ NI +NR+NA )  90,90,91 

90  RETURN 

91  if <  i v  { 1 4 )  - 4 )  eofTsoITsoz 

802  WRITE ( I WRIT,  1000) 

003  CONTINUE 


C*****  CHECK  FOR  EXISTENCE  OF  REAL  DATA. 


I  F  {  NR  -  f>  10  2,93,93 


_***  CHECK  THAT  GRIT  (REAL  VALUF) _ IS  BETWEEN  0  AND  1 . 

93  IF(RVm-l.C)  100,100,501 

100  IFtRVd?  )  501,501,101 
501  WRITE ( I WRIT  ,5001 ) 

NOXEQ-1 
GO  TO  102 

101  C  R I  T “RV (  1  ) 

****  CHECK  FOR  EXISTENCE  OF  INTEGER  nATA. 


102  IF  INI)  103,103,104 


****  DEFINE  ALL  ELEMENTS  OF  TOBUG  VECTOR. 
I_0  4  _  n  0  10  5  I  - 1 ,  N  I 


c*****  CHECK  THAT  ELEMENT  OF  IDBUG  IS  IN  RANGE  0-10. 


I F {  I V (  I  )  )  5  00,  106,  106 

106  IF(IV{I)-15)  105,105,500 
500  WRI TE { I WRIT ,5000 ) 

NOXE0=1 

105  I D B U G ( I )  =  I V  {  I  ) 

103  IF(NA)  110,110,107 

107  I  F  (  IDBUG  (  14) -4)  8  05,804,804  “"'  -  - - 

804  WRITE (IWRIT, 1002)  ( IALPHI I ) , 1=1 , NA) 

805  CONTINUE 
TV  ALU -0 . 0 

I FACT=IBLNK/16448 
DO  120  1=1, NA 

“120  T  V  A  L  U  =  T  V  A  L  U  +  (  I  A  L  PH  (  I  )  - 1  BLNK  )  /  I  FACT  “ 

DO  121  1=1,3 

IF{ AS S( TREE (  I  )- TVALU )-AB S { TVALU/ 1000. )  )  12  2,  122,121 

121  CONTINUE 

VI RT  TE  (  IWRIT  ,5002) 

NOXEO=1 

go  to  no  “  .  .  ~ . .  . — 

122  GO  TO  (  123,  124,  125)  , I 

123  I SU  PR=  1 
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SUBROUTINE  INPTO 


•  •  • 


(CONT'O) 


GO  TO  126 

124  IORT=0 

GO  TO  126 

125  T  $U?R=  1 
1 0  P  T~  0 

126'  CONTINUE 

€***»*  ECHO  CHECK  IF  DESIRED. 

110  I F (  ID BUG {141-4)  801,800,800 

800  WRITE (I WRIT ,1001)  GRIT 
'DO  200  1=1,15 

200  WRTTEf I  WRIT, 2000)  I  ,  I D8UG (I ) , ( S (J , I) , J= 1 ,6 ) 

801  CONTINUE 

retOrn 

1000  FORMAT { / //T35  , ' ECHO  CHECK  OF  PROGRAM  CONTROL 
$  PARAMETERS'//) 

1001  F ORM A T ( / / T 3 0 ' V AL  ’  ,  ' 

I'lJE  OF  THE  CALCUL  A  T I ONAL  CRITERION  IS  *»E9.2/T26 
$ , '(ALL  INTERNAL  C 

10NVERCENCE  CRITERIA  FTC.  ARE  SCATED  TO  THIS)  ' / / / / T 2  9 
t  ' I  DRUG 

1 VALUE  APPLICATION'/) 

1002  FORMAT! '  0* /T25,80A1 ) 

2  000  FORMAT! T31, I  2 , 5X , 13 , 7X, 6A4 ) 

5000  FORM AT ! *  0  IDQUG  ELEMENTS  MUST  BE  IN  RANGE  0-10*) 

5001  FORMAT! »  0  CRITERION  ICR  IT I  MUST  BE  IN  RANGE  0-1') 

5002  FORMAT! '0  INVALID  ALPHAMERIC  MESSAGE') 

END 
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c 

c 

c 

c 

_c 

c 

c 
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c 
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c 

c 


c 

*  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  Sjt  *  *  *  *  *  *  *  *  *  *  *  *  *  £  *  £  *  y,  ^  ^  ^  £  *  £  *  ££ 

-A>  sl/X 
*>v  "j"  <v> 

c 

* 

c 
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SUBROUTINE  INPT1 

❖ 

c 

JU 

FUNCTIONS  - 

* 

c 

■jU 

* 

c 

'V- 

MOLECULAR  AND  THERMODYNAMIC  DATA  INPUT  ROUTINE 

❖ 

-5*< 

* 

V- 

V 


OF  ATOMS  TYPES,  AND  THE  ATOM  SYMBOLS,  WEIGHTS 
A  NO  VOL  UME  S 

STORES  THERMODYNAMIC  DATA  (NASA)  CONSTANTS  AND 
VISCOSITY  COEFFICIENTS  IF  GIVEN  —  IF  VISCOSITY 
CO  EF  F I  EC  TENTS  ARE  NOT  GIVEN,  SETS  THEM  TO  DEFAULT 
VALUES 

DEFINES  THE  NUMBER  OF  GASEOUS  MOLECULAR 
SPECIES  (NGMS  ?  AND  THE  TOTAL  NUMBER  OF  SPFCIFS 
( N  TOT ) 


* 


& 


* 

❖ 


* 

A 


-  CHECKS  VALIDITY  OF  MOLECULAR  SPECIES  FORMULAS 
AND  GENERATES  THE  FORMULA  MATRIX  tFORMU) 


* 

jjt  * 


*  *  *  t- *  *  *  #  *  *  *  *  *  *  *  *  £  *  *  *  *  *  *  *  *  £  *  #  *  *  *  ^ 


SUBROUTINE  INPT1  (  INI),  I  END) 

DIMENSION  NUMB { 9 ) 

COMMON  / G  E  N 1 / I W  R I T ,  IDBUG(15), I  TEST, CR I T ,NGMS , N  T  0  T 
COMMON  /INPUT1/I V(25) fRV(25) , I ALPH{ 50 ) , NT , NR , NA, NOX EO 
COMMON  /INPUT2/ISYMBI 20) , IATQMI 5) ,ATMWT(5) ,VATOM<  5) 

$,  KEQI VI 201 

COMMON  /DAT AI/FORMUI 20,5) , NATYP, IDATMC5) /DAT A 2/NAME f 2 5 
$,4) 

COMMON  /DAT A3 /T DATA { 20 , 1 4 ) /DAT A4/RMU ( 20 ) , S MU ( 20) 

$i RADC T( 20  ) 

DATA  NUMB/ *  1  ’,*2  ’,*3  * ,*4  *,’5  *,'6  ’,'7  ','8  *,»o  « 

4/ 

DATA  ILIQf IBLNKt ISTAR/*L  «,■*•/ 

DAT  A  VIS1,VIS2/0.015,  0.0000  20/ 


C*****  CHECK  FOR  EXISTENCE  OF  REAL  DATA.  IF  SOMF  DOES, 
C***#*  CHECK  IND. 


I F ( NR )  91,90,91 

_ IF  END  OF  DATA  S E T ,  <IEND=l),  DO  DATA 

CALCULATIONS.  IF  NOT, RETURN. 

90  IF(IEND)  205,200,205 
200  RETURN 

C***»*  IF  FIRST  MOLECULAR  DATA  (ATOM  SYMBOLS,  WEIGHTS  AND 
C*****  VOLUMES)  THEN  INITIALIZE  DATA  INPUT. 

91  I F {  IND)  92,92,95 
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SUBROUTINE  IN^Tl  ...(CONT'D) 


02  I  NO-  l 

C * * * * *  INITIALIZE  NUMBER  OF  GASEOUS  MOLECULAR  SPECIES 

C*****  (NOUS)  AND  NUMBER  OF  LIQUID  MOLFCULAR  SPECIES 

C*****  ( NLMS )  TO  ZERO. 


NGMS=0 
NL  M  S=  0 


C *****  CHECK  FOR  MORE  THAN  5  ATOMIC  SPECIES. 


IFINA-5)  102,107,155 
155  WRITE ( I  NR  IT, 5005) 
NQXEQ=1 
N  R = 5 


CHECK  FOR  EQUAL  ATOM  TYPES  , WEIGHTS  AND  VOLUMES. 


102  IF(NR-NA*2)  151,103,151 
151  WRITE ( IWRITt 5001 ) 

N  0  X  F  Q  - 1 

C»**»*  DEFINE  NUMBFR  QF  ATOM  TYPES  ( NATYP ) ,  ATOM  TYPES 

C*****  . (I  ATOM)  AND  ATOMIC  WFTGHT  S  (  ATMWT  )  .  “‘THIS 

C*****  COMPLETES  DATA  INITIALIZATION. 

f03  NATYP=NA 

DO  104  1=1,5 

_ I  ATOM!  I )  =  I ALPHI  I  ) _ _ _ 

K=I  *2 

ATMWT { I ) =R V ( K- 1 ) 

VATQM ( I ) -RV  <  K ) 

104  CONTINUE 

CC-^**  RETURN  FOR  MORE  DATA. 


95 

RETURN 

K  A  SUM  =0 

C  s*/  V/  «»o  %i>- 

-v* 'c-  ^ 

C  •»*'  .V  +S+ 

L,  T  -V  "t*  "t>  'i" 

CHECK  NUMBER  OF  REAL  CONSTANTS  READ.  IF  14,  ONLY 

THERMO.  DATA  GIVEN  (MUST  ASSUME  VISCOSITY  DATA). 

P  -Jj  JU  4# 

C  *  55=  **  * 

IF  16,  BOTH  THERMO  AND  VISCOSITY  DATA 
OTHER  NUMBER  INVALID. 

GIVEN.  ANY 

_ 

111 

153 

IFINR-14)  111,112,111 

I F ( NR-16 )  153,113,153 

WRITE  I I  NR  I T  ,5003)  (  IALPH(  I  J)  , I J  = 1 , 4 ) 

1 12 

NOX  EQ= 1 

K  A  S  U  M  =  1 
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SUBROUTINE  INPTl 


( CON  T  *  0 ) 


CHECK  I F  LIQUID  COMPONENT.  IF  SO  TEMPORARILY 
STORE  AT  END  nr  DAT A  VECTORS*  IF  NOT,  ASSUME 
C*****  GASEOUS  COMPONENT”.  INCREMENT  APPROPRIATE  COUNTER 
C*****  (NGMS  OR  N L M S )  . 


113  I  Ft  TALPH(NA)-ILIQ)  114,115,114 

114  NGMS  =  NGM  S  + 1 
NP  LACING  MS 
GO  TO  116 

115  NLMS=NLMS+1 
NPL AC=21-NLMS 


CHECK  FOR  TOG  MANY  COMPONENTS. 

116  T  F ( NGM S  +  ML  M  S -2  0  5  119, 110,554 

554  WRITE ( I WR IT  ,5004  ) 

NOXEQ= 1 

NLMS=  0 

I F ( NGMS- 20 )  231,231,232 
2  32  NGMS=  20 
231  RETURN 
119  I WHER=NGMS+  NLMS 

KEQIV (NPLAC )=IWHER 


C*****  SET  VISCOSITY  DATA  TO  THAT  GIVEN  OR  FLSE  ASSUME. 

C *****  ISYMB  =*-t  *  FOR.  ASSUMED  COMPONENTS,  1  *  OTHERWISE 


_ _ _ _  ’  ...... r......  ^  0  » 

I  F ( K A  SUM )  117,117,118 

U  1  )  L  v  1 1  1  >  L. 

117 

R MU (NPLAC )  =  R  V  (  1  ) 

S  MU { NPLAC ) =RV { 2  ) 

I SYMB (NPLAC )=IBLNK 

I  NO  IC  =  2 

GO  TO  120 

118 

R MU (NPLAC ) =VI SI 

SMU(NPLAC)-VI S2 

I SY MB (NPLAC )= I  STAR 


STORE  THERMO.  DATA 


INDIC-Q 

120  DO  121  1=1,14 

KNUMB-INDIC+I 

121  TOATA (NPLAC , I )=RV(KNUMB) 

£'****#  STORE  SPECIES  NAME  (MAX.  OF  4  ALPHA-NUN.  formula). 

_ DO  12  2  1=1,4 

122  NAME ( NPL  AC ,  I  )  =  I  AL°H{  I ) 

C***«* . CHECK  FOR  POSSIBLE  END  OF  DATA  SET.  IF  SO  DO,  DO 
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SUBROUTINE  INPT1  . ..(CONT'D) 


C*****  DATA  CALCULATIONS.  OTHERWISE,  RETURN  FOR  MORE 
DATA. 

I F { I END )  205,200,205 
205  CONTINUE 

N  T  0  T  = NGMS+NLMS 

INITIALIZE  FORMULATION  MATRIX, 
no  206  I = 1 , NTOT 

_ DO  206  J ~ 1 , 5 _ 

2  06  F  OF  MU ( I , J ) -  0 . 0 

IF  ANY  LIQ.  COMPONENTS  EXIST,  RESTORE  THEIR  DATA 
£*****  RIGHT  ACTFR  THE  GASEOUS  ""COMPONENT  DATA. 


IF(NLMS)  220,220,200 


230 

DO  211  1=1, NLMS 

I ND1  =  NGMS+  I 

T  ND2=20-NLM  S+  I 

2  12 

DO  212  J  =  1  ,  14 

T DA T  A ( I N D 1 , J )  =  THAT A (  I  ND2  ,  J ) 

RMU ( TND1 ) =R MU  I INC2 ) 

S  MU { I ND 1 )  =  S  MU ( I N02 ) 

I SYMB {  IND1 )  =  I SY  MB ( IND2) 

K  E  0 I V { I NO 1 ) =  K£Q I V ( IND2 ) 

213 

211 

DO  213  J= 1,4 

NAME! IND1, J )  =  N  A  M  E  ( I ND2 , J ) 

CONTINUE 

P  J.  vU  J>*  y&f  -A, 

DEFINE  FORMULATION  MATRIX,  USING  GIVEN  FORMULAS 
(NAMES)  AND  ATOMIC  WEIGHTS. 

220  DO  221  1=1, NTOT 

K  ST  OR -0 _ 

DO  222  J=l,4 

I F { NAME (  I , J )- I8LNK  )  2  28,222,228 
228  DO  223  K=l,NATYP 

I FC NAME!  I, J  J-IATOM(K) )  2  23, 224,223 
224  FORMUI I,K>=1.0 

KSTOR  =  K _ _ _ _ _ _ 

GO  TO  222 
223  CONTINUE 


C*****  IF  FIRST  CHARACTER  OF  FORMULA  IS  NUMERIC,  ERROR. 

_ I  F { KS  TOR )  225  ,  156,225  _ _ _  _ 

156  WRITE ( I WRIT , 500  6  )  ( NAME (  I  »  J  J  )  »  J  J=  1  »  4  } 

NOXEQ= 1 
GO  TO  221 
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SUBROUTINE  INPTi  ... (CQNT'O) 


225  no  226  K  =  1  »  9 

I F (  NA ME ( IjJ  ) -NUMB ( K ) )  226 t 2 27 , 226 
227  FOR MU { I , KSTGR ) =FORMU ( I ,  KSTC3R ) 

GO  TO  222 
276  CONTINUE 


C*****  FORMULA  CHARACTER  HAS  NOT  BEEN  IDENTIFIED  - 

€***»*  INVALID  ATOMIC  SPECIE  (NOT  GIVEN)  OR  INVALID 

£*****  NUMBER  IN  FORMULA  (1-9  VALID). 

_ WRITE ( I W  R  T  T  ,5006)  (NAME!  I  ,  J J ) , J 1 , 4 )  _ 

NOXEQ- 1 
GO  TO  22  1 
222  CONTINUE 

221  CONTINUE 
RETURN 

5001  FORMAT { ’ 0  ERROR  IN  ATOM  NAMES,  WEIGHTS  AND  VOLUMES 
1>  DATA.') 

5003  FORMAT (1H0,'  INVALID  MOLECULAR  DATA  -  WRONG  NUMBER  OF 
$  CONSTANTS  - 

1  C  *  ,  4  A  1 ,  *  )  ’  ) 

5004  F ORM AT ( 1H0,  *  TOO  MANY  MOLECULAR  SPFCIES  GIVEN  (LIMIT 
_ $  IS  20 )  1 ) 

5005  FORMAT ( 1  HO ,  ’  TOO  MANY  ATOM  TYPES  Gi VEN  (LI  MI T  IS  5)  * ) 

5006  FORMAT ( 1H0, *  INVALID  MOLECULAR  FORMULATION  GIVEN.-  (* 
$ , 4A  I ,  *  l  *  ) 

END 
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SUBROUTINE  INPT2 


❖ 

* 


FUNCTIONS  - 


-  MOLECULAR  ANO  THERMODYNAMIC  DATA  ANALYSIS  ROUTINE 


C  * 
C  * 

c  * 

* 

c  * 
c  * 


CALCULATES  MOLECULAR  WEIGHTS  AND  VOLUMES 

DEFINFS  WHICH  SPECIES  ARE  RADIATING  COMPONENTS 
(FOR  HEAT  LOSS  CALCULATIONS)  —  ASSUMES  SPECIES 
WITH  THREE  OR  MORE  CONSTITUENT  ATOMS  ARE  POLAR 
AND  RADIATING 

IDENTIFIES  ANO  STORES  WATER  VAPOR  COMPONENT 


* 

* 


C 

c 

c 

c 

c 


* 


AND  SULPHUR  VAPOR  AND  LIQUID  COMPONENTS 

-  ECHO  CHECKS  M  AND  T  DATA  IF  DESIRED 
{  I DBUG ( 1 4 )  =  3  OR  GREATER) 


* 

* 

:  ❖ 
c  #  ^  5«c  *  #  3»«  %  %  £  %  ❖  *  ❖  *  *  #  #  ❖  ❖  ❖  #  *  £  *  ❖  # ❖  ❖  £  ^  *:  #  3$c #  $:  ^  j*c 


SUBROUTINE  INPT2 

DIMENSION  NUMB (9) 

COMMON  /GEN  1/ I WR IT , IDBUG( 15)  ,  I TE ST , CR I T , NGM S * NTOT 
COMMON  /INPUT  i/I  VI 251 ,RV{?5) , IA1 PH (50) , NI , NR , NA, NOXEQ 
COMMON  / INPUT2/ I SYM8I 20 ) , IAT0MI5) ,ATMWT(5) ,VAT0M(5) 

$, KEQIVI20) 

COMMON  /DAT AI/FORMUI 20,5) , N ATYP , IDATM { 5 ) /OAT A2/NAME ( 20 

$  *  4  ) 

COMMON  /DAT  A3 /T  CAT  A  {  20,  14  )  /  D  AT  A4/RMU  (  2  0  )  ,SM!J{  20) 
$TradctT201 

COMMON  /DAT A5/ I0H20, I DSUL ( 5  ) ,  WTMOL (20) ,VM0LE(20) 

DATA  IS,  IGAS,ILIQ,  IBLNK, NUMB/ *S  *  ,  *G  S’L  S'l  * 

$, *2  '  ,  ’  3  »  ,  *4 

1  *  ,  *  5  S  '  6  ',’7  8  S'O  ’/ 

C*****  DEFINE  WTMOL  AND  RADCT. 

DO  240  r=l  ,  NTOT 
WTMOL!  I  )  =  0."0 

RADCT! I )=0 .0 
NAT  0M=0 


C*****  CALCULATE  MOLECULAR  WEIGHTS  (  WTMOL  )  ,  USING  ATOMIC 
WEIGHTS  AND  FORMULA T I  ON  MATRIX. 


DO  23  2  J  =  1  , 5 

I F ( FOR MU ( I  , J)-l .OE-2)  232*232,231 
231.  WTMOL  (  I  ) -WTMOL  (  T  )  +F0RMU1  I ,  J  )  *ATMWT{ J  ) 
NUMBR=EORMU ( I , J ) +0.5 
NAT  OM=N ATOM+NUMBR 
232  CONTINUE 

SET  R ADCT= 1  FOR  RADIATING  COMPONENT,  =0 
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SUSP OUT  INF  INPT2  .  .  .  { CON T  '  0  ) 


C*****  OTHERWISE.  CRITERION  FOR  RADCT=1  IS  THAT  MOLECULF 
HAVE  3  OR  MORE  CONSTITUENT  ATOMS • 

I F I NA  TOM-3 )  240,238,238 
_ 2  38  P  ADCT  {  I  )  =  1 . 0 

240  CONTINUE  '  . . .  . 

C *****  F I  NO  GASEOUS  MOLECULAR  VOLUMES  ( VMQL E ) , 

C*****  USING  ATOMIC  VOLUMES  { V ATOM ) . 

00  250  1=1, NGMS 

VMOLE (I) =0.0 

00  250  J=1 , NATYP 

250  V wOLF ( I ) = V M OLE ( I ) +FORMU ( I , J ) *VATQM(J ) 


C*****  IDENTIFY  WATER  AND  SULPHUR  STREAMS. 


I  C  N  T  S  =  0 

f*** _ ZERO  SUL  0 HUP  IDENTIFICATION  VECTOR 

DO  399  1=1,5 
39Q  mSULI  I  )  =0 

DO  400  1=1, NTOT 

**♦•*  SULPHUR  STREAM  MUST  HAVE  ONLY  »S  »  OP  NUMBER  IN 
****  FORMULA. 


_ _ DO  40  1  J  =  1  ,  A 

I F ( NAME ( I , J )— I S )  402,401,402 
402  I F { NAME ( I , J ) - I Q  LNK )  407,401,407 
407  no  4P 4  K.  =  1,0 

IF  (  NAME"!  I ,  J  irNUMBIK)  )  404,401,404 
404  CONTINUE 
_ GO  TO  405 

401  CONTINUE 

C  *****  STORE  IDENTIFIED  SULPHUR  COMPONENT  NUMBER* 
I  C  N  T  $  •=  I C  N  T  S  +  1 


C*****  CHECK  FOR  roo  MANY  SULPHUR  COMPONENTS  (MAX  OF  5). 

TF{ ICNTS-5)  415,415,420 
420  WR  I  rr ( I WR IT ,  5000 } 

NQXEQ=l 
GO  TO  40  0 

415  TO SUL  (  IC NTS )  =  I 

C****»  WATER  STREAM  { ONLY  ONE  ALLOWED I ,  MUST  HAVE  MOL. 
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SUBROUTINE  INPT2  ...(CQNT»D1 
C*****  WT.  OF  18. 

405  T  F ( A8S(WTM0L<  I  ) -1 8 . 0 ) - 1 . OF- 1 )  406,406,400 

406  I DH2Q= I 
400  CONTINUE 


C*****  HERE  TO  END  -  ECHO  CHECK  IF  OESIRFD  !IDBUG(l4) 
G.JE.  1) 

IF{ IDBUGI 14)-3)  801,800,800 

800  CONTINUE 

IPHAS=IGAS 
WRITE ( I WRIT , 1000) 

. .  WRITE  C I  WRIT  ,2000)  !  T  A  TOM  U)  ,  1  =  1  ,  N  ATy  p  } 

WRITE ( IWR IT ,  200  1  )  ( ATHWT (I )  ,  I  =  l,NATYP) 

WRITE {  I  WRIT  ,2002  )  ( VATOM(  I )  ,  I=1,NATYP ) 

_ _ WR_I_  TE  (  I  WR  I  T  ,200  8  ) 

no  80  1  I  -=  1 , N TOT 
I F  C  I-l-NGMS )  301,302,301 
302  I PHAS=ILI 0 

301  WR  I  TE {  IWRIT , 100  1  )  I, { NAME ( I ,  J ) , J= 1 , 4 ) , I PHA S, WTMOLC I  ) 
*, VMOLE ( I ) , 

__  1  RADCTI  I)  ,RMU!I  )  ,SMU(  I  )  ,  ISYN8(  I  ) 

WRITF ( IWRIT ,1005 ) 

WRITE (  IWRIT,  1002)  IDH20, I  I DSUL (  I  ) ,  T= I  ,  ICNTS  ) 

_ I F  C  ID  BUG  1 14-I-4)  801,802,802 

802  Of]  500  K  —  1  ,11,10 
KL=K 

_ KT=K+9 

IF ( KT-NTOT )  502, 502 , 501 

501  KT=  NTO  T 

_ IFIKT-KL ) 500 , 502 , 502 

502  WR if E ( I WR I T , 1003 ) 

DO  315  I  =  K L , K T 

315  WRITF ( I WR I T ,  1004 )  ( NA MF (  I , J  )  ,  J=  1 , 4 )  , ( T DATA ( I , J ) , J= 1 
$,14) 

500  CONTINUE 

801  CONTINUE 
PE TURN 

1000  FORMAT! 1H0/T32 » ECHO  CHECK  OE  MOLECULAR  AND 
_ $  THERMODYNAMIC  DATA • /// ) 

1001  FORMAT { T 2 7 , 12  ,4X  ,4A1, 2X,A1 , 2X,F5.1,3X,F5.1,4X,F3.1,3X 
$ ,  F  6 . 4  , 

1  2X ,F 9 . 7  ,  IX, Al) 

1002  FORMAT (,0,/T25*  WATER  COMPONENT  =  *  ,  I  3  ,  •  SULPHUR 

$  COMPONENTS  =  » , 5 

113//) 

1003  FORMAT 1 '/ ///T38* THERMODYNAMIC  DATA  NASA  FORMAT7 

S/T351 FIRST  7 

1C  ON ST  ANT  S  FOR  300  TO  1000  DEG.  K.'/T35'LAST  7 
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SUBROUTINE  INPT? 


(CONT* D) 


i  CONSTANT S  PQR  1000  T 
10  5000  DEG.  K . * / ) 

1004  FORM A t ( /T?5,4X, 4AI, 7X, 3F15.7, /(T25#4F15.7U 

1005  FORMAT! ' 0'T30' VISCOSITY  DATA  IN  FORM  -  MU { CP )=R  MU+SMU 

T  DEG.  F . » / 

1T37,  *  $  DENOTE  S  ASSUMED  VISCOSITY  CONSTANTS ' / / ) 

2000  FORMAT (T25 • ATOM  -  * /T3 1  *  NAME ' , 5X , 5 ( A 1 , 9 X } ) 

2001  FORMAT! T29* WEIGHT' , 2X , 5 { F 6 . 2 , 4X ) ) 

2002  FORMAT ff29* VOLUME* , 2X , 5 ( F6 . 2 , 4X ) ) 

2003  FORMAT!//// 

1T25  'SPECIE  *  MOLECULAR  *  * 

$  VISCOSITY  *» 

1/T2 5 'NUMBER  FORMULA  WEIGHT  VOLUME  RADCT  RMU 
$  SMU* 

1/T25* - — - ~ — - - - — — — — - 

% - '  / 

1/  ) 

500Q  FORMAT! '0  TOO  MANY  SULPHUR  SPECIES  -  MAXIMUM  IS  5 
$  *  ) 
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SU8R0UT INF  INPT3 


* 

* 

* 


FUNCTIONS  - 


* 

* 

* 


I _ EQUIPMENT  PARAMETER  SPECIFICATION  AND  ESTIMATION 

DATA  INPUT  ROUTINE 


INITIALIZES  EQUIPMENT  PARAMETER  VECTOR  ' EQUIP* 
ELEMENTS  TO  ZERO 


DEFINES  EQUIPMENT  NUMBERS  AND  CORRESPONDING 
TYPES  —  ALLOCATES  EQUIP  VECTOR  STORAGE 
REQUIRED  FOR  EACH  NUMBER  AND  STORES  LOCATION 


IN  AN  INDEX 

-  STORES  EQUIPMENT  NUMBERS  IN  CALCULATION 

SEQUENCE  VECTOR  AS  ENCOUNTERED.  (THIS  VECTOR 


* 


IS  NORMALLY  RE-ORDERED  LATC^  DURING  CALCULATION 
SEQUENCE  OPTIMIZATION) 

STORES  EQUIPMENT  PARAMETER  SPECIFICATIONS  IN 

EQUIP  AS  NEGATIVE  VALUES  DURING  SPECIFICATION 

°H ASE —  EQUIP  PARAMETER  ESTIMATES  AS  POSITIVE 
VALUES  DURING  ESTIMATION  PHASE 


❖ 

* 

* 


-  ECHO  CHECKS  SPECIFICATIONS  AND  ESTIMATES  IF 
DESIRED  ( I D8UG (  14  )  =  1  OR  GRFATFR) 


* 


* 


C 


sk* 


*  £  *  =**  *  *  ***£  *  *  £  &  *  £  %***  ❖  s{e  £  A'  *#*#*4:  ti  if. 


SUBROUTINE  INPT 3 ( IND, I S D E C , ICHCK ) 

DIMENSION  I  TYPE (1°) 

COMMON  /GEN  I/I  WRIT, ID8UG( 15 ) , I  TEST, CR I T , NGMS , NTOT 
COMMON  /INPUT1/I V( ?5)  ,RV( 25  )  , I ALPH{ 50)  ,NI , NR  ,  NA , NOX E Q 

COMMON  /ST0R1/EQUIPC300) , I LOC , NMBEQ, STREM( 5 0 , 22 ) 

$, NSIN(5) ,NSOUT{ 5) 

COMMON  /  E L.  0  W 1  /  I  N  F 0  {  7  5,5  )  ,  NNFQP,  NO  STM 
COMMON  / E X E C 1 / JTYPEC25) , INDEXI25) , ISEQI25) , IASUMI25) 
f>,  I  SUPP,  I  0DT 

DATA  I  TYPE/28 , 5,8,12,3,2,6,7,3,1/ _ 


C* *****  CHECK  FOR  EXISTENCE  OF  INTEGER  DATA.  IF  NONE, 

O****  RETURN. 


IF(NI)  91,91,90 

_ 91  RETURN _ 

90  CONTINUE 

C*****  CHECK  IF  INITIALIZATION  HAS  BEEN  DONE  ( INO=l )  }R 
r  *  *  >i- *  *  NOT  (  I  N  D  -  0  )  . 

 IF(IND)  100,100,101 


C*****  CHECK  IF  SPECIFICATION  (ISPEC=-1)  OR  ESTIMATION 

c  *****  (isPEc=n. 
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SUBROUT  IN E  INPT 3  . . . ( C ON  T ’ D  ) 


100  IF(ISPEC)  102,102,103 


p  Ox  Ox  O-  Ox  X. 

1  'i' 

(3  y,< 

SPECIFICATION  INITIALIZATION. 

H FRF  TO  L 03  -  DEFINE  EQUIP.  VECTOR  INDEX. 

FIRST  DATA  (EQUIP.  SPECIFICATION)  WILl  RE  PAIRED 

/""*  Ox  Ox  Ox  Ox 

*4*  'V* 

E  QU I ° .  NUMBERS  AMD  EQUIP.  TYPES.  SET  INDEX  FOR 

EQUIP’ S  AS  ENCOUNTERED  SUCH  AS  TO  LEAVE  ENOUGH 

ROOM  FOR  EACH  PIECE  OF  EQUIP.  (DEPENDENT  UPON 

C  Sifcjjcjjc 

Q  ❖  *ie  #  # 

p  j,  j,  x,  a. 

EQUIP.  TYPE)  . 

FOR  EQUIP.  NO.  ‘I’  ,  THF  STARTING  POINT  FOR  THE 

STORAGE  OF  EQUIP.  PARAMETERS  (IN  EQUIP.)  IS  GIVEN 

Rv  THE  ITH  ELEMENT  OF  INDEX. 

102  K  PL  AC  =  0 

DO  I  1=1,25 

J TY°E (  I) =0 

I SEQ ( I ) =0 

1  INDEX (  I ) =-  1 

DO  2  1=1,300 

2  EQUIP (I >=0.0 

C*****  CHECK  FOR  TOO  MANY  PIECFS  OF  FQUIP  (MAX  25). 


I F ( N I  —  5  0 )  5,5,5  04 
504  WRITE! I WRIT, 5004) 

NOXEQ-1 
N 1=50 . 

CHECK  FOR  EQUAL  NUMBER  OF  EQUIP.  NO.S  AND  TYPES. 

5  IF(NI/2-(NI  +  U/2)  502,6,502 
502  WRITE ( 1WRIT ,500? ) 

NOX  FQ  =  1 
N I  =  N I  - 1 


C*****  DEFINE  THE  NUMBER  OF  PIECES  OF  EQUIP  ,  NNEQP. 

_  6  NNEQP=NI/2 

QO  10  I =2 , N  I ,  2 
I C  N  T  =  I  /  2 

_  IAL°H( ICMT)=KPLAC 

I  DU MI  =  I  V { I  —  I ) 

. .  C*****  ISEQII)  IS  THE  ITH  PIECE  OF  EQUIP  ENCOUNTERED, 

0*****  THIS.  SEQUENCE  WILL  RE  USED  AS  THE  INITIAL  FQUIP. 
C*****  CALCULATION  ORDERING  {OPTIMIZED  LATER.). 


I SE  Q (  TCNT )  =  I DUM 1 

C *****  CHECK  FOR  VALID  EQUIP  NO.  (1-25). 
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SUBROUTINE  INPT3  .  . . ( CON  T ' D ) 


505 

I F ( IDUMI -2 5 ) 1 1 , 11,505 

WRITE  I  I WRIT  ,5005  ) 

11 

N  0  X  E  Q  =  1 

IDUMI =75 
! DUM2= I V { I ) 

p  Yj  »'<• 

n  -.o  ^  ^  -»«, 

^  ^  *V  '  '  •*r>- 

*  CHECK  FOR  VALID  EQUIP.  TYPE.  (LESS  THAN  10  AND 

*  I  TYPE  NOT  ZERO) 

2  0 

I F { I DUM2- 10 )  20,20,506 

I F  C I  TYPE ( I DUM2 )  )  506,506,12 

506 

WRI TP { IWR IT ,5006) 

NOX  EQ= 1 

I DUM2  =10 

C*****  J  TY^E  VECTOR  STORES  EQUIP  TYPES. 


12  JTYPE ( IDUMI >=IDUM2 
INDEX { IDUMi )=KPL AC 


DEFINE  INDEX  ELEMENT  FOR  NEXT  EQUIP,  to  BE  STORED 


C*****  IN  EQUIP.  PARAMETER  VECTOR,  DEPENDING  UPON  ROOM 
C*****  NEEDED  FOR  PRESENT  EQUIP. 


KPL  AC=KPL AC  + 1  TYPE ( T  DU M2 ) 

CHECK  FOR  EQUIP.  VECTOR  OVERFLOW. 

IE (KPLAC-300)  10,10,503 
503  WRITE! IWR  ft ,5003) 

NOXEQ= 1 
K  PL  AC  =  27 5 
10  CONTINUE 
I  CHCK  =  I 
103  I ND  =  1 


C*****  CHECK  IF  ECHO  CHECK  DESIRED. 

I F { IdBUGI 1  4  )  -  1  ) . 801,800,  800 

800  T  F (  I  S  °  EC  )  802,802,803 

I _ 

C*****  INITIALIZATION  OF  EQUIP.  P AR ,  SPECIFICATION  ECHO 

C***£*  CHECK  . 

802  WRITE { IWR IT, 1003) 

WRITE  II WRIT ,1000)  (  I V  (  I  )  ,  I  =  1 ,  N  I  ,  2  ) 

1 _ WR  I  TE  (  I  WRIT  ,1006)  (  I  V  (  I  ?  ,  I  =  2  ,  N I  ,  2  ) _ _ 

WR  I  TE  (  I  WR'l  T  ,  1  00?  )  {  I  ALPH  (I  )  ,  1  =  1  ,  NNEOP  ) 

WRITE ( I  WRIT, 1004) 

I L I NE= ( (NNEQP+9) /10)*3+16 
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_ _ _ _ _ SUBROUTINE  INPT3  .  .  .  ( CONT ♦ D ) _ 

301  CONTINUE 

IF  C I  SPEC )  104,104,  10  1 

104  RETURN 

_ ( _ EQUIP.  PAR.  ESTIMATION  FCHO  CHECK  INITIALIZATION. 

8  03  WRITFU WRIT,  1005) 

WR I TE ( IWR I T ,1004  ) 

I  LINE =16 

CHECK  TOO  SEE  THAT  INITIALIZATION  WAS  HONE 
C*****  (SPECIFICATION). 

IF!  IC.HCK  )  55Ti  551, 550 

881  UR  I TE ( IWR IT ,5007 ) 

NOXE  0  =  1 
RETURN 

550  CONTINUE 

CHECK  FOR  EXISTENCE  OF  ESTIMATION  OATA.  IF  NONE 

£*#***  , RETURN . 

I  FI  NR)  8  01,8  01,  101 

C *****  STORE  GIVEN  DATA  IN  EQUIP  VECTOR. 

101  NM8EQ=Wrn 

_ CHECK  FOR  VALID  NUMBER  OF  PAR.  NO. 'S  AND  VALUES. 

IF(NI-NR-l)  501,120,501 
501  WRITE ( I WRIT, 5001 )  NMBEQ 
NUXCQ=1 
PETUR  N 

CHECK  FOR  VALID  EQUIP  NO.  . 

_  120  I  FI  INDEX! NMBEQ ) )  902*700,700 

9 02  W R I TE  U WR I T , 2 0 0 1 )  NMBEQ 
NOXEQ-1 
RETURN 


DEFINE  VAX.  PAR.  NO.  FOR  THAT  TYPE  0^  EQUIP. 

700  III  I I-JTYPE (NMBEQ) 

I MAX= l TYPE (  IIIII) 

KPLAC= INDEX (NMBEQ) 

DO  201  1=1, NR 

DEFINE  PARAMETER  NUMBER 


’ 1  ) . . . 
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SUBROUTINE  I  NpT3  .  ..(CONT'D) 

J  DUM= I V ( I  +  1 ) 

r  ^  j. 

I  ^ 

O  J'  JU  J/ 

•'<*'  ■'v'  '!*■ 

CHECK  FCR  VALID  EQUIP.  PAR.  NO.  (DEPENDS 
EQU I p .  TYPE). 

UPON 

HOI 

I  F  f  J  HUM-  IMA  X ) 70 1  ,701,901 

WRITE ( IWRIT ,2000)  NMBEQ, JDUM 

NOXEQ=l 

GO  TO  201 

C*  >*/  J#  -J* 

1  ^ 

CHECK  IE  GIVEN  PARAMETER  HAS  BEEN  PREVIOUSLY 

C*  'L  %•/  Jr  Jr 

^  Vrr  ^  ^ 

GIVEN.  (EQUIP  ENTRY  NON-ZERO,  ERROR). 

_ 

701 

NPLAC=KpLAC+ JQUM 

5  00 

I F ( AB  S ( E  QU IP(NPLAC) )  —  I.0F-10)  2  00,200,500 
WRITE ( IWP  TT ,5000 )  I V ( 1 > , I V ( I  +  1 ) 

NOXEQ-l 

Q  Jr  ^r-  Jr  Jr  Jr 

L  ■V* 

r 

STORE  IN  EQUIP.  MATRIX.  (SPECIFICATION  - 
ESTIMATE  +  VE) 

VE, 

200 

201 

P VALUER V (  I  )  *  ISREC 

EQU IP(NPLAC )  =  P V  A  LU 

P  Jr  Jr  Jr  Jr  Jr 

I  V  ^  ^  r,» 

ECHO  CHECK  IF  DESIRED. 

804 

I F {  I D  BUG ( 1 4  )  - 1 )  805,8  04,804 

I LINE-ILINE+l+NR 

I F (  IL  INE-54 )  815,815,814 

814 

3333 

WRITE ( IWRIT ,3333) 

FORMAT ( *  1 •  ) 

WRITE ( IWRIT, 1004) 

I  LI  NE =6+ NR 
815  CONTINUE 

WRITE  (IWRIT,  1007  )  IV  ( JJ  ,  (  I V  i  I  +  1 ) , RV (  I  )  ,1=1, NR) 

805  CONTINUE 
RETURN 

2000  FORMAT { 1H  f  « INDEX  ERROR  ’214) 

2001  FORMAT { *  0  INVALID  EQUIP.  NO.  ,  16) 

5000  FORMAT! '  EQUIP.  NO.  'TO,'  PARAMETER  NO.  ’,13,’  GIVEN 

$  MULTIPLY’) _ _ 

5001  FOR  T  A  T  {  '  0  FOR  EQUIP.  NO.  ’13*  EQUIP.  PAR.  NO.”S’/ 

1 ’ AND  PARAMETER  VALUES  OON* ’ T  MATCH.’) 

5002  FORMAT! »Q  EQUIP  NO . » *  S  AND  EQUIP  TYPES  DON1 «T  MATCH’) 

5003  FORMAT 1*0  EQUIP.  PARAMETER  VECTOR  HAS  BEEN 
$  OVERFLOWED.’) 

5004  FORMAT!  '0  TOO  MANY  PIECES  QE  EQUIP  -  MAX  OF  25*  ) _ 

5005  FORMA  T ( ’ 0  INVALID  EQUIP.  NO.  (MUST  BE  L.F.  25)’) 

5006  FORMAT! *  0  INVALID  EQUIP.  TYpE  (NO  SUBROUTINE 
$  RECORDED)’) 
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_ SUBROIJT  INF  INPT3  .  .  .  (  CGNT*  D  ) _ 

5007  E ORM  AT ! *  0  SPECIFICATION  MUST  BE  DONE  BEFORE 
_$  ESTIMATION* ) 

ino3  format ( * o * / /too  'echo  check  of  equFpment  paramIeter 


$  SPECIFICATION 

1DATA* //) 

1004  FORMAT {////T30, 

'  E  QU I  P  ME  NT 

PARAMETER 

%  PARA 

1MFTER' /T31 

»  NUMBER 

NUMBER 

5  VALUE’/ 

1/) 

1005  FORMAT ( • 0 • //  T30 

, • ECHO  CHECK  OF 

EQUIPMENT  PARAMETER 

T-  ESTIMATION  DAT 

1 A  ’  /  /  ) 

1000  FORMAT! *0*T25 , • 

EQUIP.  NO. 

-  *  » ( 145,1014) ) 

1006  FORMAT!*  *f 25 , * 

EQUIP.  TYPE 

-  * , ( T45, 1014) ) 

1002  FORMAT!'  » T25 , ’ 

EQUIP.  INDEX 

-  ' , !T45, 1014) ) 

1007  FORMAT! *  0 • , T3 1 , 1 3 • C T5 1 , I  3 , 1 3 X . E 1 5 . 7 
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C  ❖  ❖  *  *  *  *  *  £  *  >>;  #  *  #  #  #  ^  aje  *  #  :{:#  Jjt  #  #  $  *  t?«}:  #  ##  ^c 


c 

4U 

* 

C 

C 

SUBROUTINE  INPT4 

v 

❖ 

c 

FUNCTIONS  - 

* 

c 

y# 

❖ 

c 

■Jm 

A' 

-  STREAM  SPECIFICATIONS  AND  ESTIMATES  DATA 

INPUT 

❖ 

c 

yu 

ROUTINE 

4* 

't' 

c 

INITALIZES  STREAM  MATRIX  (STRFM)  ELEMENTS 

TO 

c 

* 

ZFRO 

* 

c 

3(6 

-  STORES  STREAM  SPECIFICATIONS  AS  NEGATIVE 

VALUES 

* 

c 

IN  ST REM ,  STREAM  ESTIMATES  (DURING  ESTIMATES 

* 

c 

❖ 

INPUT)  AS  POSITIVE  VALUES 

* 

c 

ECHO  CHECKS  SPECIFICATIONS  AND  ESTIMATES 

❖ 

c 

y< 

(SFPARATE  INPUT  DATA  SECTIONS)  IF  THIS  IS 

DESIRED 

* 

c 

* 

( IDBUGI 14) =2  OR  GREATER) 

❖ 

C  *  * 

C  j^^jjjjfcjJtjjsjScjfcjJc#**#:^  $£$$$ #  £*:  ^ jjt  & 


SUBROUTINE  INPT4( IND, ISPFC, JCHCK, ICNT) 

COMMON  /GEN  1/ I  WRIT, IDBUG( 15 ) ,  ITEST , CR IT , NGMS , NTOT 
COMMON  /INPUTl/I V(?5)  ,RV(25) ,IALPH(50) , N I , NR , N A , NIX  EG 
COMMON  /STOHI/EQUIP ( 300) » I LOC , NMBEQ, STREM(  50,22) 

$ , NS  IN { 5 )  , NS OUT { 5 ) 

DATA  I  BRCl*  I BRC? / * {  »,»)  •/  _ 


C*****  CHECK  FOR  EXISTENCE  OF  REAL  DATA.  IF  NONE, 
RETURN.' 

I  FI  NR)  9  0,90,91 
90  RETURN 


C*****  CHECK  IF  INITIALIZATION  HAS  BEEN  DONE  (IN0=1)  OR 
NOT  C IND=0? . 

91  IF(INO)  100,100,101 


C*****  SPECIFICATION  (  I  SPFC=— 1  )  OR  ESTIMATION  (ISPEC=1). 

100  Ifi I SPEC )  102  ,102, 103 

STREAM  PARAMETER  SPECIFICATION  INITIALIZATION  - 
C*****  ZERO  THE  STREAM  MATRIX  ISTREM). 


102  T  C  N  T  =  0 

t  DO  1  1=1,50  _ 

DO  1  J  =  i  , 22 
1  STREMI I, J)=0.0 

_ _ JCHCK  =  1 _ _ 

103  I ND=1 

CHECK  TOO  SEE . THAT  INITIALIZATION  WAS  DONE 


- 


.  t  c :  ■  ,  ' 

*  *  T 

*  .  ,  y  \  f 

’  ■  ,  {  )  :  ■  i  . 

'  '  ( *  .  1  * \ 


,  f  t 


f  T  C  • 


f  ,  t  r  :  * 


'■jt*  n  ■  e 


-T  01  ^0J 

■  •  r  -  r  ■■ 

<  I,  »  '  )M;  T2  i 

I  = r 

f  =  f  : 


o  n 


0-90 


- - - SUBROUTINE  I  NPT  4  .  {  CONT  '  D  ) 

C *****  ( SPECIE ICAT ION) . 

IF(JCHCK)  55U~55U550 
551  WRITE ( IWRIT,5007) 

N  0  X  E  Q  =  1 
RETURN 
550  CONTINUE 


IF  ECHO  CHECK  DESIRE D »  INITIALIZE  IT. 

IF(  ID  BUG (  14  )  -2 )  801  ,800,800 

BOO  IF ( I  SPEC )  105,105,104 

105  WRITE!  I VI R  I  T  ,100  0) 

WRITE  (I HR  IT  ,1002  ) 

GO  TO  801 

104  WR I TE { IWR IT , 100 1  ) 

WRI TE (  IWR IT  ,1002) 

801  I L I NE=  11  “ 


Q  jjt  sfe  # 

101 

Q  #  *  -if.  *  *; 


1 N p U L.OE . S TRE AM  P A R A METERS  (SPECS.  OR  ESTIMATES . ? , 

1 9UM=  I V ( 1 ) 


CHECK  FOP  VALID  STREAM  NUMBER.  (FIRST*  INTEGER, 
MUST  8E  1-50). 


IFTiOUM)  504,504,200 
200  I E (  I  DUM- 5  0 )  201,201,504 

504  WRITE (IWR IT ,5004) 

NOXEQ= 1 
RETURN 


CHECK  IF  WHOLE  STREAM  GIVEN  (ONLY  ONE  INTEGER  = 
STRM.  NO.)  OR  ONLY  PART  OF  THE  STREAM  (MORE  THAN 
ONE  INTEGER  =  STRM .  NO.  AND  S TREAM  PARAMETER 


_  201 

NUMBERS ) . 

IF(NI-l)  62,50,62 

c  *  #  ❖ 

CHECK  IF  WHOLE  STREAM 
FOR  CONSISTENT  NO.  OF 

GIVEN 

STREAM 

BEFORE.  IF 
PARAMETERS. 

SO,  CHECK 
IF  NOT, 

£ 3^  *  *  # 

SHI  NO.  OF  STRFAM  PARAMETERS 

FOR  FUTURE 

REE. 

(  ICNT) . 

50 

IE(ICNT)  52,51,52 

51 

ICNT=NR 

5  2 

I E { I CNT-NR )  501,52,501 

INCONSISTENT  DATA 


) . . . 

'V  ) 

,  •  , r 

t  ■ 

'  { 

.  ■  ■  •  )  r  T  -  I 

( 


<  c 

t 


. ;  ■  f 


J_  :'-1  ~  I  ) 

.  '  '  /  1  T  ! 


«  ‘  f  < 

,  (  '  ) 


.  ( 
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SUBROUTINE  INPT4  ...CCONT'D) 


501  WRITE (IWR IT  ,5001  ) 

NOXEQ=l 

CHECK  FOR  TOO  MANY  PARAMETERS. 


53  IFfNR-22)  54,54,506 
506  WRITE { IWR IT  ,5006 ) 

N0XEQ=1 

RETURN 

STORE  COMPOSITION  (ALL  BUT  LAST  TWO  PARAMETERS). 


54  I  CO  MP=NR— 2 

DO  56  JOUM- 1 , I COMP 


C *****  CHECK  THAT  DATA  NOT  GIVEN  BEFORE. 


I F ( AB  S ( STRE  M ( I  HUM, JDUM)  )-l .OE-6)  55, 55,502 
502  WRITE ( I WRIT, 5000)  IDUM,JOUM 
NOX  EQ  =  1 


C*****  STORE  DATA  (-VE  FOR  SPECIFICATION,  +-VE  FOR 
ESTIMATION) 


55  STREM ( IDUM, JDUM ) =RV( JDUM )*I SPEC 

C*****  fill  IV  VECTOR  FOR  POSSIBLE  FC.HU  CHECK  PRINT-OUT. 

56  I V  (  JDUM+1  )  =  JDIJM 


C*****  STORE  TEMP.  IN  COLUMN  21  -  CHECK  NOT  GIVEN 

C*****  BEFORE • 

I F ( AB  S( STREM ( I OUM , 2 1 )  ) - 1 . OF -6 )  57,57,  5  07 

507  JDUM=  2 1  __  _  _  _  _____ 

WR I TE ( IWR I T ,  5000  j  I DU M, JDUM 
NOX  FQ— 1 

STORE  OAT  A  ( -V  E  F  OR  SPECIFICATION,  +VF  FOR 
C *****  ESTIMATION) 


57  STREM ( I OUM ,21 ) =RV ( MR- 1 ) *  I  SPEC 
I  V ( NR ) =2 1 


C*****  STORE  PRESS.  IN  COLUMN  22  -  CHECK  NOT  GIVEN 
BFFORE. 


I F {  ABS( STRFV(  I OUM,  22)  )-1.0E-6)  58, 58,  508 

5  08  JDIJM- 2 2 

WRITE ( IWR I T  » 5000 )  I DUM, JDUM 


t  *  .  .  *  T 
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SUBROUTINE  I NPT4  .. .(CONT * D ) 


NQXEQ=l 


*****  STORE  OAT  A  ( - V E  FOR  SPEC  If ICATI ON,  +  VF  FOR 
*****  ESTIMATION) 


58  S  TRE  M ( IDUM»22)=RV(NR)*ISPc:C 
I  V ( NR+ 1 ) =22 
GO  TO  TO 


ONLY  PART  OF  STREAM  GIVEN 

CHECK  THAT  PARAMETERS  ANP  PARAMETER  NO . S  MATCH. 


62 

503 

TF(NI-l-NR)  503,60,503 

WRITE (I  WRIT,  5 003) 

i  N  v-J  •  J  ■  IH  1  GO# 

RETURN 

f  »v  xv  »V  xV  A 

'w  v  ■*,* 

STORE  PARAMETERS  IN  LOCATIONS 

GIVEN 

(PAR.  NO*  S. ) . 

60 

no  61  i  -  2  , N  I 

JDUM  =  IVU  ) 

0  SJ;  *  rft 

CHECK  THAT  PARAMETER  NUMBER  IS 

VAL  TO 

I  1-22 ) . 

202 

IE(JDUM)  505,505,202 

I F { JDUM- 22 )  203,203,505 

5  05 

WRITE ( IWR  T  T  ,5005  ) 

NOX  E0= 1 

RETURN 

C*****  CHECK  THAT  DATA  NOT  GIVEN  BEFORE. 


203  IF( ABSI STREMf I DUN, JDUM) ) -1. PE-6)  61*61,500 
500  WRITE ( IWR IT *5000)  IDUM,JDUM 


NOXEQ= I 


O  X*/  »*/  J.  X*. 

J  *,x  ^,\  -,X  ^  X 

O  xV  x>'  xi. 

^  /t*  -4'  A'  'E 

STORE  DATA  (-VE  FOR  SPECIFICATION,  +VF  ECR 

E ST  I MAT  ION) 

61 

STREM { IOUM, JDUM ) =R  V { 1-1 )*ISPEC 

ECHO  CHECK  GIVEN  STREAM  DATA  IF  DESIRPQ. 

TO  IP(  ID BUG 1 141-2)  803,802,802 
8  02  I L I NF  =  I L I NE+1  +  ( N R + 2  > / 3 

I E {  IL  INE- 54 )  805,805,  304 
8  04  WRITE ( I  WRIT ,3333) 

3333  FORMAT! » 1 »////) 

WRITE ( IWR I T ,1002 ) 

_ I  L I NE  =  5+ (  N  R  +  ?  )  /  3 _ 


'f  -  >.  ■  : ' 
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SUBROUTINE  INPT4  .  ..(CONT* D  ) 

805  CONTINUE 

TE  I  I  HR  IT  ,  100  5  )  I V { 1 ) , ( IBRCl, I V ( 1  +  1 )  , IBRC2  >RV( I) ,  I =  I 

WRITE! I  WRIT ,1006) 

803  CONTINUE 

RETURN  ~  E - 

LOOO  FORMAT!/ / /T  36  *  ECHO  CHECK  OF  STREAM  SPECIFICATION  DATA* 
$///  ) 

1001  FORMAT!/ //f 37* ECHO  CHECK  OF  STREAM  ESTIMATION  DATA*// 
$/  ) 

1_002  FORMAT!  T25  *  STREAM  -  *  *  (PARAMETER  NO.  )  P  ARAMFTE  R 

i  VALUE*’  REPEA 
1TED* //) 

1005  FORMAT (T25*^« ,13, *  -  *,!•  * ,T35,  Ai , 12, A1 • E12 .5, IX. A 1 
$,I2>A1,E12.5, 

1 1 X ,  A 1 , I  2 , A  L , E 1 2 . 5  )) 

1006  FORMAT  («  '  ) 

5  000  F  ORM  AT  (  »  0  STREAM  ’  ,13,*  “PARAMETER  »  ,  I  3  T7  MIJLT  I  PLY 
%  GIVEN') 

5001  FORMATI'O  INCONSISTENT  NUMBER  OF  TOTAL  STREAM 
'$  PARAMETERS* ) 

5003  FORMAT! *0  PARAMETERS  AND  PARAMETER  NO.S  DON**T 

$  MATCH*  ) _ 

5004  FORMAT ! '  INVALID  STREAM  NUMBER  . . TrANGF  7T  1  TT~ 

$  50 ) ’  ) 

5005  FORMAT!’  INVALID  PARAMETER  NUMBER.  (RANGE  I S  1  TO 
$  22  )  '  ) 

5006  F ORM AT ( ' 0  TOO  MANY  PAR.  GIVEN  -  (MAX  -  20  COMP.+TEMP. 

S+PRESS. *  ) _ _ 

5007  F  ORMAT { ' 0  SPECIFICATION  MUST  BE  DONE  BEFORE  “ 

$  ESTIMATION’) 

END 
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C  if  **  ❖  #  £  $  #  *  ❖  *#  jjc*  £  #  ##  ^c  *  3?t  #:$:#  #  &  s{e  *  * *$:  *  #  *j*c  sJcjJtjJc; 


c 

C 

c 

c 

c 

c 


c 

c 

r 


C 


* 


SUBROUTINE  1NPT5 


FUNCTIONS  - 


FLOWSHEET  DATA  INPUT  ROUTINE 


*  - 


INITIALIZES  FLOWSHEET  MATRIX  (INFO)  ELEMENTS 
ZERO 

SETS  STREAM  UNKNOWNS  TO  1  IF  NOT  GIVEN 
STORES  FLOWSHEET  DATA  IN  INFO"" AND  ECHO  CHECKS 
IF  DESIRED  {  I  DRUG!  1 4  )  =  2  OR  GREATER) 


TO 


it 

* 

if 


if 


it 

* 


C  if  it  it  if  if  *  V;  if  if  #  £  if  if  if  if  $  if  if  ifif  *  iflf*  if  if  ififif  if  if  ifif  if  if  if 


SUBROUTINE  INPT5 { I NO I 

COMMON  /GEN I/T WRIT, IDBUG( 15) ♦ I T E ST , CR I T , NGM S , NTOT 
COMMON  /INPUT1/ I  VI 25)  ,RV(25 ) , I ALPH ( 50 ) , N I , NR , NA, NOX EQ 
COMMON  /FL0W1/ INFO! 75,5) , NNEQP, NOSTM 


C**#**  CHECK  FOR  EXISTENCE  OF  INTEGER  DATA.  IF  NONE 
C  **  * if  if  ,  RETURN 

IE  INI  )  91,91,90 
91  RETURN 


C  *****  CHECK  IF  DATA  INITIALIZATION  DONE  (  I ND- 1  )  OR  NOT 

C*****  ( ino^O )  . 


90  IFCIND)  100,100,101 
100  I  NO ~ 1 
NOS  TM  =  0 

C *  * *  *  *  INITIALIZE  FLOWSHEET  MATRIX,  INFO,  TQ  ZERO* 


DO  1  1=1,50 
DO  1  J  =  I  ,5 
1  INFO!  I  , J  )  =  0 

C *****  INITIALIZE  ECHO  CHECK  IE  DESIRED. 


I F I IDBUG ( 14 ) -2 )  801, SCO, 800 

800  WRITE ( I W R I T ,1000) 

801  CONTINUE 

101  NOSTM=NQSTM+ 1 

C*****  CHECK  FOR  VALID  NUMBER  OF  INTEGER  DATA  {3,4  HR  5). 

IF (NI -5)  94,94,504 

94  IF  INI -3)  504,95,95 

504  WRI TE I  IWR I T  ,5004  ) 

NQXEQ= l 


V\H  l.'r  T  .  <  f  ?\  J 
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f  (  nr 
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(  r  ,  t  i '  -vr  r  ■' 


0-9  5 


SUBROUT  INF  INPT5  .  ..(CONT’D) 


RETURN 

(2  £  3fC  Jjc  sjt  %C 

95 

CERTIFY  NO  REAL  DATA. 

IF{ NR  1500, 102 ,500 

500 

WRI TE { IWP IT  ,5000  ) 

N  0  X  E  Q  =  1 

102 

I DUM= I V { 1 ) 

E*  -%V  -A. 

\  ^  -V*  -V*  V 

CHECK  FOR  VALID  STREAM  NUMBER 

( 1-50) . 

I F ( I DUM-50 )  120,120,501 

120 

I F {  IDUM ) 501 ,501 , 103 

501 

WRITE ( I WRIT ,5001 ) 

NOX  EQ  =  1 

CHECK  THAT  STREAM  NOT  GIVEN  BEFORE. 

103 

I F( INFO ( I DUM , 1 ) }  502,104,502 

502 

WRITE (IWR IT ,5002)  IDUM 

NOX E 0=1 

O  A"  ■n1^  A>  -A 

^  5’*  -,**  'iv  *y 

SET  STREAM  NUMBER. 

104 

INFO! I DUM, 1 ) = I DUM 

O  '**  v)»  «*V  -Jr 

^  *v*  *r*  ■'r* 

CHECK  FOR  VALID  SOURCE  EQUIP. 

NUMBER . 

(0  FOR 

r  jJcjJc  >!;  ;|c  j}c 

FFED  OR  1-25) . 

IF(  I V  <  2  )-25)  105, 105,503 

105 

IF{  I V {  2)  ) 503,  106,106 

503  I 

WR T  TE (  IWR IT ,5003 ) 

NGXEQ*I 

RETURN 


O  ■A«  X  X 

-V*  ^  -V* 

106 

SET  SOURCE  nQU I p . 

INFO! IDUM, 2 )= IV ( 2) 

r  %  y-  •<;  jj;  * 

r  #  *  *  *  * 

CHECK  FOR  VALID  Df ST .  EQUIP.  NO.  (0  FOR  PROD.  OR 

1-25 ) . 

T  F  <  TV  13 ) - 2  5 )  107,107,503 

107 

I F (  I V ( 3 )  )  503,108,  108 

0  3jc  3^  jjc  JjZ  % 

SET  DESTINATION  EQUIP. 

108 

INF 01  IDUM, 3 )= IV( 3 ) 

IF!  I V ( 2 ) - I V ( 3 )  )  109,506,109 

506 

WRITF (  IWR IT  ,5006 ) 

(  r 
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SUB  ROOT  INE  INPT5  ...  (  f.OMT  •  0  ) 


NOXEQ= 1 


£  j!c  5^  J*e 
(~  #  sji  £  *  Jjc 

r  A  #  A 


CHECK  TO  S^E  IF  3,4  OR  5  INTEGERS  HAVE  BEEN  GIVEN 
.  3  -  STRM .  NO* ,  S .  EQUIP.  AND  D.  EQUIP.  GIVEN 
ONLY  -  GO  TO  ECHO.  4  -  STRM.  UNKNOWNS  ALSO  GIVEN 

5  -  everything  given.  ' 


SET  STREAM  UNKNOWNS  TO  1  IF  NOT  GIVEN. 


109  JNFOC  IDUM,4  )  =  l 

IFCNI-4)  200,110,111 


c*****  set  STREAM  FLAG. 


Ill  INFO{ I DUN, 5 )  =  I  V  (  5  ) 

C***«*  CHECK  FOR  VALID  STREAM  UNKNOWNS  (MUST  BE  +VE ) . 


110  I  F (  IV (  4)  )  5  05,112,  112 
505  WRITE { I WRIT ,5005 ) 

IOX EO -1 

C *****  SET  STREAM  UNKNOWNS 

1  12  T  NFO  R  DU  M' ,  4Tm‘vT47~ 

CAAAAA  ECHO  CHECK  IF  DESIRED. 


200  I FIIDBUG1  14  )-2)  803,802,302 

802  WRITE  UWRIT, 1002  )  (  INFOUDUM,  I)  ,  1  =  1 , 5  ) 

803  CONTINUE 

RETURN 

10QQ  FORMAT t///T41tECH0  CHECK  OF  FLOWSHEET  DATA  '///T25 
$  ’STREAM 

l  SOURCE  DESTINATION  STREAM  STREAM* /T25 

_ 5 , _  *_r^ 

LUMBER  EQUIP.  NO.  EQUIP. . NO.  . UNKNOWNS 

$  FLAG’/  /  ) 

1002  FORMAT (T26,I3,2( 12X,I3»,10X, I3,8X,I3) 

6004  FORMAT! *0  INVALID  NUMBER  OF  INTEGERS . GIVEN.  (MUST  RE 

5  3,4  OR  5* ) 

5000  FORMAT (’ 0  INVALID  FLOWSHEET  DATA  -  INTEGERS  ONLY1) 
5001'  FORMAT  (  *  0  INVALID  STREAM  NUMBER.""  (RANGE  IS  l' TO 

$  50)  »  ) 

5002  FORMAT( «Q  STREAM  1 , 1 3 , 1  GIVEN  MORE  THAN  ONCE*) 

5003  FORMAT! *0  INVALID  EQUIP*  NO.  (RANGE  IS  0  TO  25)’) 

5005  FORMAT ( ’ 0  INVALID  STREAM  UNKNOWNS  -  MUST  BE  ZERO  OR 

$  + VE »  ) 

5006  FORMAT ( ’ 0  SELF- LOOPS  NOT  ALLOWED.  *7 

END 
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C 


c 

r 

V.* 

C 

y? 

v»c 

* 

SUBROUTINE  FF  INP 

❖ 

4L> 

-S' 

* 

c 

4j 

FUNCTIONS  - 

* 

c 

4/ 

if 

c 

wu 

-  FREE  FORMAT  INPUT  ROUTINE 

4. 

-r* 

C 

C 

C 

c 

c 


* 

.»/ 


^NQ  ANALYSES  RESULTING  ALPHAMERIC  VECTOR  A 
COLUMN  AT  A  TIME 

STORES . INTEGERS*  REALS'  A  NO  A'LPHAMERTCS  IN 

APPROPRIATE  INPUT  VECTORS  AS  ENCOUNTERED. 
IGNORES  REMAINDER  OF  CARD  IE  C  ENCOUNTERED 

'(DATA  COMMENT) 

CODES  DATA  CONTROL  MESSAGES  (ENCLOSED  IN 
ASTERISKS)  FOR  INPUT  ANALYSIS  CONTROL 
FLAGS  ERROR  IF  SYNTAX  ERROR  ENCOUNTER'D 


❖ 


* 

* 


C 

C 

c 

c 

c 

c 


* 

* 

J, 

* 

* 


£ 


<*'  J/  Ji-  4/  J/- 


s’?**  *  if.  jjcs*!##:*;  #  #  $ 


SUBROUTINE  FF INP ( l V » RV, T  AL  PH , N I , NR, N A , I Dl» ID2, KFLAG 
$, TV ALU) 

DIMENSION  T  V  {  2  5  )  ,R'M25)  ,  IALPH{50)  ,  IC0DF(I9)  ,  INPUT (30) 
DATA  I  CODE/'  '  ,«0  *,'l  ','2  ','3  • , *4  '  ,  '  5  ','6  *, 

1 ' 7  ’  ,  '  8  »  ,  » 9  •  ,  » E  '  ,  »  +  »  ,  '  -  »  ,  '  ,  *  ,  *  .  •  ,  »  *  '  »  *  '  '  ' , 

l'C  7 /  .  . 

DAT  A  END » END AL /— 90624 . ,-3578  88.  / 

DATA  I8LNK ,  IS  PAC , I  CARO/ *  • ,  '  ',0/ 


C ***** 

p  y*  yij. 

r 

r  ##### 
r  ***** 

C-4-  4,^, 

^  ^  '<*  ***  ^ 

-c.  yu  sif  -ju  >4#. 
p'  -s'  -r- 

(~  if  3|E  i't 

P  y*  4j  jJjj  4j 

r  *  #  *  *  * 

Q  *  *  j|e  * 

C  #if  ifi,t  jJe 
C  ****  sje 

O  4^  4/4^  4/ 

V*  -j'  -i**  -if' 

C*4*  4*  4.  4x 

-I'-'*'  -1'  '{^  -,** 

C 

C4-  4#  v*<  4/  4» 

/*  *4.  4<  4^  4^ 

{  J  -r  -sv  o'  <v* 

C  ❖  if 

Q  5jt  *  #  j!e 
(*,  #  >5e  if  *  >Ji 


KFLAG  -  DATA  INPUT  CONTROL 

=  0  UNSPECIFIED  INPUT  {CONTINUE ) 

=  I  SPECIFIED  INPUT  (CONTINUE) 

=  2  UNSPECIFIED  INPUT  (START  WITH  NEW  CARD) 
=  3  SPECIFIED  INPUT  (START  WITH  NEW  CARD) 
NI,NR,NA  -  RELEVANT  ONLY  FOR  KFLAG  =1  OR  3. 

N I  -  SPECIFIED  NUMBER  OF  INTEGERS  TO  BE  READ. 

NR  -  NUMBER  OF  REA LS  TO  BE  READ. 

NA  -  ’  NUMBER  OF  ALP  HA- NUMERICS  (AD . TO  BE  READ. 

I  ICNT  -  ENCOUNTERED  INTEGER  COUNTER 
IRCNT  -  ENCOUNTERED  REAL  COUNTER 
IACNT  -  ALPHA-NUMERIC  COUNTER 
IRTRN  -  RETURN  FLAG  (FOR  **  CONTROL) 

TVALU  ~  CONTROL  MESSAGE  CODE.  _ 

I  CARD  -  CARD  COUNTER 

IVLD  -  =  1  IF  VALID  FIELD  EXISTS,  0  OTHERWISE. 

Irxp  -  -  j  if  fxp  ENCOUNTERED  IN  PRESENT  FIELD. 
tpfc  -  =  1  Ic  DECIMAL  ENC*  T*D.  IN  PRESENT  F I  ELD. 

I  CALC  -  =  I  WHEN  FIELD  DELIMITED  AND  STORED. 

I  SIGN  -  =  I  IF  SIGN  ENCT'D.  IN  PRESENT  FIELD. 

IMULT  =1  FOR  D0S .  ,  -1  FOR  NEG.  NUMBER 

I VAL  -  ACCUMULATED  INTEGER  VALUE. 

IDCNT  -  DECIMAL  COUNTER  FOR  ACCOM.  REAL  NUMBER. 


— 

'  !  ' 

f  jf  : 

* 

I 

Z  1  ? '  1  ■  ■ 

* 

,  "  t  :  'V-  !  T  ,v  M  T‘”  )  1  ! 

T  *  t  I  )  1  ■  *  ■  ,  (  r  ]  v  •  f  ,  ,  '  )  •  r  !  :  ■  T 

S'  *  ,  »  ’  ,  *  f  *  ,  »  '  ’  t  *  J  •  t  *  ’  .  •  " 

, '  •  *  •  ,  *  s'  . »  .  *  -  *  .  »  S'  s'  <  ■  .  • 

\ ,  \  , 
s  »  *  •  ’ '  ■  f 


r  : ' 


•'  .  )  T!I< 

.  ( 

r 

■ 


.  ’  *  *  r  ?. 

. 


jV  -  "r 


D-93 


SUBROUTINE  FFINP  . ..ICONT’D) 


i  _  RECORD  COLUMN  COUNTER. 
INITIALIZE  COUNTERS  AND  FLAGS 

I  FACT— IBLNK/16448 
I WR I T  = I n  1  _ 

I R  F  AD  = ID2 
I ICNT-1 
I RC N T=  1 
T  AC  NT- 1 

I T0T=NI+NR+NA+3 
_ I  RTRN-Q 

I END  =  0  “ 


ZERO  OUTPUT  VECTORS. 


/ 


no  10  KKK=1 ,25 

I  V ( KKK ) =0 

10 

R V ( KKK )  =  0 • 0 

I AL  PH { KKK ) = I 3LNK 

TVALU-0.  0 

C  A  A  A 
^ 

INITIALIZE  FLAGS 

I  V  L  D  =  0 

I  E  X  P=  0 

I VAL=0 

in ec =6 

ICALC=0 

I  SIGNED 

I  DC- N  T  =  1 

I  MULT-1 

C  A  -*V  A  A  A 
L,  -v 

IF  KFLAG  G.E.  2  READ  NEW  CARD,  OTHERWISE  CONTINUF 
*  WITH  LAST  RECORD  READ. 

7 

1 

IF (KF LAG-2)  7,1,1 

IF(ICARD)  2,2,105 

KFL AG-KFL AG-2 

2 

READ!  I  READ,  1000)  INPUT 

I  CARD- ICAR 0+1 

HERE  TO  105  ANALYZE  RECORD  ONE  COLUMN  AT  A  TIME 

1=1 

3 

CONTINUE 

HERE  TO  5  -  IDENTIFY  COLUMN  CHARACTER  BY 

C  A  A  -A  A  ^1. 

*v*  -,«*  -m* 

SUCCESSIVE  COMPARISON  WITH  CHARACTERS  IN  CODE 

VECTOR. 

(  ' 1  ) . . . 

a  r 


i 


r 


'  ’  .1  ;  -  ; 


(  r 


1 


'■  •  T 

•  J 

T  f '  -  r  ■ 

• » 

r .  “  ■  :  )  t 

- 

f  . 

!  f 

!  .  ' 

•  :'I  -  I 
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SUB ROUT  INF  FFTNP  . ..(CONT'D) 


no  5  J  =  1 t 1 9 

IP(  ICODEC J  ?  -INPUT { I  )•>  5,6,5 
5  CONTINUE ~ 

GO  TO  150 


C*****  BRANCH  TO  APPROPRIATE  SECTION  OF  PROGRAM  , 

C *****  DEPENDING  UPON  *  CHARACTER  FOUND, 

6  GO  TO  (200, 300, 3C0, 300, 300, 300, 300, 300, 300,  KC,300", 
1400, 500, 500,700, 800,600,900 ,199)  ,  J 


c*****  »C  '  CHARACTER  DETECTED  -  COMMENT  IN  DATA  -  IGNORE 
C*****  REMAINDER  OF  PRESENT  CARD. 


199  1=80 

GO  TO  105 


C*****  •  *  (BLANK)  IGNORE  OR  TREAT  AS  DELIMITER, 

DEPENDING  UPON  THE  FIELD  STATUS  (IVLD). 

200  I E {  I  V I  n )  150,105,216 
210  ICALC  =  1 

GO  TO  711  _ _ _ _ _ 

C  *  *  0  1  TO  »9  *  (NUMERIC  CHARACTER)  -  MODIFY 

EXISTING  ACCUMULATED  NUMBER  IN  FIELD. 

300  I VL  D= 1 

_ I  CALC -0 _ 

IF( 10EC)  150,301 ,302 

301  IVAL=IVAL*10+ ( J-2) 

GO  TO  105 

302  RVAL-RVAL+ ( J-2.0 F/10i0** I  DC NT 
I  DC  NT= I DCNT  + 1 

GO  TO  105 


»E  '  (EXPONENT  CHARACTER)  -  STORE  ACCUMULATED 
€»»»»»  NUMBER  AND  PREPARE  FOR  EVALUATION  OF  EXPONENT . 


400 

I  F (  IVLD ) 

150, 150,401 

401 

I  F (  IEXP) 

150,402,150 

402 

I EXP=  1 

I F ( I  D  EC ) 

150,404,403 

403 

RV( IRCNT ) 

=RVAL*  1  MIJL  T 

GO  TO  405 

4  04 

R V ( IRCNT ) 

=  1  VAL* I  MULT 

405 

I  MULT =  1 

I VL  0=0 
I  SI ON  =0 
I DEC  =  0 
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SUBROUTINE  EFTNP  .  ..(CONT’D) 

I  VAL=0 

GO  TO  105 

r*  »v  ^  *ju 

1  Ji*'  ^ 

*  * +  *  OR  ’ -  *  (SIGN 

CHARACTER)  -  SET  FLAG. 

500 

501 

502 

IF(ISIGN)  150, 5CL, 150 
IF(IVLD)  150,502,150 

I  SI GN  =  1 

503 

I  F ( J -  1 3 )  150,105,503 

I MULTW-1 

GO  TO  105 

i*  <  (CONTROL  CHARACTER)  -  ANALYZE  MESSAGE 
C*****  BETWEEN  CONTROL  CHARACTERS  (IF  ANY). 


600  I =1+1 

_ I  F (  ICODE ( 17  )  - INPUT ([)  )  601,602,60  1 _ 

C *****  IF  «**•  ENCOUNTERED,  FORCE  RETURN  TO  CALLING 
C»**xc*  PROGRAM.  CHECK  »  IRTRN*  TO  SEE  IF  VALID  RETURN. 


602  IF (IRTRN)  150,105,603 

603  IF(KFLAG)  604,604,151 

604  IEND=l 

IF(IVLO)  150,606,210 
606  N R  = I R C NT  - i 
Ni*IICNT-fl 
N  A  = I  AC NT-  1 
RETURN 


C ***£*  CODE  CONTROL  MESSAGE  FOR  CALLING  ROUTINE  AND  THEN 

PRINT. 

C*****  RETURN . IF  “'CONTROl . MESSAGE  ALREADY  EXISTS  . 

601  IFI ABS(TVALU)-!.  )  621,621,620 
620  1=1-2 

GO  TO  603 
621  DO  605  K= I , BO 

1  E  (  I C  OD  E  (1  7  )  -  INPUT  (KH  605,6  0  7 , 6  05'"' 

605  TVA  LU  =  TVALU+ ( INPUT ( K ) - 1 BLNK ) /I  FACT 
GO  TO  150 

607  KK=  K—  1  '  " "  .  “ 

I E ( AB  S ( TVALU-END  )  - A  B  S ( T  V  A  L  U /  1000.  )  )  6  09,609,6  08 

608  I  F  (  A3  S  (  rVALU-FNCAD-ABS  (TVALU/1000.  )  )  609,609,610 

609  I =K 

I  F ( KP L  AG )  604,604,  134 

610  WRITE (I  WRIT, 1006)  ( I NPUT ( J ) , J= I , KK ) 

I  -K 

GO  TO  130 
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SUBROUTINE  FFINP  . ..(CONT'D) 


1  (DELIMITER)  CALCULATE  AND  STORE  PREVIOUS 
C*****  FIEJuD  VALUE  IF  MOT  DONE  PREVIOUSLY,  REINITIALIZE 
c*****  FLAG Si 

700  I  F (  ICALC)  150,711,712 _ 

712  I  CALC -0 

GO  TO  105 

Til  IF(IFXP)  150, 703*702 

702  RVC IPXNT) =RV( IRCNT) *10. 0**7 IVALMMULT) 

I RCNT- IRCNT  + 1 

_ GO  TO  706 _ 

703  I F {  IDFCl  150,705,704 

704  R V { IRCNT) =RVAL*T  MULT 
I  PC NT  = I RCNT+ 1 

GO  TO  706 


705  IV( IICNT)=I VAL*IMULT 
I  I C N T  = I ICNT+1 


706 

I DEC=0 

I  EX P= 0 

I  SI GN-0 

I  V  A  L = 0 

T  VLD=0 

I  MULT  = 1 

T  DC  NT  =  1 

IF(IEND)  150,130,606 

C 

v**  v'y  -Jj 

'r'  '(-> 

1  .  ’  (DECIMAL)  -  FLOAT  ACCUMULATED  INTEGFR. 

8  00 

I F {  I E X ° )  150,801 ,150 

301 

302 

IF(IDEC)  150,802,150 

I VLD=  1 

I OEC=  1 

I  CALC =0 

RV AL= I VAL 

GO  TO  105 

c 

c 

^ 

-»<•»  vU  nC*  \1* 

-•f*  «>,v 

* '  ’  (QUOTE)  STORE  DATA  BETWEEN  QUOTES  AS 
ALPHA-NUMER TC  DATA. 

POO 

1  =  1  +  1 

DO  905  K= I »  80 

\ 

004 

P05 

I F ( ICODE ( 18 )- INPUT! K) )  904,907,904 

I AL PH (  IACNT  )= INPUT! K) 

I  AC NT  =  I ACNT  +  1 

007 

GO  TO  150 

I  =K 

GO  TO  130 

105 

I  =  I  +  l 

c 

Jj  j1/ 

CHECK  IF  END  OF  RECORD  REACHED. 

’  , ' 

V  T  ■  •>  •  !J  '  OJ  !  1 

.  ?  t/5  ' 

'  r  ,  ,  *  <  ~  ■  :  n 
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SUBROUT  f  NE  FFINP  . ..(CONT»D) 


I  F (  1-80)  3, 3, 130 


C 


Jj  s*x  >♦» 

"Jv  ■'>' 


CHECK  IF  SPECIF  [CO  DATA  READ  (IF  APPLICABLE)  , 


130  I RTRN= 1  _ 

I F (  I VLD )  150,131 ,210 

131  IF(KFLAG)  150,133,132 

132  IFC ITOT-I ICNT-1 RCNT— I ACNT  )  152  ,  134,  13  3 

133  IF (1-30)  105,105,2 

134  IF< NI-I ICNT+1 )  152,135,152 

_ 1H  I  F{  NR-IRCNT  +  1 )  152,136,152 

1  36  I  F  (  NA - 1  AC N T  +  1 ) '  15 2 , 1 3  7 , 1  5  2  ~ 

137  RETURN 

ERROR  MESSAGES. 

150  WRITE ( IWRIT ,1001 )  ICARO 
GO  TO  15  3 

151  WRITE ( IWRIT ,1002 )  ICARO 
GO  TO  153 

152  CRT TE ( IWR I T , 1003) . ICARO 

153  KFL AG--1 
GO  TO  137 

1000  FORMAT ( 80A1 ) 

1001  FORMAT ( 1H  ,  ’SYNTAX  ERROR  IN  CARD  *  ,  13) 

1002  FORMAT C 1H  ,  •  END  OF  DATA  ENCOUNTERED  BEFORE  SPECIFIED 
$  DATA  READ, 

l'/»  (**)  ,  CARO  * ,  I  3 ) 

1003  FORMAT ( 1H  ,  *  DAT  A  OQES  NOT  CONFORM  TO  THAT  RE  QUEST  FD  IN 
$  NUMBER  AND/ 

1  OR  TYPE,  -  CARD  NO.  ’  ,  13) 

1 006  C  OP  MAT (IN 0 , T  3  5 , 5  0 A  1  ) 
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C 

c 

c 

c 

c 

c 


c 

c 

c 

z 

c 

c 


c 

c 

c 


c 

c 
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SUBROUT  INF  SPECL 


FUNCTIONS  - 


final  input  data  checking  routine 


y? 

-.tr 

V 


*  — 


CALLED  WHEN  DATA  INPUT  IS  FINISHED  TO  COMPLETE 

DATA  CHECKING  AND  DATA  STORAGE 

IDENTIFIES  ATOM  TY^FS  I  S  0  C  H  N  )  IN  THAT 

0RDc:R  IF  PRESENT 

REARRANGES  STREAM  DATA  TO  CORRESPOND  WITH 
REARRANGED  M  AND  T  DATA  (I.E.  LIQUID  SPECIES 


r,< 


STORED  LAST) 

CHECKS  VALIDITY  OF  INFORMATION  STREAMS 
( I NF OR MAT  I  ON  DESTINATIONS) 


y 

Y 

& 

r 

❖ 

❖ 


y 


* 

* 


*  Y  Y  Y  Y  Y  Y  Y  Y  YY  Y  Y  Y  YY  Y  YY  Y  Y  Y  YY  Y  Y  Y  Y  *  YY  ^  *  if  Y  Y  Y  Y  Y  Y  Y  YYY  Y  £  *  if  YY  if  if. 


SUBROUTINE  SPECL 

DIMENSION  I DVEC I  5)  , SSTOR (  20)  , I VALOI 5, 5 ) 

COMMON  /GEN1/ 1 HR IT  * IDBUGI 15),  I  TEST, CR I T , NGMS , NTOT 
C GMMON  /DAT  Al/FGRMUl  2  0,5)  ,NATYP~,“  IOATM ( 5! 

COMMON  /EXEC1/JTYPEI25)  ,  INDEX (25) , I SEQI25)  , I  A  SUM  I  25) 
$,  ISUPR, I  OPT 

COMMON  /ST0R1/EQUIP I  300) , ILOC,NMBEQ, STREMI  50 ,22) 

$, NS  INI  5 ) , NS OUT  I  5 ) 

COMMON  /FL0W1/ INFO! 75,5) , NNEQP,  NQSTM 

COMMON  / I NPUTI/I VC 25 ) ,RVC25 ) , lALPHI 50),NI ,  N  R  »  N  A ,NOX EQ 
COMMON  / I N P UT 2 / I SYM B ( 20 ) ,  I  ATOM! 5) ,  ATMWT(  5) , VAT0MC5) 

$ , KEQI V ( 20 ) 

“DATA  IDVEC/ ’  S  *  ,  *  0  1  ,  •  C  1  ,  *  H  *  ,  *  N  *  / 

DATA  I VALD/ 1,6 ,0,0,0, 19, 1,0,0,0,21,0,0,0,0,23,0,0,0,0 

$,0, 0,0, 0,0/ 


C*****  IDENTIFY  ATOM  TYPES  IN  ORDER  S  0  C  H  N,  IF  PRESENT 

CYYYYY  AND  STORE  LOCATIONS  IN  IOATM. 


DO  1  1=1,5 

DO  2  J  =  1 , 5 

I FC I ATOM ( T ) - I OV  PC { J ) )  2, 3, ? 

3  I DATM 1 J ) = I 
GO  TO  1 

2  CONTINUE 
1  CONTINUE 

C*****  REARRANGE  COMPONENTS  IN  STREAM  DATA  IF  LIQUID 
C *****  SPECIES  WERE  NOT  READ  IN  LAST. 


DO  5  1=1, NGMS 
IFIKFQIV ( I )-I )  6,5,6 
5  CONTINUE 
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SUBROUTINE  SPFCL  .  .  .  ( CQNT 1 D ) 


GO  TO  900 
4  DO  10  1=1,50 

C*****  CHECK  THAT  STREAM  EXISTS  AND  IS  NOT  INFORMATION 

C*****  STREAM. 


T  F (  INFO {  1,1))  10,10,11 
11  I  F(  INFOC I ,5 ) )  10,12,12 
1?  DO  13  J=1,NT0I 
13  S  ST  OR (  J ) ~STR  EM (  I  ,  J  ) 


C*****  RESTORE  STREAM  COMPONENT S  I N  CORRECT  ORDER . 

DO  14  J  =  1  ,  N  T  fj  j 
I  J=KEQIV ( J ) 

14  STREMI I , J )  =  SS TOR { I J ) 

10  CONTINUE 

900  CONTINUE 

€*****  _ CHECK  VALID  I  Tv  OF . INFO . STREAM  INFO  DESTINATION. 

I F { NO STM )  902,902,901 

9Q1  DO  100  1=1,50 _ _ _ _ 

I F {  INFO! 1  ,5))  5  0,100,  100 

50  NSTRM- INFO  (1,1) 

NE  TQ= I NFO { I  ,3) 

NTYPE= JTYPE ( NETO ) 

DO  60  J=1 , 5 

_ !FtNTVPE-IVALD( J,1 )  )  60,55,60 _ 

55  NNN=  J 

GO  TO  61 

60  CONTINUE 

WR I TE ( IWR T  T ,30001  NSTRM, NE TO , NTYPE 
N0XEQ=1 

_ GO  TO  10  0 _ 

61  DO  70  K= 1,5,2 

NR  AR= AB  S (ST REM {NSTRM, K)  ) +0 . 5 
DO  65  J=2 , 5 

'TFTnPAR  -Tv  A  L  0  Tnn  N  ,  J  )  )  6  5,69 ,  6  5 
65  CONTINUE 

_ HR  I TF { IWR IT  ,3001 ?  NSTRM,  NPAR,  NTYPE _ 

N0XEQ=1 

GO  TO  100 

69  IF (NPAR)  70,70,71 
71  I L  0  C= I N~D  E  X ( N ETO) 

CALL  COMPR (NSTRM, K+l , NPAR) 

70  CONTINUE _ 

100  CONTINUE 

902  RETURN 

3000  FORMAT ( *  0  INFO.  STREAM  ■ 13 »  TO  EQUIP.  NO. 1 13  «  IS  IN 
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SUBROUTINE  SPFCL  .  .  .  < CONT 1 0 ) 


$  ERROR*/ 

1*  EQUIP.  TYPE  MB'  WILL  NOT  SUPPORT  INFO.  INPUT 
3001  F  0  R  M  A  T  ( *  0  INFO.  STREAM  *13'  IS  IN  ERROR,  PAR. 
T/ 

_ 1*  IS  NOT  A  VALID  INFO  INPUT  TO  EQUIP.  TYPE  *13) 

END 
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c 

c 

* 

* 

"V' 

FUNCTIONS  - 

-  CALCULATION  SEQUENCE  OPTIMIZATION  EXECUTIVE 

❖ 

* 

X 

-I’* 

c 

* 

INITIALIZES  ’  INFO*  MATRIX  FOR  OPTIMIZATION 

❖ 

c 

s?e 

(MASKS  PLANT  FEEDS  AND  PRODUCTS  AND  SERVICE 

X 

c 

X 

STREAMS) 

X 

r 

c 

* 

-  REDUCES  THE  FLOWSHEET  —  TERMINATES  THE 

* 

c 

* 

OPTIMIZATION  IF  THE  FLOWSHEET  HAS  BEEN 

❖ 

c 

COMPLETELY  REDUCED 

% 

* 


OPTIMIZES  THE  ORDER  OF  CALCULATIONS 

-  RESTORES  THE  'INFO*  MATRIX  WHEN  OPTIMIZATION 
IS  COMPLETE 


❖ 


❖ 


C 


SUBROUTINE  OPTIM 

THIS  ROUTINE  CONTROLS  THE  SEARCHING  F OP.  THE  OPTIMAL 
C*****  CALCULATION  SEQUENCE*  "THE  CRITERION  OF  OPTIMALITY 
C***«*  IS  THAT  THE  NUMBER  OF  RECYCLE  PARAMETERS  GUESSED 
C****#  BE  A  M T  N I  MUM . 

r  O'-A’-Jf a. 

I  ->(»  ->j*  -"jV 

COMMON  /GENT/iWR  IT,  IDBUGI  L  5  )  ,  ITF  ST,  CR  I  T  ,  NGMS  ,  NTGT 
COM  MO  N  /  EX  E  C I  71  TYPE  12  5 )  »  INDEX!  25)  #  ISEQ(25)  ,  T  A  SUM  <  25 
$,  I SUPR, I  OPT 

COMMON  /ELOWl/INFO! 75, 5) , NNEQP , NOSTM 

COMMON  /0°T1/IDELT(26,26),IREC!25),N0EGP,NP1,ISIG M 

C#****  INITIALIZE  INFO  MATRIX  FOR  OPTIMIZATION. 

C*****  (NEGATE  STREAM  NUMBERS  OF  ALL  PLANT  FEEDS  C I N F 0 { - 
, 2 ) =0 )  ,  PLANT  PRODUCTS  (  INFO ( 3 )  =  0 )  AND  SERVICE 

€****»  STREAMS  ( INFO!-, 5)  +  VE),  SO  THEY  WILL  BE  IGNORED 

C*****  I N  T HE  OPT  I M  I  ZA T  I  ON . ) 

DO  3  1=1,50 
I F {  INFO ( 1,5) ^  1,1, 2 

1  IF( INFO! I,2)*INF0! 1,3) )  3,2,3 

2  INFO!  I,  I  )=- INTO!  1,1)  _ _ 

3  CONTINUE 

C*****  CALL  ’REDUC*  TO  ATTEMPT  TO  SIMPLIFY  FLOWSHEET  FOR 
C*****  OPTIMIZATION  PURPOSES. 

CALL  REDUC 


C*****  IF  FLOWSHEET  COMPLETELY  REDUCED,  TERMINATE. 


’  T  :  '  •  •  *>  r  -  ■  i  •  ' 
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SUBROUTINE  OP  TIM  . . . (CONT«  D) 

IF(NOEQP-l)  10,10,20 
10  CALL  SEQNC 
GO  TO  900 

CALL  * DELTA*  TQ  INTTIAtIZE  lIOELTt  MATRIX  FROM 
C*****  SIMPLIFIED  FLOWSHEET 

20  CALL  DELTA 


C*****  INITIALIZE  NUMB  -  STEP  COUNTER 


NUMB=0 

C*****  CALL  *  DC  HC  K  *  TO  FIND  ANY  POSSIBLE  SEQUENCE 

C*****  IMPROVEMENT 

100  CALL  DCHCKI  I  I  ,  J  J  ,  I  FLAG) 


C*****  CALL  'EINSH'  TO  DETERMINE  NEXT  MOVE 
CALL  FINSH  (I  FLAG, JFL AG) 

r.****» _ JFLAG-0  SEQUENCE  RANDOMIZED,  SKIP  TO  DC  HC  K 

£«****  JFL  AG= 1  CONTINUE  WITH  NEXT  STEP 

C*****  J  FL  AG-2  OPTIMIZATION  COMPLETE,  TERMINATE 

IF ( JF  LAG- !  )  100,300,999 

C***»*  CALL  * E X C H N 1 TO  AFFECT  BENEFICIAL  MOVE  FOUND  BY 

C ajc  ^00  HC K.  ^ 

300  CALL  EXCHN  ( 1 1 , J J, I FLAG ? 

NUM8=NUMB+1 
GO  TO  100 
999  CONTINUE 


C*****  RETURN  INFO  MATRIX  TO  ORIGINAL  FORM. 


DO  500  1=1,50 
I E (  INFO <  1,  1))  499,500,500 

499  I NF  0 (  1,1  )  =  - I N  F  0 (1,1) _ 

500  CONTINUE 

WRITE  (  I  WRIT,  2000  )  USEQU  )  ,  I  =  1,NNEQP) 

_  KASUM=0 _ _ _ 

DO  501  1=1,25 
I  F {  I A  SUM ( I )  )  502 ,502,501 

501  K  A  S  U  M  =  K  A  S  U  M  +  1 _ 

502  IF(KASUM)  505,505,504 

504  WRITE (  IWRTT ,2001 )  (  I  A SUM!  I)  ,  I-l,KASUM) 

GO  TO  506 
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SUBROUTINE  OPT  I M 


•  • 


(CQNT'O) 


505  WRITE { I WRIT, 2003) 

506  CONTINUE 

WRITE (I  WRIT, 9000) 

RETURN 

2000  FORMAT! ' 0  *  T 3 5  *  T HE  OPTIMIZED 


CALCULATION  SEQUENCE  IS 


STREAMS  MUST  BE  ASSUMED 


$/ 

If /T25 , 201 3) ) 

2001  FORMAT { * 0 1 T  3 5 *  T  H E  FOLLOWING 
U /T 40 ,1013 )  ) 

2003  FORMAT ( ' 0 1 T42  *  NO  STREAMS  NEED  BE  ASSUMED*) 

9000  E  QRMAT  (  *  0  *  ,  T2  5  f  *  £  *  *  ^  *  *  ft  »»#£»#»#»£»»»»»»»  »»  *  * 

$  ft  ft  ft  ft  ft  ft  ftft  ft  ft  ft  ft 
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;,t  '  '  T 
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❖  *  *  ❖  *  *  *  *  *  *  £  *  *  *  *  *  #  *  *  *  *  *  #  sjt  3jt  *  Sj:  *  *  *  *  *  *  #  *  s{c  *  *  #  *  sjc  *  *  t- ❖  *  *  *  *  *  £  *  s|:  #  *  *  % 


C. 

r 

\y 
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SUBROUTINE  RE DUC 


* 

* 


c 

c 

r 


*  FUNCTIONS  - 


*  ~  FLOWSHEET  SIMPLIFICATION  ROUTINE 


c  *  - 

c  * 
c  *  - 

ATTEMPTS  TO  REDUCE  THE  COMPLEXITY  OF  THF  * 
FLOWSHEET  {AND  OPTIMIZATION)  IN  TWO  PHASES  * 
STORES  ELIMINATED  EQUIPMENT  IN  FINAL  SEQUENCE  * 

c  * 
c  * 
c  * 

VECTOR  (PHASE  1)  OR  SAVES  LINKS  (PHASE  2)  SO  * 
FINAL  SEQUENCE  CAN  BE  OBTAINED  FROM  OPTIMIZED  * 
REDUCED  SEQUENCE  WHEN  OPTIMIZATION  IS  COMPLETE  * 

c  * 

p  XX  X  X 

*4'  -V*  X' 

X 

4' 

V  ^  s^c  sj:  s):  s’;  £  £  s^  #  sjt  s’:  s’:  *  s’;  s£  s}:  s’;  s|:  s^  s*:  s’;  jJc-jJj  j£  j-j.  #  #  ^ 

SUBROUTINE  REDUC 

P  Jy  X  X  X  X 

S  4'  V  4'  ’V' 

THIS  SUBROUTINE  ATTEMPTS  TO  SIMPLIFY  THE  FLOWSHEET 

O  X  X  X  X  Jy 

S  4'  4'  4'  4' 

Q  s£  *  sjc  #  s’: 

Q  sj: 

GIVEN,  IN  ORDER  TO  EASE  THE  SEARCH  FOR  THE  OPTIMUM 

CALCULATION  SEQUENCE.  THIS  IS  DONF  IN  TWO  PHASES. 

(1)  ELIMINATION  OF  ALL  EQUIP.  WITH  NO 

p'  X  X  X  X  X 

^  'I'  v  ^  ^ 

C  ***  ♦  # 

ANT  I  CEDENTS  (PLACE  AT  FRONT  OF  MSEC*, 

KTOP  INCREMENTED)  AND  ELIMINATION  OF  ALL 

EQUIP.  WITH  NO  DECENDANTS  (PLACED  AT  RACK 

p  X  X  X  X  X 

Ly  "<'4'  '-I'  4'  4' 

r  s?:#  ^ 

p  X  -»'y  X  X  X 

L  ^  X'  4' 

OF  MSEC*,  KBOT  DECEMENTED).  KE  LAG  =  G  FOR 

PHASE  ONE 

(2)  ELIMINATION  OF  EQUIP.  WITH  SINGLE 

L  !§£  -•  s’:  s,':  s’: 

P  sfe  #  sjc  sjc 

p  X  X  X  X  X 

INPUT  S  SINGLE  OUTPUT.  ELIMINATION  IS 
ACCOMPANIED  BY  INTRODUCTION  OF 

PSEUDO-STREAM,  NEGATION  OF  STREAMS 

f'  -j*  »i,  ^  J-  jO 

r  ^  <a> 

S,  V*  O'  O'  O'  O' 

Vv  ;*(  5*;  n*j 

O  -**  »'•■  sO  >•»  *>*• 

I  O'  O'  O*  O'  O' 

Xvly  X 

o'  O'  O'  O'  O' 

CX  X  X  X  X 
O'  o'  O'  '■f'  o' 


p  x  x  -*i»  x  x 

S  O'  'O  O'  O'  O' 

CX  X  X  X  X 
O'  o'  o'  o'  o' 

(~  iji  sj:  ajc  s£ 


r  **>;«*  * 


*  y,-N  *,•»  . 


c 

£  s’;#  #  *  >Jc 

CX  X  X  X  X 
O'  O'  O'  O'  O' 

r  *  s’; 

p  x  x  x  x  x 

;  o'  o'  o'  ">'  o' 

sjc  j|c  s’:  * 


INVOLVING  THE  ELIMINATED  FQUI°.  AND 
STORAGE  OF  SEQUENTIAL  LINKS  IN  MATRIX 
*  I L INK  1 

ONE  OF  THE  FOLLOWING  SETS  OF  CONDI  TUNS 
MUST  BE  MET  BESIDES  THE  ONE  ABOVE  BEFORE 
EQUIP.  ELIMINATION  RESULTS.  PHASE  2-A  IS 


FINISHED  BEFORE  PHASE  2-B  BEGINS 

(2  )( A) -DENOTE  EQUIP.  SUPPLING  THE  SINGLE 

INPUT  TO  THE  ELIMINATED  EQUIP.  AS  SOURCE 

THEN  SOURCE  MUST  ALSO  HAVE  A  SINGLE  INPUT 

,  AND  THE  NUMBER  OF  STREAM  UNKNOWNS 

(  I NE0( ~»  4)  )  OF  THE  ELIMINATED  EQUIP.  MUST 


RE  EQUAL  OR  GREATER  THAN  INFO (-,4)  FOR 
THE  SOURCE  INPUT.  KFL AG= 1  FOR  PHASE  2-A 
C 2 ) ( Bl -DENOTE  THE  EQUIP.  DESTINATION  OF 
THE  SINGLE  OUTPUT  OF  THE  ELIMINATED 
EQUIP.  AS  BEST.  THEN  DEST  MUST  HAVE  A 
SINGLE  INPUT  AND  THE  NUMBER  OF  STREAM 


C  : 

p  X  X  X  X  X 

r  *  sfe  #  3!s 


UNKOWNS  (INFO (-,4))  OF  THE  ELIMINATED 
EQUIP  INPUT  MUST  BE  EQUAL  TO  OR.  LESS  THAN 
THE  NUMBER  FOR  THE  OUTPUT  {INPUT  TO 


I  1  '*  !  " 


.  ( 


'  ' 

1 

3  U  t  -  ) 

(  -  .  -  ' 


(  .  -  '  •:  . 

J 


•V 
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SUBROUTINE  REPUC  ...(CONT'D) 


OEST).  K  FL AG=2  FOR  PHASE  2-B 

>'i  i',: 

c  *****  'i REc*  sTmpliFFed  Flowsheet  sequence  vector 

C*****  ' I SFQ ’  TOTAL  FLOWSHEET  SEQUENCE  VFCTOR 


DIMENSION  I NOUT { 3,25) , IFLIM( 25) 

C  OMMON  /GEN1/IWR  IT,  IDBUGI 15),  I TEST, CR I T , NGMS , NTOT 
COMMON  / E  X  F  C l / J  T  y  p  f ( 2  5 )  , INDEX! 25 1 , ISEQI25) , I A SUM ( 25 ) 
$9  I SUPR,  I  6 f) T 

COMMON  /FLOWI/ INFO (75,5) , NNEQP, NOSTM 

_ C  OMMON  /OPT  1 /I  PELT ( 26 ,26 )  , IPCC(25) ,NOEQP,NPl , I S I GM _ 

COMMON  / OPT 2/ 1 L INK ( 25,2) , LOCAL! 2 5) , KSUDOfKTOP, K80T 
DATA  I  A, IB/ *  A' , * 8* / 

c*****  initialize  Parameters  and  flags. 

KSUD0=50 

NOEQP=NNEQP 

NP1=N0EQ  D-*- 1 
I  SI GM=999 


O****  INITIALIZE  S  EQiJENCE  VECTOR  FROM  GIVEN  SEQUENCE. 


DO  1234  1=1, NNEQP 
1234  I REC (  I  )=  I  SEQ{ I ) 

c*****  in  if  i  aJl'i  ze  PHASE  INDICATOR  I  KFLAG ) ,  SEP  .  link' 

C*****  COUNTER  (KLINK),  AND  ELIMINATED  EQUIP.  COUNTER 
UFLTM). 


KFL  AG  =  0 
K  L  I  \  K  =  1. 
K  EL  I M=0 


WRITE  OUT  THE  INITIAL  SEQUENCE 


WRITE ( I WRIT, 2 049) 

WRITE ( IWR IT ,900  0 ) 

WRI  TE  (  I  WRIT  t2050 1  ( IREC!  I  )  ,  I  =  1. ,  NNEQP  ) 
WRITE ( IWRIT  ,2051 ) 


C*****  INITIALIZE  *  I  SEQ »  LOCATION  COUNTERS 


K  T  0  °  =  1 
K ROT- NNE Q P 


C****»  HERE  TO  14 _ INITIALIZE  1  I S EQ 1  £  SEQ.  LINK  MATRIX 

“  . ‘  «  I L I NK  ’  . 

DO  14  1=1,25 
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SUBROUT  INF  REDUC  .  ..(CONT’D) 


I SEQ (  I )  =  0 
I  LI NK (I , 1 ) =0 
14  I  LINK! 1 , 2)  =  0 
?01  CONTINUE 

C  *****  HERE  TO  I  BUILD  ’LOCAL’  VECTOR  AND  IN  I  T  I  A  L  I  Z  E 

C*****  *  IN OUT *  MATRIX. 

C  **  *  *  *  LOG  AL  (U  C  OUT  A  INS  »  IREC  *  L  OCAT  I  ON 

C*****  ( 1-NOEQP)  OF  EQUIP.  NO  'I* 


PG  I  K= I ,  NOEQP 

LDUM= IASS  f I  RFC ( K ) 7 

IFCLOUMJ  70,1,70 
70  LOO AL (LOUU) =K 
I NOUT ( l,LDUH)-0 
INOUT (2, LQUM)=0 
1  CONTINUE 


r 

rA  «A» 

w  *t'  'i'  'i"  *f- 

^  -s'-  'v  Tr- 

C 


HERE  TO  2  BUILD  'INGUT*  MATRIX  FROM  FLOWSHEET  DATA 
*  INFO*  ,  SUCH  THAT- 

INOUT (1,1 \~0  IF  NO  INPUTS  TO  EQUIP  I 
=+VE  IF  ONF  INPUT  TQ  I 

{ =SOURCE  EQUIP.) 


"r**  • 


C  jJtSjj  * 


I N  OUT ( 2, 1 )  =  0 


=  -VE  IF  MORE  THAN  ONE  INPUT 
TO  EQUIP  T 

IF  NO  OUTPUT  FROM  EQUIP  I 


*  +VE  IF  ONE  OUTPUT  FROM  I 
(  =  DESTINATION) 

=  -VE  IF  MORE  THAN  ONF  OUTPUT 


r* 

L,  -r-  *»*  -,ix  'f' 

^  -.O  Jj*  «A» 

'O  ’*•  V  -V* 

r  * 
r  $  Jjt  $  $ 

r  jje  * 

Q  *  # 


FROM  EQUIP  I 

INOUT(3,I)=  NUMBER  OF  STREAM  ASSUMPTIONS 
ASSOCIATED  WITH  LAST  INPUT  TO 


NGTF- 


I  ENCOUNTERED 

SYSTEM  FEEDS  AND  PRODUCTS  ARE  IGNORED 
ABOVE.  FEFDS  ARE  ASSUMED  KNOWN 


DO  2  K= 1 , KSUDO 
I  F  {  INFOC  K,  1  n  2»2,3 
s  I'INP- INF0(K,3) 

I OUT= INFO ( K ,2 ) 

I F (  INPUT  <1,11  NP )  )4,5,5 _ 

5  I NOUT { 1,  I  I NP )  =  I  OUT- 100*1 NOUT (  1,1  I NP I 
I NOUT 13, IIND)=INF0(K,4) 

4  I F( INPUT  1 2  » I OUT  ? )2,6,6 

6  INOUT (2, IOUT )  =  I I N  P - 1 0  Q *  I N OUT C 2, I  0 U  T ) 
2  CONTINUE 


Q  it  if. 
s);  jj;  >{; 


JUMP  TO  7  (PHASE  1,KFLAG=0)  OR  8  (PHASE  2 , KFL AG= I 
OR  2) 


- 


. . .  _ 
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SUiRH'JTfMr  Rfinuc  .  .  .  (  CGNT  *  D  ) 


IF(KFLAG)  7,7,8 

7  CONTINUE 


HERE  TO  9  ELIMINATE  EQUIP.  WITH  NO  DEC  END  ANTS 
C»**»»  AND/OR  NO  ANT  I CEDENT S . 

C  *****  NO  ANTIC  EDENT  S  TO  I  INDICATED  BY  INOUT { 1 ,  I  )=0 
€*****  NO  DECENDENTS  FROM  I  INDICATED  BY  INOUT(2,I)=0 

DO  1  =  1,  NOlQP” 

IF  IRECU)  ZERO,  THAT  LOCATION  ALREADY  ELIMINATED 

c*****  _  ignore  "  " 


IFUREC(im0,9,10 
10  !EQP=  IABS(  IRECU  )  ) 

IF(  INOUTU,  IEQP)  )  11,12,11 


STORE  IN  ’ I S  E Q  *  AND  EL  I M I  NATE  EQU I P  IN  ' I R EC ' 


12 

I SEQ( KTOP)= IEQP 

K  TOP  =  K  TOP+ 1 

I REC (  I  )  =  0 

I F {  ID BUG (  13) —2  )  803,802,802 

802 

803 

WRITE! I WRIT, 2000)  IEQP 

CONT  I NIJE 

C*****  ELIMINATE  EQUIP.  STREAMS  (AT 

C*****  SWEEP 

100)  AND  BEGIN  NEW 

11 

GO  TO  ICO 

I F I INOUT ( 2 ,  IEQP)  )  9,13,9 

c  ***$ 

*  STORE  IN  MSEQ*  AND  ELIMINATE 

EQUIP  IN  *  I REC 1 

13 

I SF  Q ( KBOT ) -  I EQP 

KBOT=KBOT - 1 

I  REC (  I  )  =  0 

I F (  IDBUG (  13 )-2 )  805,304,  804 

8  04 
805 

WRITE ( I WRIT, 2001 )  IEQP 

CONTINUE 

C*****  ELIMINATE  EQUIP.  STREAMS  (AT  100)  AND  BEGIN  NEW 

**  SWEEP 


GO  TO  LOO 
9  CONTINUE 

 fT  DO  LOOP  COMPLEfErTTPHASE  ONE  FINISHED-  SET 

C*****  KFL AG=  1  AND  BEGIN  °HASF  2 


•  ?  1  ! 


,  '  t '  (  >) 
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SUBROUTINE  REDUC  . ..(CONT'D) 


KFL AG- I 


8  CONTINUE 


C  *  s’:  sj;  Ox  j*c 

C 

HERE  TO  15  ELIMINATE  EQUIP,  WITH  SINGLE  INPUT 

AND  SINGLE  OUTPUT. 

r  :$$$$  ajc 

V*  V  A'  "f'  •*»' 

Q  *  *  ^ 

K EQP  IS  THE  EQUIP  WHOSE  INPUT  UNKNOWNS 
COMPARED  WITH  THOSE  OF  THE  EL  I M I  NAT  FD 

( I  £QD  ) 

ARE  TO  BE 

EQUIP. * S 

C  '*"  3$C  3$C 

Q  stems’:* 

c 

JEQP  IS  THE  EQUIP  BEFORE  (PHASE  2-A)  OR  AFTER 
(PHASE  2-B)  THE  ELIMINATED  EQUIP  (JEQP  WILL  BE 

NEGATED  IN  *  I R  FC  *  AND  STORED  IN  MLINK*  IF  IFQP  IS 

i 

'r-  "*'■  ^  ■*t'*  -v- 

FL  I MI NATED) 

no 

15  I=l,NOFQP 

P  v*/ 

£  a{c  5*C 

IF  IREC(I)  ZERO,  THAT  LOCATION  ALREADY 
-  IGNORE 

ELIMINATED 

I F ( I  RFC ( I )  )  16,15,16 
16  I EQP-  I ABS 1 1 REC { I ) ) 


v  ^ 

O  »l.  -A/  Ax 

>  ^  -Y*  •*)»  'i' 

CHECK  FOR  ONE  INPUT  £  ONE  OUTPUT  CINOUTU,!) 

, INOUT (2,1 )=  +  VE ) 

26 

IF (  INOUT (l,  IEQP)  )  15,15,26 

IF  <  IN0UTI2, IEQP)  )  15,15,27 

L  ^  ^  o" 

CHECK  FOR  GENERATION  OF  SELF 

LOOP  . 

O  ~7 

2-  f 

I F ( INOUT ( 1, IEQP) -INOUT ( 2, IEQP) ) 

17, 15,17 

C  *  #  #  # 

JUMP  TO  18  (PHASE  2- A , KFL  AG= 1 

)  (JR  19  (PHASE  ?-B 

^  V;  ^ 

»  KFL AG -2 ) 

17 

I F { KFL  AG- 1 )  18,18,19 

CHECK  THAT  SOURCE  EQUIPMENT  ALSO  HAS  SINGLE  INPUT 
C*****  AND  That  SOURCE  INPUT  UNKNOWNS  LESS  THAN  OR  EQUAL 
C****«  TO  ELIMINATED  INPUT  UNKNOWNS.  (IF  NOT*  0  0  NOT 
C*****  ELIMINATE  I EQP ) 


IB  I  PH  AS=  I A 

J  EQP= INOUT ( 1 , I EQP) 

KEQP= INPUT ( 2, IEQP) 

I F  C INOUT ( 1, JEQP)  )  15, 15,20 
20  IF(  INOUT (3, JEQP) -INOUT (3,  IEQP)  )  71,21,15 


C*****  CHECK  THAT  DESTINATION  EQUIP.  ALSO  HAS  SINGLE  INPUT 
C*****  S  THAT  DESTINATION  INPUT  UNKNOWNS  GREATER  THAN  OP 
C*****  EQUAL  TO  ELIMINATED  IN^UT  UNKNOWNS  (IF  NOT  DO  NOT 


* 


’  '  )  ;  ■  rI 

1  1 
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_ SUBROUTINE  REDUC  ... (CONT’D) _ 

O****  ELIMINATE  IEQP) 

19  iphas=Tb 

JEQP= INOUT (2  » IEQP ) 

_ KEQP= IEQP _ 

I F (  INOUT { 1 , JEQP )  )  15,15, 2  2 
22  I F ( I NOUT ( 3 , IEQP) - INOUT ( 3 , JEQP ) )  21,21,15 

c '  IF  A  SET'  OF  the  above  contitions  is  met,  eliminate 

C*****  IEQP,  CREATE  PSEUDO  STREAM  TO  BRIDGE  ELIMINATED 

EQUIP,  AND  STORE  EQUIP.  SEQUENCE  LINKS  I  *  I L I NKS 1  ) - 
C*****  NEGATE  MREC*  ENTRY  TO  INDICATE  EXISTENCE  OF  LINKS. 


21  IRECI I)=0 

I DUM^LQC  All  ( JEQP ) 

I  PEC  (  I  DU  M  )  •=  -  J  E  Q  P 

_ K  SUDO=KSUOO  +  1 

INFO! KSUDO, 1 ) =KSUD0 
INFO! K  SUDO , 2 )  =  I NOUT { 1, IEQP) 
INFQC  KSUDOjr  3 )  =  I  NOUT  (2,  IEQP) 
I NFQ  { KSUOO ,  V)  =  I  NOUT?  3  7KEQP) 
IF(KFLAG-l)  23,23,24 


PHASE  2— A  ELIMINATED  EQU  IP  (I EQP )  -  RHS  *  IL  INK « 
C*****  MREC*  ENTRY  (TO  BE  NEGATED  IN  *IREC*1  (JEQP)  -  LHS 
C *****  *  I L  INK  * ) 


23  I  LI NK { KLI NK , 1 ) = JEQP 
I  LINK (KL  INK, 2 )  =  IEQP 

GO  TO  25 


C***»*  PHASE  2tB  ELIMINATED  EQUIP  (IEQP)  -  LHS  •  ILINK* 
C*****  ’MFC’  ENTRY  (TO  BE  NEGATED  IN  »  IRECM  (JFQP)  -  RHS 
C*****  ’ILINK*) 


24  I  L I  NK  (  KL  I  NK »  1 )  =  I  EQP 

I  LINK! KLINK,2) =  J  EQP 


C*****  INCREMENT  LINK' COUNTER  KL INK 


25  KLI NK  =  KL  T  NK  + 1 _ 

IF(  ID BUG ( 13  )-2)  607,8  06,306 

806  WRI  TF  (  IWRIT  ,2003)  TPHAS,  IEQP,  JFQP,  IEQP,  ( INF  (3  (  KSUDO,  I  I  ) 

$ ,  11  =  1,4) 

3 0 T  CONTINUE 
CO  TO  10  0 
15  CONTINUE 


C*****  IF  DO  LOOP  COMPLETED,  MEANS  FINISHED  PHASE  2-A  OR 
C*****  2-B.  INCREMENT  KFLAG-  IF  2  CONTINUE  WITH  PH ASF 
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SUBROUTINE  REDUC  .  ..(CQNT'D? 

2-8...  IF  3  TERMINATE  REDUCTION,  PRINT  AND  EXIT 


KFL AG=KFL AG+1 
I  E ( KFL  AG-2 )  201,201  ,202 


£  ^  jf:  J*;  * 


HERE  TO  205  COMPACT  * IREC*  BY  SQUEEZING  OUT  ZEROS 
RESULTING  IN  ELIMINATED  EQUIP.  LOCATIONS 


202  KOUNT-1 

DO  205  1=1, NOEQP 

IF {  IREC (  I )  )  204,205,204 

204  ISTOR=IREC<n 
IRECI  r ) =  0 
IRECCKOUNT )=ISTOR 
K  0  U  N  T  =  K  0  U  NT  + 1 

205  CONTINUE 


RE DEE  I Nt  NOEQP-  NO.  OF  EQUIP.’ S  IN  SIMPLIFIED 
C*****  FLOWSHEET  (NO.  OF  NON-ZERO  ENTRIES  IN  ’IREC*) 


NOE  QP=KO  U  N  T - 1 
NPl  =  NOEQr>+ 1 

IF (  ID BUG (  13 ) -1 )  809,808,308 


IF  ANY  EQUIP.  NO.'S  HAVE  BEEN  ELIMINATED  BY  THE  TWO 
C*****  PHASE  RECUCTICN,  PRINT  THEM 

808  IF(KFLIM)  999,999,206 

206  WRITE (I WRIT, 2 100)  (  IEL  IM< I ) ,  1  =  1 , KEL IM) 

809  CONTINUE 

I  F (  ID  BUG { 1 3 ) -2 )  811,810,310 

810  I  I  I  =  K  L I NK - 1 

WR I TE ( IWRIT*2010)  (  I L  I  NK (  I T  ,  1  )  , I  1  =  1 , I  I  I ) 

WR I TE ( I WR I T  ,  20 1 1 )  (  I L  I  NK (  1 1 , 2 ) , I  I  =  1 , I  I  I) 

_ WRITE ( I WR I T  ,2012 )  (I  RFC (  II ) ,  I  1  =  1 , NOEQP ) 

WRITE  UUP  IT  ,2051  ) 

811  CONTINUE 
999  CONTINUE 

RETURN 
100  CONTINUE 


C*****  HERE  TO  101  TEMPORARILY  ELIMINATE  ALL  STREAMS 
C*****  CONTAINING  I EQP  AS  A  SOURCE  OR  DESTINATION  IN 
FLOWSHEET  0  A T  A  ('INFO')  BY  NEGATING  THE  STREAM 
C*****  NUMBER  (S) 

_ DO  101  r  =  l,KSUDO 

IF{  INFOCI,!))  101,101,104 
104  IF(  INFOC  I  , 2 ) -  I EQP )  102,103,  102 

102  IF( INFO( I ,3 )- IEQP)  101,103,101  _ 


'  -  ’ 


(n* 


q  , 


■  .  r  ,  '  (  r  i  } 


•  ' 


'  i  )  r 

■  (  T  •  ■  -  !  • 

■  »" 


[  T . 

•  ’  '  :  1  ' 


)  ' 


{  .n  ,  • 


'  i  i  ,  r  =- 1  , 


i  ,  <  )  '  •  ;  '  '  )  •  • 

<  I 

i  -  ■  T  : 

1  i 

, 

*  (  ,  • 


<  '  ’ 


'  •  ’  I  '  •  r  •  !  )  7 

'  •  ,  ■  !  ,r  ;  >rr  i  i 


D-116 


SUB ROUT  I N F  REDUC  . . . ( C ON  T  «  D ) 


103  INFO!  I  ,  1  )  -  -  I N  F  0  !  I  ,  1  } 
101  CONTINUE 
KFL  I 


STORE  ELIMINATED  EQUIPMENT  NUMBER  FOR  REDUCTION 
C*****  SUMMARY  PRINT 


I  EL  I  M  (  K  E  L  I  M  )  =  I  E  0  D 
CO  TO  20 1 

2000  FORMAT ( T2  5  » 'PHASE  1,  EQUIP.  NO.  *12*  HAS  NO 
T  ANTI  CEDENTS  -  ELIM1NAT 

1 E  D  .  •  ) 

2001  FORMAT  ( T25*  PHASE  1,  EQUIP.  MO.  M2'  HAS  NO  DECENDENTS 
t-  ELIMINATED 

1 .  *  } . 


2003  FORMAT ( T25 *  PH AS E  2-’AL*  ,  EQUIP.  NO.  *12'  AND  *1?’ 

_ %  COMBINED,  *12* _ 

lELlMINATED/VT  25* PSEUDO  -STREAM  INTRODUCED  -»4I3) 

2010  FORMAT (T25*L.H.S.  I  LI NK  MAT R I X  * / (T 2 5 , 20  I  3 >  I 

20 1 1  FORMAT! T2 5 ILINK  M A  TP  I  X  * / { T2 5 , 2 0 1 3 ) ) 

2012  F ORMAT ( T 2 5 » REDUCED  SEQUENCE  -« / ( T25 , 20  I  3 ) ) 

2049  FORMAT! ' 1 » ////  T38* CALCULAT ION  SEQUENCE  OPTIMIZATION*) 

2050  FORMAT! T44*  INITIAL  SEQUENCE  IS  -  * / ( / T 2 5 , 20  I  3 )  ) _ 

2n5 1  FORMAT { ' 0* ) " 

2100  FORMAT! //T25* THE  FOLLOWING  EQUIPMENT  NUMBERS  ARE 
. $  CONS  I  PER gQ  LRRELE 

iVANT*  /T25j»  WITH  RESPECT  TO  THE  OPTIMAL . SEQUENCE  AND  SO 

*  HAVE  BEEN*/ 


1T25* ELIMINATED  WITH  APPROPRIATE  INTRODUCTION  OF  PSEUDO 


$  STREAMS  -'/ 
1! /T 25  *  20 1  3 )  ) 


9000  FORMAT  (  ’  0  1  ,  T  2  5  »  *  #  #  $  #  $  #  $  £  Tfc  #  #  #  #  ♦  j9^  #  #  #  #  #  #  *  #  #  #  ^  # 

$  *  ?,(  #  *  3j:  -\i  *  ^  ;*c  # 
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•  .  ,  •  t 
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SUBROUTINE  DELTA 


FUNCTIONS  - 


- _ ASSOCIATION  MATRIX  UTILITY  ROUTINE 


-  GENERATES  THE  1  I  CELT*  OR  ASSOCIATION  MATRIX 
FOR  A  GIVEN  CALCULATION  SEQUENCE  USING  THF 
CL.  OW  SHEET  DATA  IN  *  INFO*  MATRIX 


* 


* 

=*« 

* 


:  *  *  A  if  if  if  ££  *  $££555#  £  sjc  i*t  $  #  s*s  #  : 


SUBROUTINE  DELTA 


C**»»*  THIS  SUBROUTINE  »  GIVEN  THE  » INFO*  MATRIX  OF 
C*****  FLOWSHEET  DATA  AND  A  GIVEN  SEQUENCE^  * IREC’ , 

C  CONSTRUCTS  THE  * IDELT  *  MATRIX  USED  IN  THE  SEARCH 

FOR  THE  OPTIMAL  C ALCUAT I  ON AL  SEQUENCE, _ 

r*  a.  «x> 

L  ,  'I'  -v*  'A  'v* 


COMMON  /FLOWl/INFOC  75  »5 ) > NNECP, NQSTM 

COMMON  /GPT1/I  OELT  (26»  261  ,  IRECl  ?5)  ,N0EQ>",NP1  f  ISIGM 

COMMON  /0PT2/ILINK! 2  5,2) , LOCAL (25) , K SUDD, K TO P  , KBOT 


C *****  here  TO  2  CONSTRUCT  ’LOCAL’  VECTOR 

C*****  LOCAL! I)  IS  THF  ’IREC’  LOCATION  OF 

SUCH  THAT 
EQUIP  I 

DO  2  K= 1 , NOEQP 

L  DU M= I A 8  5 { IREC! K  )  ) 

2  LOCAL (LDUM)=K 

C****$  HERE  TO  6  INITIALIZE  ’IDELT*  MATRIX  TO  ZERO 


DO  6  I  =  1 , N P  I 
DO  6  J= 1 , NP  1 


6  IDELT  Cl , J)  =  0 


O  »•<  >•<■  »•> 

I  AV 

HERE  TO  3  CONSTRUCT  • 
FLOWSHEET  D AT  A  ’INFO* 

IDELT’  MATRIX  USING  THE 
! INCLUDING  PSEUDO- STREAMS 

IF 

0  *  *  *  *  * 

AMY)  AND  THE  SEQUENCE 

’  IREC  ’ 

DO  3  KSTRM=1 , KSUCO 

Q  *  *  *  *  if 

IF  STREAM  NUMBER  ZERO 

OR  -VF  ,  IGNORE  THAT  STREAM 

IF!  INFO ( K STRM ,  I)  )3,3,8 

O  v<  -  mV  sV 

^  'Vs  'V'  “AD  *■<■'  -*p 

PLACE  NUMBER  OF  STREAM  UNKNOWNS  { I NFO ( KSTRM, 4 ) ) 

IN 

(3  ,t* 

r  ^  jjc  ^  ^  0" 

(3 

APPROPRIATE  LOCATION  IN  ’IDELT’  (STREAM  FROM 
EQUIP.  MO.  I  TO  NO.  J  IS  REPRESENTED  IN  LOCATION 
IDELT ( K , L  )  ,  WHERE  IREC!K)=I  AND  IREC(L)=J 

'  I  - 


!  .  r  •  • 

■  T  ‘ *  *  f 
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SUBROUT  I NE  DELTA  .  .  .  ( CONT * D ) 


8  I OUM= INFO ( KSTRM , 3 ) 

J 01 .13-  INFp(KSTRMt2  ) 

T  DUM~  LOG  ALU DUM  ) 

JDUM= LOCAL ( JOUM ) 

I  DFLT ( I  DU M  ,  J  DU  M  )  =  I D  E  L  T {  I  DUM , JDUM )  +  INFO { KST RM , 4 ) 

3  CONTINUE 

**  HERE  TO  3  EQUATE  LAST  ROW  £  COL.  OF  * IDEL I '  TQ 

**  *  IR  EC*  A  NO  MAKE  UPPER  TR  I  ANGULAR  MDELT  *  EQUAL  TO 

**  ITSELF  MINUS  THE  LOWER  TRIANGULAR  1  IDELT* 


00  5  1=1, NOEQP 
IDELT { I, NP1  )  =  I R  E  C ( I ) 

I  DEL T ( N P 1 ,1  ?=IREC< I ? 

DO  5  JM ,  • ! n  r  o  ° 

IDELT (I, J )  =  I  DEL  T ( I ,J)-IOELT(J,  I  ) 

5  CONTINUE 


C*****  RECYCLE  APPEARS  AS  POSITIVE  ENTRY  IN  UPPER 
C*****  TRIANGULAR  MDELT*,  NON-RECYCLE  STREAMS  AS  -VE 
£**#**  ENTRY  IN  UPPER  MDELT* 


RETURN 


•  ’  '  ;i  ■ ... 


I  T  '  '  '  '  '  (  ♦  •  '  1  !  ,f  •  ■  J 
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c 

C 

C 


c 

c 

r 


C 

c 

C 


C 

C 

r 


SUBROUTINE  EXCHN 


FUNCTIONS 


SEQUENCE  MODIFICAT I  ON  UTILITY  ROUTINE 


-J* 

. 


ALTERS  THE  CALCULATION  SEQUENCE  AND  THE 
ASSOCIATION  MATRIX  *  IDELT'  IN  THE  MANNER 
DETECTED  AS  BEING  ADVANTAGEOUS  BY  DCHCK 
ALTERATION  IS  DONE  DIRECTLY  FOR  SEQUENCE 
EXCHANGE  OR  BY  CALLING  DELTA  FOR  SEQUENCE 
PROMOTION  OR  DEMOTION 


* 


* 


C 

c 


5k 

**  ***  5k  *  sk  *k  *  *  ❖  £  £  *  #  #  $  $ i-  *  *  t- £  -O  ^  £ 


SUBROUTINE  EXCHN (  II , JJ, I  FLAG) 


C 


J#  Vj  sir 


'V-  r.<*  "V*  - 


THIS  SUBROUTINE  CHANGES  THE  CALCULATION  SEQUENCE 

'IREC*  AND  THE  *  IDELT*  MATRIX  (DIRECTLY  OR  BY 

CALLING  DELTA)  IN  THE  MANNER  DETECTED  AS  BEING 
ADVANTAGEOUS  BY  DC HCK 

I FLAG-  1  DEMOTION  OF  I£  TO  JJ 

=  2  PROMOTION  OF  JJ  TO  II 

■=  3  OR  4  EXCHANGE  OF  TI  L  JJ 


C OMMON  /GENjL/I  WRIT »  ID8UGC 15  ITEST, CR IT,NGMS,NT  IT 
COMMON  /OjPTl/ IDELT  (26,26)  , I REC ( 25 ) , NGEQP , NP1 , I  SI GM 
IF IID BUG! 13  1-3)  804,800,300 

300  IF(  IELAG-2)  801,802,803  _ 

8  01  U  R I T  F {  I WR I T , 1 0  0 0  )  I  I  ,  J  J,  I R  F  C (  I  I) . 

GO  TO  804 

802  WRITE ( I WRIT, 1001)  J J  ,  I  I  ,  I R E C { J J ) 

.GO  TO  804 

803  WRITE  (IWRIT  ,1002  )  I  I ,  J  J  ,  I REC  U  I  )  ,  I REC  {  J  J  ) 

304  CONTINUE 


C*****  DECIDE  ON  MOVE  TO  BF  EXECUTED,  DEPENDING  UPON 
I  FLAG. 


IF (IF  LAG-2)  5,7,4 


0  ;k 

0  ❖  *  *  *  5k 

HERE  TO  2  I FLAG=  3  OR  4 

EXCHANGE  POSITION  II  IN  ’IREC’  WITH  THAT 
MODIFY  ' T  DEL  T  *  ACCORDINGLY 

OF  JJ 

r  %  >k  &  5k  sk 

7*  J/  str  Jr  sO  sir 
•V  'c-  n-  -V- 

HERE  TO  3  CONSTRUCT  LOWER  'IDELT  *  AS  -VE 
IMAGE  OF  UPPER  TRIANGULAR  *  IDELT ' 

M  IRROR 

4  DO 

3  I  -  2 , NOEQP 

I  Ml 

=  1-1 

DO 

3  J=l, IMl 

- 
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■  ■  ■  ■  * 
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SUBROUTINE  EXCHN  ... (CONT'D) 


IOFLT ( I , J  )  =-T  DFLT ( J  ,  I  ) 

0  CONTINUE 

C*****  HERE  TO  1  EXCHANGE  COLUMNS  II  ANO  JJ 


DO  1  I  =  1 » N  P 1 
I STOR=I GELT (1,11) 

IOELT  (I  ,  I  T  >  ■=  I  OE  L  T  <  I  ,  J  J  ) 

I DFLT (  I f  JJ  RiSTGR 

1  CONTINUE 


C*****  HERE  TO  2  EXCHANGF  ROWS  II  AND  JJ 

no  2  J- 1 , NP1 
I  ST  OR -  I  DEL  T {  I  I , J  ) 

I  DEL  T ( I  I , J ) =T DELT( J J, J  ) 

_ IDELT( JJ,  J)=1STQR _ 

2  CONTINUE 

C - a * **  TO  2 0 3  R c D E F I N c  « IREC* 

DO  203  1=1, NOEQP 

203  I  PEC (  I )  =  IDELT( NP1  ,  I) _ _ 

GO  TO  205 


IFJLAG-  1  ,  DEMOTE  EQUIP  NO.  IN  POSITION  I  I  TO 
£$****  POSITION  JJ 

C*****  SHIFT  POSITIONS  II+l  TO  JJ  ONE  TO  LEFT 


5  JJMI-JJ-l 

I  ST 0R= I REC (II) 
no  6  1=1  I ,  1  JM1 

6  IREC( I)=IREC<T+1> 
IRFC ( JJ)- IS  TOR 

GO  TO  10  


C*****  I FL AG=  2  PROMOTE  FQUIP.  NO.  IN  POSITION  JJ  TO 

£*$***  POSITION  II 

'"SHIFT  POSITIONS  II  TO  JJ-l  ONE  TO  RIGHT 

^  J  J  M  I  I  —  J  J  —  I  I _ _ _ _ 

I  ST OR = [RFC ( JJ ) 

DO  8  1  =  1, JJ MI  I 

IDUM= JJ+l-I  _ 

8  IREC ( IDUM 1- I R E C ( IDUM-1 ) 

IRECt  I  I )= IS  TOR 


r  -f'  *  ;'c  s’; 


CALL  DELTA  TO  CONSTRUCT  NEW  ' I DE  LT  *  MATRIX 


!  ’ 


» 


'  U  ,  '  )  T  *  !  f  J  ,  '  •  J 

r-  ,  •  )  r  j 

f  •  .  ;  !  f 

t  fin'ii 

i,i  ) 
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SUBROUTINE  EXCHN  .  ..(CDNT’D) 


C **** * 
r  hi  *  *  * 

O  -.Ij*  vC 

I  *•»*  ‘■i*’  ■'<> 


COMPUTE  I $ I G  M=  SUM  OF  UPPER  TRIANGULAR  ’I  CELT’  - 
SHOULD  BE  MINIMUMTZEO  FOP  OPTIMUM  SEQUENCE  IF.  MIN 
RECYCLE  ASSUMPTIONS 


205  ISIGM-0 

DO  202  I  =  1  f  NOEQP 
DO  2 P 2  J  =  I, NOEQP 
202  I  ST  GH=f S IGM  +  IDELTt I , J ) 

RETURN 

1000  EQRMAT(T25t  DEMOTE  SEQUENCE  POSITION*  13  1  TOJ  J_3  •  {  EQU  I  P  . 

$  NO .  *  I  3  * )  * ) 


1001 
100  2 


FORMAT(T25* PROMOTE  SEQUENCE  POSITION1 13*  TO* 13* 

$  {EQUIP*  NO*  *  13 1  ) * ) 

F0RMATIT25* EXCHANGE  SEQUENCE  POSITION S *  1 3 *  ANO* I 3/T25 
1*  (EQUIP.  NO.*  13*  AND  NO.  M3  MM 


END 


f 


-  '  '  :  * 


,  '  '  T  '  ' 

,  I  t 

•  '  '  •■.?*;'  *  *  •  '  ’  ' 

{  M  *  1  *  . 

*  :  *  '  •  •  '•  •  } 

• .  .  1 

p  i  * 

1  '  *  T  •  . 


0-12? 


r  ^  sjc  $$$$  #3j<  sjc#^  4s  i*s3js  jfcije  $-£$  #  #  #  3{i  <£  :£  afc  j{«  j{£  3jc  ##  #  ijs  ##  j>«  j};# 

C  *  * 

C  .  *  SUBROUTINE  DCHCK  * 

C  *  * 


C 

C 

c 


FUNCTIONS  - 


SEQUENCE  CHANGE  SEARCH  ROUTINE 


C 

c 

c 

c 

c 

c 


y'< 

* 


ATTEMPTS  TO  FIND  THE  MOST  BENEFICIAL  CHANGE 
THAT  CAN  3 E  MADE  TO  THE  CALCULATION  SEQUENCE 

TO  reduce  recycle  assumptions 

PREVENTS  ALTERNATING  BETWEEN  TWO  SEQUENCES 


* 

❖ 

V 


:!c  *:  *  t-  *  £  s}e  3*t  *  ^  $  -fc  sj;  3*c  >Jc  sjt  *  ijc  ^  3^  i1,;  $c  3^  jjt  >|c  3*c  #  >*j  3jc  ^  ^  ^  ^  ^  #  ijc  $  #  #  *  ^  3ji  j(c 


SUBROUTINE  CCHCK  < I  I  I  ,  J J J , I  FLAG ) 

C*****  THIS  SUBROUTINE  ATTEMPTS  TO “FIND  THE  MOST 

C*****  BENEFICIAL  CHANGE  THAT  CAN  BE  MADE  TO  THE  SEQUENCE 

C***»*  jo  rfQUCF  RECYCLE  ASSUMPTIONS _ _ 

P  :?c3‘r  #  -jfc 


DIMENSION  I  SUM? (25) 


COMMON  /GEN1/IWRIT , IDBUG(  15) ,  ITEST ,CR I T, NGMS , NTOT 
COMMON  /0PT1/IDELT(26 ,26 ) , IREC(25) ,NOEQP,NPL, ISIGM 
IF  C  ID BUG ( 1 3  )-4)  8  04,800,800 

800  WRITE (  IWRIT, 1000)  ( I RFC ( I ) ,  I  =  1 , NOEQP ) 

WRI TF ( IWRIT,  LOO  1  ) 

DO  80  L  I ~  1 , NP 1 

801  WRITE  (IWftIT,  1002)  (  IDELTI  I,  J  )  ,  J=I  ,NP1  ) 
804  CONTINUE 


C*****  STORE  LAST  MOVE  (FOR  PREVENTION  OF  SINGLE  EXCHANGE 
C*****  CYCLING) 


I L= 1 1 1 
J  L=  J  J  J 
IFLAG=0 


C *****  IMAX-  MAXIMUM  POSSIBLE  RECYCLE  REDUCTION 
C*****  ENCOUNTERED  SO  PAR  (EXCHANGE  ONLY) 


I  M  A  X=  - 1 0  0  0 

c  *  *  *  *  * 

P  sjtajc  *  3$J  i'. 

INITIALIZE  COLUMN  SUMS  (ISUM2U))  TO  ZERO 

COLUMN  SUMS  ARE  UPDATED  AS  ROW  SUMS  ARE  CALCULATED 

1 

DO  1  J=l, NOEQP 

I SUM2 ( J) =0 

O  M'  •fe  «A* 

1  r  An  V  ^  r 

3^  3^  *  if.  !& 

C  ^  •**  A  -4 

(  ^»v  ^1-  *■>*  'C' 

HERE  TO  2  STARTING  AT  BOTTOM  OF  MDELT',  WORKING 

FROM  DIAGONAL  OUT,  CALCULATE  ROW  SUMS, COL.  SUMS, 

AND  TOTAL  SUMS  £  TEST  FOR  REST  MOVE 

.  ' , .  •  ,  i  n 


:  7'  '■ 


~\ 


:  )  ♦  '  *  s 

.['■■v"’  '  T  ,  -  .  '■  '  '  •  -  r '■ 

)  -  f 

{  ■ 

-  ♦  1  i.  ,  '  '  ’  ,  <  ) 


1  - 


,  ,  i  )  ,  *  )  '  ■ 


>  ‘  T  T 

f  t  )  U  I  ’  ] 


D-12  3 


SUBROUTINE  OCHCK  .  ..(CONT’D) 


DG  2  K  =  2  » NO EQP 
T  =  NOE QP-K+ 1 
I P 1  —  I + 1 
I  SUM 1=0 

_ on  ?  j=ipi,noeqp _ _ 

I S  U  Ml  =  I S  U  M 1 + 1  GELT ( I , J) 

I  SUM2  (  J  )  =  I  SUM2I J  )  4-IOELK  I  ,  J) 

C*****  CHECK  IF  EXCHANGE  'MULO'PESULT  IN  GREATER  RECYCLE 
REDUCTION  THAN  PREVIOUS  MAXIMUM  ENCOUNTERED  (I  MAX) 


I E (  I  SUM1  +  ISUM2 ( J)-IDELT(  I, J  )- IMAX >3,4,4 
C»*»»*  IF  SAME  EXCHANGE  MADE  LAST  TIME  -  IGNORE 
4  I F { 1000*IL+JL-1000*I-J) 5,3, 5 
C*****  STORE  MAX  AND  LOCATION 


5  IMAX=ISUMl-*-ISUM2  (J)— IDELTI  I  ,  J) 
1 1 1  —  I 
JJJ  =  J 


C*****  if  IMAX  +VE,  PROFITABLE  EXCHANGE  HAS  BEEN  FOUND  - 
C*****  IGNORE  PROMOTION/DEMOTION  SEARCH 

3  IE(  IMAX) 4,6,2 

C*****  IF  I  SUM I  +  VF  ,  PROFITABLE  DEMOTION  FOUND  -  FLAG 
C*****  AND  STORE 


6  IF { I SUM1 ) 7  >7,8 


8  I FL  AG=  I 

I  1=1 

J  J=  J 

C*****  IF  I SUM2 ( J ) 

C*****  and  STORE 

+VF ,  PROFITABLE  PROMOTION  FOUND  -  FLAG 

7  I  F (  I  SUM 2 ( J )  ) 2  f 
9  I FL AG=2 

2,9 

fFi 

J  J  =  J 

2  CONTINUE 

C*****  I  F  L  AG=  L 

C  ❖  =  ~> 

ADVANTAGE  TO  DEMOTING  II  TO  JJ 

ADVANTAGE  TO  PROMOTING  JJ  TO  II 

=3 

n  ■#/ 

I  v  ^  "o  4'  4- 

r  4  4/Vf  *  ^ 

T  4'  -T*  'Y*  -V* 

NULL  OR  NEGATIVE  ADVANTAGE  IN 

EXCHANGING  III  f. 

JJJ  (WILL  BE  USED  IF  NOTHING  BETTER 

' « . 


o-( 

,  r  r  = 

Mr 

( i  ♦  r )  t  .  i  r  >  { f  i ' 

...  ' 

,  ,  ■  ' 

l 

( i  ,  )  n< ■ :  ~  •  m 


..  i 

i  ■ 
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SUBROUTINE  OCHCK 


(CQNT'D) 


ENCOUNTERED) 

ADVANTAGE  TO  EXCHANGING  IT!  &  JJJ 


("HIGHEST  priority  IF  I  MAX  +VC ) 


IF(  I  MAX) 2 0,20, 2  1 
BO  IE flf L  A G )  2 2 , 22 ,2 3 
23  I  1 1  =  I  I 
JJJ- J J 
Gd  TO  09  0 
22  I  FL  AG  =  3 
GO  TO  999 
21  I  FL  AG~4 
999  CONTINUE 
RETURN 

!O0  FORMAT  ( 3-o»T25*SlMPt  I  ¥Wb  SEQUENC  E  IS  -  *  /  (  /  f  2  5  T  2  0  13 )  ) 

1001  FORMAT ( *  0*  T23 1  I DELT  MATRIX  -»/) 

1002  FORMAT! T25, 2013) 


END 


'  ’  •  •  ) . . . 


f  •  5 

1  T  ''0  T  ' 


'  '  ,  t 


r  ♦  ' 

T 


r  -t  :  ’  . 


\  '  :  k  •  M 

’  *  ir  T  *  *  ) 


D-  1 2  5 


*t  jJc  #  #  ##  jjt#  &##& £  #  $  £  £=5e  *  *  <s  ^£  4e  *  !{c^t  J}:^;  =!c  *  ❖  #*  £## 


* 


SUBROUTINE  FINSH 


C 
C 
C 

c  * 

C  *  -  OPTIMIZATION  MONITOR  ROUTINE 


*  FUNCTIONS  - 


❖ 

JL> 

>*+ 

* 


c 

c 

c 

c 

c 


❖ 


*  — 


DECIDES  IF  THE  SEARCH  FOR  THE  OPTIMUM 

SEQUENCE  SHOULD  BE  CONTINUED  UNINTERRUPTED, 

RF  NE WE  D  WITH  A  RANDOMIZED  SEQUENCE,  OR 
TERMINATED 
STORES  BEST  SEQUENCE  AS  ENCOUNTERED 
RANDOMIZES  THF  CALCULATION  SEQUENCE  IF  THIS  IS 


* 

❖ 


C 

c 

r 


jr+ 


REQUIRED  —  REBUILDS  ASSOCIATION  MATRIX  (VIA 
DELTA ) 


A* 


■>*'  V*»  \t>  J/  Jx  v*x  -A.  Jx 

X",-.  XyV  >|\  X,»  *J  v  x(%  X|V  Xj  V  Xj\  x,» 


>V  N.V  ■»<*  »*X  V*»  >(X  S>X  >*X  Jx  »'x  »*X  4,  4x 

■V*  -*,>  ^,V  X  V  X,*  X,v  x,»  X,v  x,»  X,V  XJV  x>,v  x,v  x,v 


X/*  X,*  Xjv 


N*X  vlx-  v>x  tjix  vtx  4x  4x  Jx  Jx  Jx  4x  4x  J 
'**  -X/V  -X,-V  x(\  X,V  -,v  XjV  X(*  »,«.  X|V  X,\  X.V  '( 


T  ^  V  '■>'  V  V 


4x  4/  4x  4x  4x  -4x 
'{V  xjv  XjV  «,«  x,\ 


SUBROUTINE  FINSH  ( I F L AG , J FL AG } 


C*****  THIS  SUBROUTINE  DECIDES  WHETHER  THF  SEARCH  FOR  THE: 
C*****  OPTIMUM  SEQUENCE  SHOULD  BF  CONTINUED  UNINTERRUPTED 
£*****  ( JFLAG=1), RENEWED  WITH  A  RANDOMIZED  SEQUENCE 

c*****  (JFLAG=0),  OR  TERMINATED  ( JFL AG=2 )  IN  THF  ABSENCE 
C****»  OF  DEBUG  OPTIONS,  IT  ALSO  CONTROLS  PRINT -OUT  OF 

C*****  BEST  SEQUENCES  AS  ENCOUNTERED. 

C  «Ax  Jx  vV  •>*<  Jx 

V>  ^  'o 

DIMENSION  .1  TEST  (ZB) 

COMMON  /GEN  1/1  WRIT, IDBUGI 15)  ,  I  TEST , CR I T , NGMS , NTOT 
_ COMMON  /0°T1/IDELT( 26,26) , I  RFC! 2  5) , NOEQP ,NP 1 , I SIGM 

DATA  IX  7  12345  7 

DATA  IBEST, JCR IT/1000, 5/ 


C*****  INITIALIZE  NULL  IMPROVEMENT 

COUNTERS  IF  START  OF  SEARCH 

£  RANDOMIZATION 
(  IBEST  =  1000 ) 

I F { I BEST- 10 00 )  51,50,51 

50  LC0UN=0 

NCCHJN  =  0 

C*****  IBEST  IS  THE  REST  VALUE  OF  ISIGM  ENCOUNTERED  SO  FAR 
C^*»  IN  THE  SEARCH.  IF  A  VALUE  OF  ISIGM  BETTER  (  LOWER  ) 

C*****  IS  RETURNED,  SEQNC  IS  CALLED  TO  PRINT  THE  NEW  BEST"' 

C*****  RESULTS  AND  IBEST  IS  REPLACED  WITH  ISIGM 


51  I  FITS TGM-T BEST)  100,101,101 

100  CALL  SEQNC 

_ TBEST  =  ISTGM _ _ 

101  CONTINUE 

q*****  IF  I  FLAG  IS  NOT  3,  AN  ADVANTAGEOUS  MOVF  HAS  BEEN 


....  ......  ... 


?''.*•  I 

»  , , 

. 

< 


t  I  '■  T  • 


<  7  '  -  ’  I  '  ! 

■ 
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SUBROUTINE  FINSH  .  . .  ( CONT  *  0 ) 


O  >V  \<#  Vr  ■A' 

\^r  '>  'I*  -A  v 

r  J,  %ir  ^  X 

'F 

FOUND  AND  SO  JFL AG  IS  SET  TO  1  TO  CONTINUE  WITH 
IMPROVEMENT  VIA  EXCHN 

p  xx  Jr X  x, 

O  X  X  X  X 

L  ^ 

IF  IF  L  AG  IS  3,  A  NULL  OR  NEGATIVE  INPROVEMFNT  IS 

THE  BEST  FOUND  -  A  COUNTER  LCOUN  IS  INCREMENTED. 

THIS  COUNTER  IS  USED  TO  PREVENT  CYCLING  OF  NULL 

Q **  ** * 

l T"*  Jr  »•/  X  Jr  X 
1  'r-  O'- 

p  X  X  X  jl/  X 

MOVES  (SAY  A  PERIOD  OF  5  MOVES).  WHEN  THE  COUNTER 
EXCEEDS  A  SPECIFIED  VALUE,  THE  SEQUENCE  IS 

RANDOMIZED  AND  THE  SEARCH  RENEWED  FROM  THE  NEW 

Q  **  *  *  * 

r  *  * **  * 

O  X  X  X*  X  X 

1  'I'  '¥'  *1'  'C'  v 

STARTING  POINT.  THIS  RANDOMIZATION  PROCESS  RESULTS 

IN  ANOTHER  COUNTER,  NCOUN,  BEING  INCREMENTED.  IF 

THIS  COUNTER  EXCEEDS  A  SPECIFIC  VALUE,  THE  SEARCH 

O  Jr  Jr  Jr  Jr  Jr 

1  rtx  r,V  r^v  /,« 

IS  TERMINATED 

I  F{  IF  LAG-3)  10,11,10 

P  ^  rfc 

FLAG  CONTI NUF  AND  RETURN 

10 

- - - - - 

JEL AG=1 

GO  TO  999 

C '$****  INCREMENT  NULL  IMPROVEMENT  COUNTER 


II  LCOUN=LCCUN+l 

I F ( LCOUN-NOEQP )  10,12,12 

C*****  INCREMENT  RANDOMIZATION  COUNTER 


12  NCOUN=NCOUN+I 

_ lcoun=o _ 

IFINCOUN-JCR  I T )  13 ,  1 4 , 1 4 

c *****  FLAG  TERMINATION  of  optimization  and  return 


14  JFL  AG=2 
GO  TO  999 


F*****  FLAG  randomization  of  sequence 


13 

JFL AG=0 

r **  **  * 

HERE  TO  42  RANDOMIZE  THE  SEQUENCE. 

41 

PO  41  1=1, NOEQP 

J  TE  ST  ( I  )  —  0 

43 

DO  42  1=1, NOEQP 

CALL  RAND1  J  (  IX,  I  Y ,  YFL  ) 

N 0=  YF  L * N 0 E  Q  P+  0  , 5 

I  X=  I  v 

IF (NO  )43, 43,45 


45  IF( J TEST (NO) )  44,44,43 


'  ’  ■  *1 ) . . . 

. ? 

IT,  ’  1 


t  ’  •  •« 


r .  '■  : 


'  :  •  ,  t  ' 


•  •  •  '  •  '  .i 


f'T?  L 


' 


t1*,  r  ■  (  .1) 

r  1  f  :  I  '  : 
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SUBROUTINE  FINSH  .  ..(CONT’D) 


44  JTEST(NQ)=1 

I  F C  (  U  =  IOELTCNP1  ,NO) 
4?  CONTINUE 


I F ( I D8UG C 1 3  )  —3 )  801,300,800 

300  WRITE ( I WR IT, 1001  ) 

WRITE  ( I WRIT  ,  100  0  )  { IREC(I) , 1  =  1 » NOEQP ) 
801  CONTINUE 


f '  ^ 

C-*t>  Jr  Jr  Jr  Jr 

-r  ^  V 


caTl  "delta  to  rebuild  thf  mdelt*  matrix  from 

’INFO*  AND  THE  RANDOMIZED  SEQUENCE 


CALL  DELTA 

099  CONTINUE 
RETURN 

1000  FORMAT!  ,0,T25*  SIMPLIFIED  SEQUENCE  IS  -’7/^25,2013)  ) 

1001  FORMAT! • 0» T25* SEQUENCE  RANDOMIZED  •  ) 

END 


'  . . . 


r  (  ■■  •  ‘  • 


(  r ' ,  i  )  •: 
<(  '  '  ( 


M  ‘ 

1  • 


"  -  '  '  ’  ’  M *  *■  * 

*  1  »  •  '  *  ' 
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C_ 

C 

c 

c 

c 

c 

_c 

r 

C 

c 

c 

c 

_c 

c 


ijs  $3k  ^  Jjfjj:  *  <s  *sf:  %c  jJc  sjj  j}c  *  $$$  #  if.  &*#  $:  ^c  ^jc  s&jfc  $  ijs  Sjc  J^jjc 


SUBROUTINE  SFONC 


* 

* 


$ 


*  FUNCTIONS  - 

*  ~  REGENERATES  A  FULL  CALCULATION  SEQUENCE  USING _ *_ 

*  THE  SIMPLIFIED  SEQUENCE  AND  THE  LINKS  STORED  * 

*  BY  REDUC  * 

*  -  FINDS  THE  STREAMS  WHICH  MUST  BE  ASSUMED  FOR  THE  * 


*  COMPLETE  CALCULATION  SEQUENCE  (FINAL  CALCULATION  * 

*  SEQUENCE  IF  A  BETTER  SEQUENCE  IS  NOT  ENCOUNTERED)  * 

3jt  $ 

-t'  &  -f  *  -&  £  £  =4f  #  *  it  •£  #  ij:  If.  -sjc  #  a{s  #  £  *  #  #  $  jjc  *  #  s*e:£  jjc  j}t 


SUBROUTINE  sfqnc 


ou  w-  ^ 

|  «|N 

O'  »*' 

l.,  -V  -r*  V«  '■> 

r  jJj  jJcjJf 

/**  ^  J, 

6V  ■>'  ■'f 

->*»  'S'*  *"i'  *^v  -r 

rj^  >V  v>»  «?/ 

JV'  T  '>'  -'*• 

£  Jr  ?l,  y*v  X 

£  :£  s’;  sjc  s’,: 

CJ*  >1*  «X*  X  Jx 

^  -»<**  '’I'-  V 


THIS  SUBROUTINE  USES  THE  SIMPLIFIED  SEQUENCE  'IREC* 
AND  THE  MATRIX  ML  INK1  TO  BUILD  THE  TOTAL  SEQUFNCF 
"•  I  SEQ  ’  .  THIS  SEQUENCE  I  S‘  THEN  PRINTED  AND  THE 

STREAMS  THAT  MUST  BE  ASSUMED  USING  THAT  CALCULATION 
SEQUENCE  ARE  FOUND  USING  *  I S  FQ  *  AND  *  INFO  » t  THEN 
PRINTED 

GALLED  BY  FINSH  WHENEVER  A  BEST  SEQUENCE  ’  IREC1  IS 
ENCOUNTERED  (IE)  NEW  MINIMUM  IBEST 


COMM  IN  /GENI/IWRIT, IDBUC( 15 ) , ITEST ,CR  IT ,NGMS , NTOT 

COMMON  /EXE Cl /J TYPE! 25) , INDEX ( 25 > , I S£Q< 25) , I ASUMC25) . 

*,  ISUPR,  lt)PT 

_ COMMON  /F  LOW  1  /  I  NFQ  (  76 , 5  )  ,  NNEQP,  NOS  TM _ _  _ 

C OMMON  /OPT  1/1 DELTf  26,26)  , IREC ( 25 ) ,N0EQP,NP1 , ISIGM 
COMMON  /OPT  2/ I L INK(25,2) , LOCAL ( 25 ) ,KSUDO»KTOP  ,K80T 
IF( I OPT)  901,901,900 

C*****  EQUATE  NEQP  {• IS EQ *  LOCATION  COUNTER)  TO  KT OP 

(LOCATIONS  I  TO  KTOP-I  HAVE  BEEN  FI LLEP  PERMANENTLY 
£*****  BY  •REDUC* . 


POO  NEQP^KTOP 


wu  ji*  -J» 

c ❖❖ # 

HERE  TO  I  BUILD  TOTAL 
SIMPLIFIED  SEQUENCE  (» 

SEQUENCE  *  I S  EQ  *  FROM 

IREC’  ) 

DO 

I  KSEQ=1 , NO EQP 

C*****  I EQP  IS  KSEO  ENTRY  (LOCATION)  IN  IREC 


IEQD=IREC(KSFQ) 


f'  ^  4^ 


IE  I E Q P  =  0 ,  IGNORE  (NEVER  SHOULD  OCCUR) 


j  *  i  r 

- 


:  *  .• 

’  ' 

I  *  *  '  »  '  ‘  ’  '  'A 


It  )  Vf '  •  ' 

•  '  ,  • 


f  I  '  * 

1  ■  I 


i  ) :  n  ?  ■'  */  ■  i  ,  r  .• 
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SUBROUTINE  SEONC  .  ..(CONT’D) 


IFlIFQn)  2,1,3 

r  ****'*"'  ff  ffOP  IS  :  +  VE,  ADD  TO  '  ISFO'  £  INCREMENT  NEQP 

_ 3  I  S F Q ( NEQP )= IEQP _ 

NEQP=NEQP+1 
GO  TO  I 

if  Hop  -ve7  first  change  sign' 

2  I EQP  =  - IEQP  


HERE  TO  4  LOOK  FOR  IEQP  IN  RMS  OF  I  LINK  MATRIX. 


DO  4  1=1,25 

IF( IEQP-ILI NK(I ,2) )  4,5,4 


C*****  IF  ENCOUNTERED,  LHS  ENTRY  MUST  COME  BEFORE  IFQP  IN 
ISEQ 

C,*'****  MAX  OF  ONE  (PHASE  2-R)  CAN  OCCUR  HERE  FOR  A  GIVEN 
C*****  IREC  ENTRY 


5  TSFQ(NFQP)=ILINK(I  ,  I  ) 

NF  QP= NEQP+1 
GO  TO  6 
4  CONTINUE 


C*****  ENTER  TEQP  IN  ’ISEQ*  £  INCREMENT  NEQP 


6 

I SEQC  NEQP )  = I EQP 
NEQP=NEQP+1 

O  >•/  ^  »•»>  -JL. 

v  -r*  4'  -v*  r 

O  -Jy 

'P  **  ■***■ 

JEQP  -  PARALLEL 
LINKED  CHAIN 

COUNTER  -  USED  TO  FIND  END 

OF 

J  EQP=NEQP 

C***3{c* 

HERE  TO  7  LOOK 

FOR  IEQP  IN  LHS 

OF  ’ 

IL INK  • 

MATRIX 

10 

DO  7  1=1 ,25 

I F { IFQP-I LI NK( 1,1)) 

7,8,7 

£  3^  3^  Sj:  3^  # 

A'  •»</  J/  »•. 

1  -»A  >!'■  T»  ax  /p 

IF  ENCOUNTERED,  ENTER  RHS  ENTRY 
INCREMENT  NEQP  { MAY  BE  MORE  THAN 

INTO 

ONE 

•  I  SEQ 
LHS  * 

’  £ 

ILINK * 

C ** * * *  ENT RY  *  IE Q  P ) 


8  ISEQ(NEOP)  =  ILINK{ T  ,2) 

NFQP=NEQP+  l 
7  CONTINUE 


’  !  .  r 

’Ml 

’  ’  t  *  •  •  ’ 

!T  <r-  11  F 

■x 


* . 
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SUBROUTINE  SEQNC  ...(CONT’D) 


C*****  IF  NEQP  Z  JEQP  NOT  EQUAL,  MEANS  ENTRY!  S)  FCUNO  IN 

C  *****  *  I  LINK.*  •  THESE  F NT RY  (  S  )  MUST  BE  CHECKED  FHD  FURTHER 

C  *****  ENTRYS  (IE)  A  CHAIN.  IF  ALL  ENTRIES  CHECK  EC, 

C*****  CONTINUE  (LOOK  AT  NEXT  '  IREC*  ENTRY) 

I F ( NEQP- J  E  Q  D )  1,  1,9 


EQUATE  I EQP  [0  FIRST  'ISEQ*  ENTRY  NOT  CHECKED  Z  GO 

TO  10 

9  TEQP=ISEQ< JEQP) _ 

JEQP= JEQP+ L 
GO  TO  10 
1  CONTINUE 


C*****  CHECK  FOR  SEQUENCE  BUILDING  ERROR 


I F( NEQP-l-KBOT)  12,11,12 
12  WRITE (  I  HR  I T  ,2000 ) 

11  CONTINUE 


C*****  HERE  TO  20  FIND  STREAMS  THAT  MUST  BE  ASSUMED 

C*****  FOR  PRESENT  SEQUENCE  -  FOR  EACH  ENTRY  IN  * ISEQ' 

C *****  FIND  ALL  INPUTS  USING  'INFO*  (ALL  ORIGINAL  NON-ZERO 

C*****  , NON-PSEUD 0—  STREAMS)  -  IF  SOURCE  EQUIP  OF  INPUT 

C*****  OO^S  N  it  OCCUR  PREVIOUSLY  IN  * ISEQ* »  STREAM  MUST  BF 
AS SUM E  D 

C*****  KASUM  -  ASSUMED  STREAM  COUNTER 


901  K  ASUM-0 

DO  30  1-1,25 
30  I ASUM ( I ) =0 


C*****  CHECK  EACH  E NTRY  IN  'ISEQ' 


DO  20  KREC= 1 ,NNEQP 

C*****  CHECK  NON-ZERO, NON-PS EUDO  STREAMS  IN  *  INFO*  FOR 
C*****  INTER-EQU1 P  INPUTS  TO  I SEQ(KREC) 


_ DO  21  KSTRM-1,50 _ 

I F( INFOIKSTRM, 1 ) )  24,21,24 
24  IF! INF0(KSTRM,3 )-ISFQ(KREC) )  21,22,21 

C*****  CHECK  IF  INPUT  SOURCE  PREVIOUSLY  ENCOUNTERED  IN 
q *  I SEO * 


22  DO  23  I E QP= 1 , KREC 

I F (  INFO ( KSTRM , 2 )  )  27,21,27 
27  IF(  INF0(KSTRM,2)-ISEQ(  IFQP)  )  23,21,23 
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SUBROUTINE  SEQNC  .  ..(CONT'D) 


23  CONTINUE 

C*****  STORE  ASSUMED  STREAM 


_ KASUM=KAS!JM  +  1 _  _  _ _ 

I ASUM(KASUM) =KSTRM 
21  CONTINUE 
20  CONTINUE 

IF( IOPTJ  950,950,879 
879  IFUDBUG!  13  )-l)  881,830,  830 

830  WRITE ( I WRIT ,2001  )  (  ISEQt I ) , 1  =  1 ,NNFQP  ) _ 

I PIKA SUM)  25,25,26 

r*y-***  PRINT  STREAMS  WHICH  MUST  BE  ASSUMED  USING  THIS 
C*****  SEQUENCE,  fr  ANY 

26  WRITE  MWRIT  ,200?  )  (  I A  S  U  M  (  I  )  ,  I  =  1  ,  K  A  S 1J  M  ) _ 

25  CONTINUE 

831  CONTINUE 
RETURN 

950  WRITE (IWRIT,40G0J  (  I  SEO  (  I  )  ,  I  =  1  ,NNEQP ) 

IFIKASUM)  952 , 952, q53 

953  WRI TE ( IWRI T ,2002)  (  I  A  SUM U )  ,  I  =  1  ,  K ASUM ) _ 

GO  TO  951 

952  WRI TE (IWRIT, 4002 ) 

951  WRITE ( IWR I T,9000) 

RETURN 

2000  FORMAT ( 1  H  ,  *  ERROR  IN  SEQUENCE  BUILDING') 

2001  FORMAT ( ' 0  *  T4Q ' F OR  THC  CALCULATION  SEQUENCE  -*/</T25 _ 

S, 2013  n 

2002  FORMAT! *  0*135' THE  FOLLOWING  STREAMS  MUST  BE  ASSUMED,* 
$/ ( /T40, 10I3T  > 

4000  FORM  AT  C ' 1  * / / //T37  *  THE  GIVrN  CALCULATION  SEQUENCE  IS  -' 
%/ 

1 ( /T 25 , 20 1  3 )  ) 

4002  FORMAT { *0 ' T42* NO  STREAMS  NEED  BE  ASSUMED.'/) 

90Q0  FORMAT!  '  O'  ,  T25,  '  ❖❖❖  #  :#####  ❖###❖#  *  *  #  #  *  #  *  *❖ 

&•  4/  4»  4.  4#  4»  -*l*  Jii  4/  4» 
p  -<•'  -y  v  '»'•  4'  *y*  'f'  'i'  <r  p5,  ''r**-  *r 

]_  *  $  *  |c  ijs  *  *  »  /  ) 

END 


■  Ci- 

{  •  :  : 

•:  . 


,  ,  i  •  )  t  ■  '  • 

(  •  .  '  T  • *  * 

♦ 

♦  i  n  (  ,  v  d 

*  ( 1  ’  i 

.  =  .  (  i ;  ■  )  .  1  t  i  ? 

r: 

t  «  '  i  - 

•  .  *  •, 

'  \  •  * 

(  !  .  1 '  7  \  '  ! 

'  •  ) 

'  ,  .  ’  M 

'  '  '  .  f 


D-  132 


r 


vU  •l-'  X  >A*  4/  Jy  »•/  J/  >•»  J,  \0  s1/  X  O/  *A#  v*v  J/  4,  »V  4/  J«  4>  iA<  V'  v*'  ■**'”  *•>'  '*•'  «4x-  nV  4/  -Jr  >V  4r  4^  »<«  Jx  J,x  4»  -40  *•»  4/  4«  »**•  >1/  4x  J/ 

^  '  *»(N  Xj\  '‘fS  Xj  >  ,X|<  ^  /jK  /,S  X,X  X,A  -X  X  x j  V  xp  X,*»  XjX.  XfS  Xj%  x^k  _',v  Xj\  x,  X  /(v  x^  ^  V  X^x  **yx  XjV  X|X  X|X  x^.  X,x  XjX  x^x  X|\  X|X  X|X  X,X  XjX  *|X  X|X  X^X  -X  X|X  x^x  X|X  XjXXjX  X,  V  xp  xfx 
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c 
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SUBROUTINE  RXWHR 


FUNCTIONS  - 


PRIMARY  REACTION  FURNACE — WASTE  HEAT  BOILER 


ROUTINE  * 

-  INITIALIZES  CALCULATIONS  —  DESIGNS  OR  SIMULATES  * 

THE  COMBUSTION  CHAMBER ,  AND  ONE,  TWO  OR  THREE 
BOILER  PASSES  * 

-  CALCULATES  ONE,  TWO  OR  THREE  BYPASS  STREAMS  IF  * 

THEY  EXIST  AND  STORES  THE  MAIN  BOILER  EXIT  STREAM  * 


❖ 

* 


C 

c 

c 


*  -  FINDS  STEAM  DROni)C  T I  ON  AND  SULPHUR  CONVERSION 


xlx  xV  X*X  4x  xtx  4x 


4/  xA>  x*x  x*x-4x  x'x  -Jx  xtx  Jr  x'x  %V  4/  -Jr  Jr  xl'  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  4/  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr 

X,X  X,X  -JX  -XjX  7,X  XJX  X|‘  ';•*  ■'jX  X,V  /jX  -XfX  X|X  X,x  ^X  XjX  .XjX  X(.  >(V  x,v  X,x  >,x  xyx.  4,X  *j»  XjX  /,v  x,x  /(X  XjX  XX, X  ijX  Jjx  -x.x.  ^X  x,x  *,x  x>»  X(X  >(»  «{X  x,x  x-fx  x^x  x,v  X|.  X|X 


SUBROUTINE  RXWHB 

DIMENSION  N8YPSI3) _ _ _ _ 

COMMON  /GEM  1 / I WP IT ,  IDBUCI  15) , ITEST,CRI T , NGMS  , NTOT  " 

COMMON  /GEN2/TEMP,TFEED,YC0MP( 20 ) , YFEEDI 20 ) , PRESS, ENTH 
COMMON  /DATA5/I0H20,  IDSULC5  )  ,WTMOU20)  ,VM0LEI20) 

COMMON  / S  TOR 1/ EQUIP (  300 ) , I L  QC  »  N MB E Q ,  S  T R E M ( 50  »  22 ) 
$,NSIN!5) , NS OUT ( 5 ) 

COMMON  /HTLS1/TNUMB,TDI AM, T LONG, TSHLI ,TSHL2 , GLOSS 

$ , DELPC , OELT  P 

COMMON  /8URN2/IFLAG, I  PAS S , MPASS, ESTMT { 3 ) 

WRITE (INR IT, 6000)  NMBEQ 


C*****  CALL  BINIT  TO  INITIALIZE  BOILER  CALCULATIONS 


CALL  B I N T T ( NSTMS , NS T MP , P STEM , N3 YPS , NE X  IT , NO P A S ) 
C*****  C  all  BRXNC  T 0  DESIGN  /  SIMULATE  R X N .  CHAMBER. 
CALL  BRXNC 

_ I  F  (  ITFST-1  )  B  1  I  ,310,810 _ _ _ 

3  10  WRITE! I  WRIT ,9001 ) 

811  CONTINUE 
I nA  SS  =  1 
MR AS S  — 0 

C****»  DEFINE  IFLAG  FOR  PASS _ 

1  CALL  FLAGII  IPASS+MPASS  ) 

£**#**“  DEFINE  JFLAG  FOR  DASS. 

CALL  FLAG J ( JFLAG  ,NBYPS , NOP AS ) 

CALL  D0PAS  ( JFLAG, M0PAS) 

C***«*  CHECK  FOR  BYPASS  STREAM! SI . 
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SUBROUT  INF  RXWHB  ...(CONT'D) 


28 

I F I NOP AS- 1 P  ASS )  47,28,1 

NCN  T  =  3 

29 

30 

IF(NBYPS(NCNT) )  30,30,31 

NCNT=NCNT-1 

IFINCNT)  1,1,29 

31 

NPL AC=ILQC+( 17+NCNT*?) 

BYPAS=SETVU (ABS ! EOU I P ! NPLAC  )  )  ,0. 1  ) 

00  49  1=1, NGMS 

49 

Y FEED ( I ) = Y C 0 M P (  I  )*( 1.0-BYPAS) 

YCOMP! I )=YCOMP( I )*BYPA$ 

CALL  SUTIL  (NBYPS(NCNT) ,2, YCOMP, TEMP, PRESS) 

00 

PO  60  1=1, NGMS 

YCOMP!  I  ) =YF EEO ( I  ) 

I F ( I  TEST- 1 )  801,800,800 

800 

WRITE (  I NR  IT  ,500  0 )  NCNT , 3YPAS 

CALL  PRNTS INBYPS(NCNT) ) 

IF(NCNT-l)  305,805,801 

805 

301 

W RITE { I WRIT,  5001) 

CONTINUE 

IF(NCNT-l)  1,1,30 

4  7 
50 

IF( IPASS-NOPAS)  1,1,50 

CONTINUE 

/“*  >.1#  -J»  Jy 

L  * 

*  DEFINE  STREAM  EXIT  BOILER. 

CALL  SUTIL  (NEXIT, 2, YCOMP, TEMP, PRESS) 

IDE  WS=500. 

CALL  DEWPT ( TDEWS , YCOMP, PRESS , 1 ) 

TDE  WW=1 5C . 

802 

CALL  DEWPT ( TDEWW, YCOMP, PRESS, 0 ) 

I  F ( I  TEST-  1 )  803,302,802 

WRITE (  IWR  IT  ,5050 ) 

CALL  PRNTS(NEXIT) 

WRITE (  I  OR  IT  ,5002)  TDEWS, TOEWW 

WRITE { I  WRIT ,9000 ) 

803 

CONTINUE 

CALCULATE  BOILER  STEAM  PRODUCTION  RATE. 

PUT Y=EQUI P (  ILOC  +  28) 

CALL  STEAM! DUTY , TS HL 1 , PSTEM , NSTMS ,NSTMP , 27 ) 

PQ  100  J-l ,3 

NSTRM-N5YPS ( J) 

IF(NSTRM)  100,100,101 

101 

1  02 

CALL  SUTIL! NSTRM  ,l,YEEED,TFEFD,?FEED) 

DO  102  I = 1 , NTOT 

YCOMP ( I ) =  Y  C  0  M  P  (  I  )  +YFEEO ( I ) 

100  CONTINUE 


CALL  PRCNT ( 2 ) 
RETURN 
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SUBROUTINE  RXWH8 


( CONT  *  0 ) 
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5000  FORMAT!///,  T33,  '  BOILER  BY-PASS  NO.*  13'  ,  (RATIO  =  ’ 

$  ,  F7 . 4  ,  »  )  *  ) 

50  )1  FORMAT  (  '  1  •  ) 

500?  FORMAT ( //T35 ' STREAM  SULPHUR  DEW  PT.  (DEG.  F)  =  *,F7.1 

_ $/T35' STREAM  W _ _ _ _ _ _ 

1ATER  OEW  PT.'  (OEG.  F)  =  (,F7.  I) 

5050  FGRMAT(///T45, 'BOILER  EXIT  STREAM  -') 

6000  FORM AT<T34» 'COMBUSTION  REACTION  AND  WAST-  HEAT 
$  BOILER** / T 4 5 
It ’EQUIPMENT  NUMBER  ’13) 

9000  FORMAT!  *  O’  ,T25  »  '  *********** 

jf"  ■J.  ■J#  sO  V*.  sO  -»!<< 

TJ  V  *♦'  ■'»"  •S5'  V  'r  V'  •'V  v  -V- 

!**********!/  ) 

9001  FORMAT  C  *  1 1  f 
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C_ 

c 

c 

c 

c 

c 

£ 

c 

c 

c 

c 

c 

_c 

c 

c 

c 
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SUBROUT  INF  BINIT 


FUNCTIONS  - 

-  BOILER  INITIALIZATION  ROUTINE 

-  INITIALIZES  BOILER  CALCULATIONS  —  DEFINES  * 

BOILER  FEED,  EQUILIBRIUM  CUTOFF  TEMPERATURE,  * 

BYPASS  AND  EXIT  STREAMS,  STEAM  STREAMS  AND  * 

JOtLER  STEAM  PRESSURE  * 

-  CALCULATES  BOILER  STEAM  TEMPERATURE,  CHECKS  * 

DATA  COMPATIBILTY  AND  FLAGS  WHETHER  A  MUFFLE  » 

FURNACE  OR  A  FIRE  TUNNEL  IS  USED  * 


>  4#  -*»  ■  4/  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  4**  X  X  X  X  X  X  X  % 

.  /,N  >(»  <yx  ^  »jv  /-jX  >J*X  '(S  >|*  ^  /,«>  J'jV  <*|»x  J»,x  .»VX  jyx  <,>  x  ^  <^X  I1,'  *<y*»  * 


'  X  X  »lj-  X  X  xV  xV  xU  X  x*/  x*^ 

V  T  'V*  ■'C'  V  ^  ,TTV  •'l*  ■Y'  •*ix 


S  UR  ROUTINE  81 NI T ( NS  TM  S , NSTMP , P STEM, NBYPS , NEX  I T , NORAS ) 

_  DIMENSION  YSTEH! 20)  , NBYPS (  3) _ _ 

COMMON  /GEN1/IWRIT  ,  IDBUGI 15  5  ,  I  TEST, CR I T , NGMS , NTOT 
COMMON  /GEN2/TEMP,TFEED,YCOMP(  20)  , YFEEDC20)  ,  PRESS,  ENTH 

_  COMMON  /DAT A5/IDH20, IDSUM5 ) ,HTMOL(2Q) , VMOL  E { 20) 

C 0  M MO N  /ST  o R 1 / E Q U I p ( 3 0  0 )  , I L  0 C , N M B E  Q , S  T  R  E M (50,22) 

$ , N  S I N ( 5 )  , NSOUT ( 5) 

_ C.  OM  MON  /HTLS1/TN  UMB ,  T  D  I  A  M  ,  T  L  ON  G ,  TSHL  1 ,  TSHL2  ,  GLOSS _ 

$ , DE  L  PC, DEL  T  P 

C OM MO N  /BURN 1 / TCTOF , T BURN , I  MUFF , NLGTH , NO I  AM , NR T I M 
$,NHRLS,NBURN 

C  OM  MO  N  7 D  UR  N  2  /  I  F  L  A  G  ,  I  P  A  S  S  ,  M  p  A  S  S  ,  E  S  T  MT  I  3  ) 

COMMON  /  F  L  0  W 1  / I N E 0 ( 75, 5) , NNEQP, NOSTM 
NOP AS=ABS ( EQUIP ( ILOC+1 ) )+0.5 
f STMT { 1) =1400. 

ESTMT (2 ) =  900. 

E  §  T  M  T  <  3  )  =  600. 


TCTOF  SPECIFIFD  OR  ELSE  1100.  DEG.  F. 


TCTOF=SETVU (-EQUIP! ILOC+25) ,1100.0) 

EQUIP! ILOC+25 )=SIGN( TCTOF, EQUIP! ILOC+25) ) 


C*****  0 E F INF  COMBUSTION  PEED. 

_ N  S  T  R  M  =  0 _ 

CALL  SUTTL  (NSTRM, 0 ,YFE ED, T FEED , PRESS ) 

CALL  PRCNT(l) 

CALL  PRNTS(-l) 


C*****  DEFINE  BYPASS  STREAM! S)  IF  PRESENT. 


NCNT=0 

DO  21  1=1,3 

NPL AC= l LOG  + ( l 8  + I *2 ) 
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SUBROUTINE  BIN  IT  .  ..(CONT'D) 


N  8  Y  P  S ( I ) = -EQUI P ( NPLAC ) 
IFCN8YPSC I) )  21,21,20 

20  NCN T~NCNT  + 1. 

21  CONTINUE 


C*****  DEFINE  STEAM  SOURCE  STREAM  IF  PRESENT. 


N  STMS=0 

I  F (  INFO? NSTRM,5 )  )  23,23,22 

22  N ST M S=NSTRM 

23  CONTINUE 


C*****  DEFINE  PRIMARY  EXIT  STRFAM. 


DO  24  1=1,4 
NEXT  T=NSOUT ( I ) 

DO  25  J=  1 , NCNT 

I F { NEX I T -NBY°S ( J ) )  25,24,25 
25  CONTINUE 
GO  TO  26 
24  CONTINUE 


DEFINE  STEAM  PRODUCT  STREAM  IF  PRESENT. 

26  NSTM  P= I ABS ( N SOUT ( NCNT  +  2 )  ) 

£**$**  COMPARE  8GILER  OUTLET  TEMP.,  BYPAS  TEMP. ANOSTEAM 
C*****  ° R E S S .  DATA  FOR  COMPATIBILITY. 


DO  17  1=1, NCNT 

17  CALL  COMPR ( NBYPS ( I ) , 21,7+NQPAS) 
CAt  L  COMPR (NEXT  T,21 , B+NOPAS) 
CALL  CO-ID-  (  *  j  $  f  M  P  ,  2  2 , 2  7) 

CALL  COMPRfNSTMS, 22,27) 


C.** ;***  DEFINE  BOILER  STEAM  STREAM 

CALL  SUTIl  (NSTMP, 1 ,YSTEM, TSTEM, PSTEM ) 


STEAM  TEMP.  ESTIMATED  OR  GUESSED  450.0  DEG.  F. 


TSTEM=SETVU( TSTEM, 450.0) 

STEAM  PRESSURE  SPECIFIED  OR  250.0  PST  A. 


PSTEM=$ETVU (-EQUIP? I LOC+27 ) , 250 . 0 ) 


C*****  MAKE  SURE  SOME  H20  IS  IN  STREAM  . 


YSTEM( IDH20  )  =  SETVU ( YST EM {  IDH20  ) , 1 .0) 
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SUBROUTINE  3INIT  ...(CONT'D) 


/***  ■.*»  «!<■ 
o 

CALCULATE  SATURATED  STEAM  TEMP. 

CALL  DEW PTC TSTE M , ^STEM , PSTE M, 0 ) 

TSHL1-TSTEM 

T  SHL2=TSTEM 

CHECK  IF  MUFFLE  FURNACE  EXISTS  £  FLAG. 

f  >!;  si--  *  *  sjt 

2^  ;*r  ^  2*C  J's 

I p  ONE  EXISTS,  TLONG  MUST  BE  SPECIFIED. 

IF  ONE  DOES  NOT  EXIST,  FIRST  PASS  TNUM8=  1  . 

I  MUFF  =0 

NBURN= ILOC+26 

NLGTH=  ILOC+  2 

12 

NO  I AM~ I LOC  +  6 

IFCEQUIPC ILOC+2) )  12,11,11 

TEC ABSCEQUTPC ILOC+3 )  +  1 .0 )-i  .OE-2)  11,11,13 

13 

I MUFF= 1 

NLGTH= ILOC+  1 7 

NO I AM= IL0C+ 18 

11 

CONTINUE 

NRT  IM=  IL0C+  15 

NHRLS= I LOC+ 16 

NDUTY= I LOC+28 
E QU  I  0 { NOUTY  )  =  0.0 
RETURN 


END 
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P  -X  «A>  '•I*  X  -.(»  -X*  -J»  v'^  »(/  *A»  X  01 »-  -X  vX  X  X  X  X  X  J.  J/  X  X  X  X  J»  X  J*  X  X  X  X  X  X  X 

/,»  <y.  >|*  •v*  /(••  ^  ^  /)S  »|*  -*p  ■■_,%  *(%  r*^%  ^jv  /js  >ys  >,v  *)s  >Y^  X*  v  X'N  7s  Y  *)'•  'j‘  'y'  >:*  <j»  ^  ^  J,*- 

 - 

C  *  SUBROUTINE  OOPAS 

C_  * 

0  *  FUNCTIONS  - 


#  #  #  £  jjC  5&  #  j{C  ifc  :{C  jfc  # 

X 


* 


r  * 

:  j 


* 


C _ *_  _  -  BOILER  TURF  PASS  CALCULATION  ROUT  INF  _ _* 

C  *  -  SIMULATES  OR  DESIGNS  BOILER  TUBE  PASSES  '  “  “  '  * 

C  *  -  SIMULATION  —  SINGLE  PASS  NON-ADI AB AT  I C  * 

C  *  TEMPERATURE  CALCULATION  * 

C  *  -  DESIGN  --  SINGLE  OR  MULTIPLE  PASSES  —  ITERATIVE  * 

C  *  TUBE  NUMBER  DETERMINATION  * 

C  *  -  CALCULATES  PKFSSURE  DROP  AND/OR  TUBE  DIAMETER _ * 

C  *  FOR  EACH  PASS  "  * 

C  *  -  CALCULATES  BOILER  HEAT  LOAD  (DUTY)  * 


C 

C 


X  X  X  X  X  X  X  X  X  X  X  X  X  ' 

■  *  ')»  ',*  -■(»  'j'  >*j«-  ^ 


*  TT  V  TP 


X  X  X  X  X  X  X*  J»  X  X  X 

x,*»  /,»  ',-v  (i,*  <|»  ^  *.j-»  -«!» 


SUBROUTINE  DOPAS  I J FLAG , NOPA S  )  _ _ 

COMMON  /GEN1/IWRIT, IDBUGI 15) , I TE ST, CR I T, NGMS , NTOT 
COMMON  /GEN2/ TEMP, T FEED, YCOMP( 20 ),YFEE0(?0),PRESS,ENTH 
C OMMON  /ST0R1 /EQUIP (300? , I LOC, NMREQ, STREW  50,2?) 

$»N$  IN  (5  ) » NS  DlfH  5) 

COMMON  /HTLSl /TNUMB, TDI AM , T LONG , T SHL1 , TSHL? , CLGSS 
T, DELPC, JELTP _  _  _ 

COMMON  /BURN2/ IFLAG, I  PASS , MPASS, E STMT { 3) 

2  CONTINUE 
N  OH  L  S  =  1 

IFUFLAG-1)  3,3,4 
4  I  F  ( I TE  ST-2 )  801,800,800 

800  IF(  MPASS)  305, 3  0  5,306 _ _ 

306  WRITE  (I WRIT, 3005)'  IPASS 

GO  TO  801 

306  WRITE! IWR IT, 3006? 

501  CALL  NCALC 
I  FL  AG- l 

J  FL  AG-  1 _ _ _ 

TEMP-ESTMT ( I  PASS ) 

GO  TO  2 

3  I F{  I T EST- ?  )  803  ,  3^7,302 

502  WRITE C  IWRIT, 3010)  I  PASS' 

803  CALL  TCALC(NOHLS) 

I F  (  I  TEST-1 )  805 , 804,804 _ _ _ _ 

8 04  T  F ( NOPAS-T PASS)  10,10,11 

11  CALL  PRNTS(O) 

GO  TO  12 

10  WRITE ( IWRIT ,9000 ) 

12  V?  RITE  (IWRIT  ,9001) 

805  CONTINUE _ _ _ 

NUMBT- ILOC+ I PASS+8 

NUMBN=IL0C+IPASSt2 
NUMB  P= IL0C  + IPASS  +  ll 


•,  ■  ;V.  ■  ■  r  i  \ 
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SUBROUTINE  OOP AS  . . . ( CONT * 0 ) 


NUMBO= ILOC+IPASS+5 


E QU I P ( NU MBT )  =  SI  ON ( TEMP, EQUIP! NUMBT) ) 

E a U  I P  (  H t J fi B? N  ) ■=  S  I G N(TN U MB  v  EQU I P  <  NUMBfiTT 
EQU I P ( NUMBD )  =  — TO  I  AM 


FQUI PtNUMBP ) =DELPC 


30 

DO  30  I = l , NGMS 

YEEED (  I 5  =YCOMP {  I ) 

TFEEO=TEMP 

NDUTY= ILOC+28 

EQU  IP (NOUTY ) =EQU IP( NDUTY ) +QLOSS 

IE  IMP  ASS)  46,46,45 

45 

MPA SS=MP ASS-1 

I PASS=I PASS+1 

J  FL  AG=2 

NUMBT=  ILOC+-  IPASS+MPASS+8 

TEMP=-EQUIP(NUMBT) 

CALL  EL AG IC  IP ASS) 

46 

CO  TO  3 

CONTINUE 

I  PA  SS  =  I  D  AS S  + 1 

3005 

3006 

RETURN 

FORMAT {///T 44, ’DESIGN  OF  *ASS  NO. 
F0RMAT{///T42, 'MULTIPLE  TUBE  °ASS 

*  ,  12  ) 

DESIGN  .  * ) 

3010 

9000 

FORMAT! ///T40,f SIMULATION  OF  TUBE 

FORMAT! *  O' , T2  5, 1  ************  ***** 

O.  J*  **/  JO  »Jlr  -.1*  .•*  Jr  J« 

*-v  /j\  r,\  rj.  r,.  ,*p 

PASS  NO.  '  ,12) 

Jr  Jr  Jr  -.Ir  Jr  Jr  Jr  Jr  -Jr  Jr  Jr  Jr  J*  sir  sir  Jr  Jr  Jr  Jr  Jr  Jr 

-y.  r,»  r,»  rp.  r^  r,«  rj»  rjS.  >,v  r^  rf»  r,»  r,.  r^  r(.  rj»  r-,v  ... 

* * -  -  *  * /  } 

9001  FORMAT C ' 1 ’ ) 


END 
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*  sje  jfc  ;{c  sjc  s’;  ^  sjc  ije  #:$:  =Jt  *  5*c  ;js  #  :Jc  *  -ff  #  s{e  aj<  s!c  $  s’;  #  *  ^  ^  i[<  :£  £  2$;  :?:  jjc  £  >>;  #  s’;  #  ■£  *  -£  ■£  #  *  *  #>)c  ■%  ^ 


* 

* 


SUBROUTINE  FLAG! 


FUNCTIONS  - 


IFLAG  UTILITY  ROUTINE 


❖ 

* 

* 


C 

c 

c 


r 

U 

c 

c 


* 


;c  — 


SETS  THE  FLAG  IFLAG  FOR  THE  PASS  (l  EOR 
DIAMETER  SPECIFIED,  PRESSURE  DROP  TO  RE 
CALCULATED,  2  FOR  TUBE  DIAMETER  AND  PRESSURE 
DROP  TO  RE  CALCULATED”) 

SETS  BOILER  LENGTH 


* 

$ 

* 

* 

* 

* 


C 


sjcsjc  %  %  %  jjs* sf:  2^  #>}c  aj;  if  x'c  5}:  &  s^c s':  # ^  jje  s{c jjc  j{c  a{c  sje  s{s  =}:  sj<  3?c 


SUBROUTINE  FLAGI t ICNT) 

COMMON  /GEN1/IWRIT, IDBUGI 15) , I  TEST , CR £ T , NGMS , NTOT 
COMMON  /STOR1 /EQUIP (300) , ILOC, NMBEQ, STRFM( 50,22 ) 

$  »  NS  I  N  <  5  )  ,  NS  OUT  (  5) 

C  OH MO N  / HTLS1/TNUMB,TDIA M , TLONG, TSHLI ,  TSHL2 , GL 0 S  S 
$ , DFLPC , DELT  P 

COMMON  /BURN1/T CT0F,T8URN» IMUFF, NLGTH, NDI AM , NRTIM 
$♦ NHRLS»  NBURN 

COMMON  /BURN?/ IFLAG, I  PASS , MPASS , ESTMT ( 3) 

TLONG  =  SETVU  (ABS  (  EQUI  P(  I  LOC  +  2  )  ),20.) _ _  _ 

NUMBD= ILOC+ ICNT  +5 
NUMBP=ILOC+ ICNT  +  11 


C*****  ALWAYS SIMULATE  FIRST  PASS IF  NO  MUFFLE  FURNACE 

C*****  PRESENT. 


I F (  I P ASS f I  MUFF-  I)  I,  1,11 
1  TDI AM=ARS( EQUIP ( IL0C+6) ) 
I  FLAG-1 
RETURN 


C 


x*v  -vt-- 


IF  TDIAM  SPECIFIED,  CALCULATE  DELPC. 


II  IF{ EQUIP! NUMBO) )  ?,3,3 
c  ***** .  SIMULATION  CASE. " 


2  I PL  AG- 1 _ 

T  DI AM  =  -EQU I P ( NUMRD ) 


! F  DELTP  ALSO  SPECIFIED  -  ERROR. 
C***#*  (ASSUME  DESIGN  CASE  IN  T H IS  EVENT)  . 

_ TF(EQUIP(NUM3P)  )  4,5,5 _ _ _ 

5  RETURN 

C*****  IF  DELTP  SPECIFIED,  CALCULATE  TDIAM 
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SUBROUTINE  FLAG  I  .  ..(CONT'O) 


C*****  IF  NEITHER  SPECIFIED,  -  ASSUME  DELTP  (DFSIGN 
CASE ) » 

3  I F ( EQUIP! NUM8P) )  6,10,10 


C: 


DESIGN  CASE. 


6  I  FLAG -2 

DELTP^BQUIPINOMBPJ 

RETURN 


C*****  IE  NEITHER  SPFC.  GIVEN,  ASSUME  DESIGN  CASE. 
C*****  {SPECIFY  DELTP*  0.40  PS  l  A.) 


10  I  FL  AG  =  2 
DELTP-O. 4 
RETURN 


C*** <**  IF  BOTH  SPECS.  GIVEN,  ASSUME  DESIGN  CASE. 

4  WRITE  C IWR  I  T  75000  ) 

I  EL  AG=2 

_ DEL  TP  =  -EQIJ  I  P  (  NUMBD  ) _ _  _  _  _ 

RETURN 

5000  FORMAT ( *  0  INVALID  BOILER  SPECS.  -'/*  ONE  AND  ONLY 
$  ONE  OF  TOT AM  0 

lRDELTP  MUST  3F  SPECIFIED  FOP  EACH  BOILER  TUBE  PASS. rl 
END 
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¥ 

SUBROUTINE  FLAG J 

¥ 

Mr 

¥ 

c 

c 

c 

♦ 

y. 

FUNCTIONS  - 

-  JF  LAG  UTILITY  ROUTINE 

* 

❖ 

c 

SETS  THE  FLAG  JFLAG  FOR  THE  TUBE  PASS  (1  FOR 

* 

c 

SIMULATION  —  (TUBE  NUMBER  GIVEN,  EXIT 

c 

Mj 

TEMPERATURE  TO  BE  CALCULATED),  2  FOR  DFSIGN  — 

r 

nV 

(EXIT  TEMPERATURE  GIVEN,  TUBE  NUMBER  TO  BE 

-X- 

¥ 

c 

y# 

DETERMINED) 

-v- 

c 

•A/ 

¥ 

-  DEFINES  ESTIMATE  FOR  EITHER  EXIT  TEMPERATURE 

* 

C 

* 

OR  TUBE  NUMBER 

* 

c 

-  FLAGS  FOR  MULTIPLE  TUBE  PASS  DESIGN  IF  THTS  IS 

* 

c 

* 

TO  BE  DONE 

r 

o  o 

¥ 

'■r*  '*}'• 

*  ***  **  *  **  ************ ******* ************************ 

* 

*  ** 

SUBROUTINE  BLAG J ! JF LAG »  NBYPSj  NOPAS ) 

DIMENSION  NBYPSI3) 

COMMON  / GEN 1/ 1 MR  IT , IOBUGl 15) » ITEST,CRI T  , NON S  *  NT OT 
C  OMMON  '/  G  F  N  2  /  T  E  M  P  ,  T  f  F  E  P  ,  YC  0 M  p  (  20  )  ,  YFlEEbC  20 1  ,  PRES  S,  ENTH 
COMMON  /STORI/EQUI P ( 300) , ILOCf NMBEOt STRFM( 50,22) 

$,  NS  INI  5) , NS OUT { 5) 

COMMON  /HTLS1/TNUMB,TDIAM, TLONG  *T SHL 1 , TSHL2 , QLOS  S 
$, DEL PC » DEL TP 

COMMON  / 8UR  Nl/TCTOF , TBURN, I  MUFF , NLGTH , NDI AM , NRT I M 
~i  ,  NH  RL  S  ,  NBURN 

COMMON  /8URN2/ I  FLAG , I  PASS  , HP ASS, E STMT  I  3 ) 
l  ICNT= I PASS+MPASS 
NUMBT=ILOC+ ICNT+3 

NUMBN-=  I LOC+- ICNT+2 

C *****  ALWAYS  SIMULATE  FIRST  P ASS  I F  NO  MUFFLE  FURNACE 

r *****  PRESENT. 


IFUPASS  +  IMUFF-1)  2,2,3 
?  TEMP= 1700 . 

T  NUMB= 1 
JFLAG«I 
RETURN 


C*****  if  TNUMB  SPECIFIED,  CALCULATE  TEMP. 

_  3  Ifj EQUIP! NUMBN) )  8,9,9 

C***«*  SIMULATION  CASE. 

b  JfUag=T 

TNUM8=-EQU I P{ NUMBN) 
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SUBROUTINE  FLAGJ  .  ..(CONT'O) 


C****4 c  if  TEMP  ALSO  SPECIFIED,  -  ERROR. 

C*****  IF  TEMP  ESTIMATE  GIVEN#  USE  IT. 

C*****  OTHERWISE  GENERATE  TEMP  GUESS. 


_  T  F(  EQUIP!  NUMBT  )  )  5Q,  11,  L2 

11  TFMP=ESTMT (  ICNT  5 
GO  TO  13 

12  TEMP=EQUIP( NUMBT) 


C*****  CHECK  FOR  MULTIPLE  PASS  SIMULATION  ATTEMPT. 
C*****  {MULTIPLE  PASS  CALCULATIONS  DONE  ONLY  FOR  DESIGN) 


13  IF (MP ASST  14, 14,51 

14  RETURN 

C*****  if  TEMP  SPECIFIED,  CALCULATE  TNUMB 

C****#  IF  NEITHER  SPEC  GIVEN,  ASSUME  MULTIPLF  PASS  DESIGN 


9  I  FI  EQUIP! NUMBT)  )  20,30,30 
20  J FLAG =2 

TEMP--EQUI P { NUMBT) 


C*****  TF  TUBE  FST I MAT  E  GIVEN,  USE  IT _ 

C***«*  ~  (OTHERWISE  GENERATE  A  TUBE  NUMBER  GUESS) 

2  5  TFIEQUIPf  NIJMBN)  )  22,2  2,2  3 
"2  T  NUMB  =  50 . 

GO  TO  24 

23  T  NU  MB-EQU I  p  !  NIJMBN) _ _ 

24  RETURN 

SIMULTANEOUS  MULTIPLE  TUBE  PASS  DESIGN  CASE. 
30  M  PA SS -  MP  ASS  + 1 


C*****  CHECK  FOR  LAST  TUBE  PASS  -  ERROR. 


IF!  IP  ASS  +MPASS-NOPAS )  3  1,  31,  12 

32  WRITE (I WRIT, 5002) 

C***#*  ASSUME  FINAL  TUBE  PASS  OUTLET  TEMP. 


40  TEMP-ESTMTI  ICNT) 

JFL AG=2 _ 

M  P  A  S  S  =  M  p  A  S  S  - 1 
GO  TO  25 

CHECK  THAT  BYPASS  NOT  INCLUDED  IN  MULTIPLE  DESIGN. 

C*****  (IF  BYPASS  DESIRED,  BYPASS  TEMP.  MUST  BP  SPEC.). 
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SUBROUTINE  FLAGJ  .  ..(CONT’D) 


31  DO  34  1=1,3 

IFCNBYPSJIJJ  34,34,33 
34  CONTINUE 
GO  TO  1 

33  I  F  (  IPASS+MPASS-NUPAS+1 )  1,1,35 

3  5  WRITE ( IWRTTf5003  ) 

GO  TO  40 


C*****'"  IF  BOTH  TNUMB  AND  TEMP  SPECIFIED,  ASSUME  DESIGN 
CASE. 


50  WRITE { I  HR  IT ,5004 ) 

GO  TO  52 

C*****  I E  MULTIPLE  PASS  SIMULATION  ATTEMPT*  ASSUME  DESIGN 
CASE. 


51  WRITE ( I WR I T  ,5005) 

52  JFL  AG  =  2 
TEMP=ESTMT{ ICNT ) 

GO  TO  25 

5003  FORMAT { *  0  INVALID  BOILER  SPECS.  -*/»  RYPAS  STREAM 
$  MAY  MOT  BE 

1  INCLUDED  IN  MULTIPLE  TUBE  PASS  DESIGN.*/*  (BYPASS 
£  STREAM  TEMP. 

1MUST  BE  SPPCI PI rD.  )  ’  ) 

5002  FORMAT ( *  0  INVALID  BOILER  SPECS.  -•/*  FOR  DESIGN 
$  CASE  AT  LEAST 

1  THE  LAST  OUTLET  TEMP.  MUST  BE  SPECIFIED.') 

5005  FORMAK'O  INVALID  BOILER  SPECS.  - '  7  •  MULTIPLE  PASS 

$  SIMULATION 

1 C ANNO T  BE  DONE  ,  GIVE  EACH  TNUMB  FOR  SIMULATION,1 ) 

5004  FORMAT t * 0  INVALID  BOILER  SPECS.  -•/*  AT  MOST  ONLY 
t-  ONE  OF  TEMP 

_  I  OR  TNUMB  MAY  BE  SPECIFIED  FOR  A  GIVEN  PASS.  *  )_ 

END 
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SUBROUTINE  NCALC 

* 

* 

* 

C 

•Ay 

FUNCTIONS  - 

❖ 

c 

* 

A 

•V1 

c 

;JU 

-  BOILER  TUBE  NUMBER  DETERMINATION  ROUTINE 

Ay 

c 

c 


CALCULATES  COMPOSITION  AT  SPECIFIED  TUBE 
PASS  EXIT  TEMPERATURE 


❖ 

❖ 


C  *  -  CALCULATES  HEAT  LOSS  FOR  EACH  ESTIMATED  TUBE 

C  *  NUMBER  —  ITERATES  ON  TUBE  NUMBER  UNTIL  DESIRED 

C  *  HEAT  LOSS  IS  ACHIEVED 

C  *  -  FOR  EACH  ESTIMATE  TUBE  DIAMETER  AND/OR 

C  *  '  PRESSURE  DROP  ARE  CALCULATED 

C  *  -  FOR  MULTIPLE  TUBE  PASS  DESIGN,  CALCULATES 

C  *  TOTAL  HEAT  LOSS  FOR  TUBE  PASSES  INVOLVED,  USING 

C  *  AVERAGED  COMPOSITION  AND  ESTIMATED  INTERMEDIATE 

C  *  TUBE  PASS  EXIT  TEMPERATURES  —  TUBE  PASSES 

C  *  INVOLVED  ARE  ASSUMED  IDENTICAL 


* 


* 


* 


* 


* 


•  »*y  Jy  «A»  Jy 


j|;  %  jfc  •?{.  5*C  • 


>  yp  yj»  ^p  - 


:  s’;* 


SUBROUTINE  ncalc 
DIMENSION  YAVGC20) 

COMMON  /GEN1 /I  WRIT, IDBUGI 15) , T TE ST , C R I T , NGMS , NTOT 
COMMON  /GEN2/TEMP, T FEED, YCOMP (20) , YFEED ( 20 ) , PRESS, ENTH 
COMMON  /HTLSl/TNUMBfTDI AM , T LONG , TSHLl , TSHL2 , QLOSS 
$ ,  DELPC,DFL.T° 

C  GMMON  /3URN2/ I  EL  AG, IPASS, MPASS,E STMT i 3  5 
DATA  TWA LL/500.  / 

T  INTR  U  1  ,  12  )  =  (  (  TFEED-T  SHL  1  )  **I  l*(TEMP-TSHL2)**I2)*J*t  (  1  . 
$/ (I  1+  12)  )  + 

1  l TSHL1+TSHL2) /2. 


C * ***  * .  ’  CALCULATE R  EFER E M  CEE N T  H  A  L  P  Y  OF  ill  £ T  STREAM  AT 

C*****  INLET  TEMP. 

F  NT HR -HE  C’ A L  { T FEE D,  yTeED, 07 “ 


C *****  CALCULATE  COMPOSITION  AT  SPECIFIED  OUTLET  TEMP., 

C*****  (TEMP). 


_ _ K I N I T  -  1 _ _  _ 

L  GOSE= i 

CALL  COMPILCOSE, KINTT) 

c*****  CALCULATE  STREAM  ENTHALPY  at  SPECIFIED  OUTLET 
TEMP. 


ENTH=HFCAL ( TEMP , YCOMP , 0 ) 

I E ( I  TEST—  3 )  811,810,810 
810  WRITE ( IWRIT ,5010)  TF EED , ENTHR 


'  I 
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SUBROUTINE  NCALC  .  .  . (CONT’O) 

WRITE  {  IWR.IT,  5000)  TEMP , ENTH 
Mil  CONTINUE 

C *****  EVALUATE  STREAM  PROPERTIES  NFEOED  FOR  QLGSS  CALC, 


CALL  PROP (T WALL, YAVG, AVGMU , W ALMU , RHO , TMASS , Y TOT , CPA VG ) 

SET  UP  INTERMEDIATE  TEMPERATURES  IF  NECESSARY 
C *****  *  (MULTIPLE  TUBE  PASS  DESIGN). 

_ _ NTT  ME  =  MPASS  + I 

NFINL=I°ASS+MPASS 
E  STMT ( NF I NL ) =TEMP 
TFSTR- T-EFD 
IE(MP ASS-1)  23,  2  It  22 
21  ESTMTI IPASS )=TINTR( 1,1  ) 

GO  TO  23 

2  2  C  ST  M T  H  P A  S S  )  =  T  I  NTP  (  2  ,  IT  ' 

FSTMT ( IPASS+1)=TINTR{ 1,2) 

23  CONTINUE 
FAC  1=1  .S 
F  AC  2-  0 . 5 
I  TERH  =  0 


C*****  GENERATE  A  GUESS  FOR  THE  NUMBER  OF  TUBES. 

1  CALL  GUESR(  TNUMB,FAC1  ,  FAC2,  ERROR,' TTERHF 
C*»*»*  CALCULATE  RE  SUL  TING  ERROR. 

C*****  CALCULATE  PRESSURE  DROP'.  (FOR  SIMULATION,  ALSO  SET 

DIAMETER.  ) 


CALL  PDROP ( AVGMU, WALMU, RHO, TMASS, GT , ITERH) 
DEL  PC  =DEL  DC  *NTI ME 
_ QL0SS  =  0. 

DO  20 . Ill  I  I  =  f,  N  TIME 

JJJJJ=IIIII+IPASS-1 
TEMP=  ESTMT ( JJJJ J  ) 

C*****  CALCULATE  TOTAL  HEAT  LOSS  FOR  PASS. 


CALL  HLOSS  (GT , CPAVG, TWALL , YTOT , YAVG ) 

TFFED  =  TEiMP 
20  CONTINUE 

T  FEED-TFSTR 

C*****  DEFINE  ERROR  AS  REFERENCE  ENTHALPY  MINUS  (ENTHALPY 

C*****  AT  THE  GUESSED  TEMP  +  HF AT  LOSS). 


ERROR = ENTH R-ENTH-OLOSS 


,  '  f  M  • 

j  r 
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SUBROUTINE  NCALC  .  ..(CONT'D) 


I F  < ITEST-3)  817,916,816 

816  WRITE { I WRIT  *5011)  TNUMB , QLQSS , ERROR 

817  CONTINUE* 


c 


0«»  A> 


CONVERGENCE  CHECK. 


IF( ABS( ERROR/ENTH)-CRTT )  2,2,1 
C*****~“  ROUND  NUMBER  OF  TUBES  TQ  AN  INTEGER  NUMBER. 


2  NTUBE=TNUMB+Q. 5 _ 

TNUMB=NTUBE 

I  F  (  I  TEST-2 )  801  ,  800,800 

800  NR  I TE (I  UR  IT, 3007) 

IF! IFLAG-1 )  303, 303,304 
303  WRITE < I WR IT ,3002) 

_ cn  TO  310 _ 

3  04  W  R  I  TE  (  I  WR  I  T  ,  300  3  ) 

310  WRI TE ( I  WRIT  ,9000 ) 

V?R  I  TE  (  I  WRIT,  4002  )  TNUMB  ,  TO  I  AM  ,  TLONG 
WRITE (I  WRIT ,4003)  DEL PC , QLOSS , ERROR 
WRITE  ( I  WRIT  ,9000) 

801  CONTINUE _ 

RETURN 


3002  F  ORMAT (T37,  *  TO I  AN  SPECIFIED,  DELPC  CALCULATED.’) 

3003  F  ORM  AT (  T  37 » *  0  E  L  t  P  SPECIFIED,  TDIAM  CALCULATED.’) 

3007  FORMAT!  / T3 2 » ’ ITERATIVE  CALCULATION  UF  TUBE-PASS 

$  TUBE-NUMBER’ ) 

4002  FORMAT!  140 ,’ CONVERGED  TUBE  NUMBER  IS  ’ , F5. 0/T41 ’TUBE 
$  DIAMETER  (I 

IN)  IS  • ,F6. 2/T4  2*  TUBE  LENGTH  (FT)  IS  *,F6.2/) 

4003  FORMAT (TBS,  ' APPROX .  PRESS.  DROP  ( PS  1.1  =  ’,F6.2 
$/ T3  1  ' APPRO  X.  TOTAL 

1HEAT  LOSS  { BTU. )  =  *  ,E15.7/T36,’ (ENTH.  ERROR  C  B  T  U . )  = 

$',E15.7»  )•/  _ 

1/T34, ’REVFRT  TQ  SIMULATION  FOR  EXACT  CALCULATION* 


$/T3 6  *  Of  ACTUAL  OU 


1TLET  TEMP.  AND  PRESS.  DROP') 


9000  FORMAT ( *  0 ’ , T 2 5 , *  #**#❖#  *^  4  4  * 

1[  »  ^  'if.  iti  'frit  fr  #  #  fr  ^  fr  fr  frfr  frfr  •  f  ) 


5000  FORMAT  (  1  HO  ,  *  SPEC  TEMP.  =  *,F10.4,’  DE_G .  F, 

$  OBJECTIVE  ENTHALPY 
IIS  ’  ,  El  5. 7,  '  BTU. ' / > 

5010  FORMAT! 1 H 0 , *  FEE  D  TEMP.  -  '  ,F10.4, •  DEG.  F ,  _ _ 

$  REFERENCE  ENTHALPY 

IIS  » , E15.7,  '  BTU. '/) 

5011  FORMAT! 1H0, ******  TNUMB  =  ',F10.4,«  ,  QLOSS  =  1 

$, E15. 7/T28,  •  F 


1.RR0R  =  ’  ,  E15.7) 


END 
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sjs  sk  sk  if  >k  if  s*<  if.  if  ajs  ajs  jJ;  s{e  #  if  jjs  if ff #  jjs  j§c  j}c  if  if  if  if  if  £  if  £  if  if  if  if  if  if  if  if 

-4  4  4  -4  4  4  4  JO  JO  4  4  4 

"»**  v*  v  +r  36  4r  56  3r  56  *v* 

c 

JO 

-v- 

C 

SUBROUT  INF 

HLOSS 

* 

c 

jje 

* 

c 

* 

FUNCTIONS  - 

c 

* 

c 

>4 

-  BOILER  TUBE  PASS  HEAT 

LOSS  CALCULATION 

ROUTINE  * 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

r 


* 


v  — 


* 


CALCULATES  TOTAL  HEAT  LOSS  (CONVECTIVE  ANC 
RADIATIVE)  FOR  A  SINGLE  PASS 
IGNORES  RADIATION  EFFECT  IF  AVERAGE  STREAM 
TEMRERATURE  IS  LESS  THAT  900  DEG.  F 
USES  GIVEN  FEED  TEMPERATURE,  AVERAGE  TUBE  PASS 
COMPOSITION  AND  EITHER  SPECIFIED  OR  ESTIMATED 


* 

* 


TUBE  EXIT  TEMPERATURE  FOR  CALCULATION  OF  HEAT 
LOSS 

-  CALCULATES  EMISSIVITY  AND  ABSORPTIVITY  OF  GAS 
8 v  LINEAR  INTERPOLATION 


•  if  if:  #  if  jjt  i$c  $  if  sjt  if  ^  3}t  ❖  ❖  4=  s{e  &  if  it  &  #  3$t  :{c  #  s$t  a}e  #:  <e  sjt  #  j{s  #  s{s  s(c  jfc  if  % 


SUBROUTINE  HLOSS  C  GT  ,  CP  A  VG,  TWAL  L ,  YTOT  ,  YA  VG  ) 

D I  MENS  I ON  Y  AVG (20), EPS (4) ,  R  P  L  (  4  ) 

C bM MON  /GEN I /T WRIT , IDBUOt 15 ) ,T TESt,CR I T, NGMS ,NTOT 
COMMON  /GEN2/TEMP , TFEED , YCOMP( 20) , YEEED ( 20 ) , PRESS, ENTH 
COMMON  /DAT A4/RMU( 20 )  , S MU ( 20 ) , R ADCT ( 2 0 ) 

COMMON  /HTLS1/TNUMB, ID I  AM , TLONG , TSHL 1 , TSHL2 , QLOSS 
$ , OE L  PC , DELT  ° 

DATA  RPL ,6PS  /-3 . 9 1 202300 5, - ? . 52 5 728644 , 

$-1.60943  791'? 

1, 1. 38629436 1,4. 219507705, 5. 075173815,5.480638923 
$,6.802394763/ 

I F ( I  TEST-5 )  811  ,  810, “810 

810  WRITE ( I  WRIT ,9999) 

9099  FORMAT ( 1  HO ,  *  TOTAL  TUBE  PASS  HEAT  LOSS  CALC  *  *  HLOSS  *  * 

$  »/) 

811  CONTINUE 


(3  Jfcsj:##  # 

O  4 4  4  4  4 

'6  V  T* 

^  44^4  4  4 

I  >  -*rw  T  "c 

CALC.  CONVECTIVE  HEAT  TRANSFER  COEFFICIENT,  UCONV 

AND  CONVECTIVE  HFAT  LOSS,  QCONV 

ASSUME  STEAM  FILM  COEFF.,  GAS  SIDE  FOULING  RFSIST. 

C  ***** 

,  STEAM  SIDE  FOULING  RESIST.,  AND  METAL  WALL 

***** 

THERMAL  RESIST. 

^  4  4  4  JO  4 

^  /,%  .a 

REF.  -  VALDES 

H  S=  2  0  0 0 . 


RGF=0.005 
RM=0;  0  00  1 
R  S=  0 . COO  5 

HG=L6.6*(GT/3600. )**0.8*CPAVG/T9IAM**0.2 

UCONV  =  1  /  (1/HG  +  RGE  T  RM  +  RS  +  l/HS) 

AREA=3.14159*TDIAM/12.0*TLONG*TNUMB 
DTL M= ( (TFEED-TSHL1 )-( TEMP  -TSHL2) ) 
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SUBROUTINE  HLOSS  ...ICONT'D) 


1  /ALOG(  ( TF EED- T SHL 1 ) / I  TEMP  -TSHL2)) 
QCONV=UCONV*AREA*OTLM 


C *****  IGNORE  RADIATION  LOSSES  IF  TEMP  LESS  THAN  900. 
C*****  DEG.  F. 


QRAD=0.0 

TMEAN={TFgEP+TgMg  1/2,0 
IF (T ME AN-900. )  20,10,10 

C***»*  _ CALCULATE  RADIATION  HEAT  LOSS 

C#****  "  ASSUME  PIPE  WALL  EMISSIVITY  IS  0.8 

C*****  ASSUME  RADIATING  GAS  TEMP  IS  MEAN  OF  TUBE  END 
TEMPERATURES. 


10  CONTINUE 
E  P  SP  =  0 . S 


CJ/-»V  sl^  %>/ 

A'  v 

^  -J.  Jo  >1o  Jo  Jr 

Mr  ^ 

rjo  Jo  «•/  sir  ><o 

^  't'  'f' 

C  ^  ^  # 

r  ^  •ajs 


CJo  <Jr  Jo  Jo  Jo 
^ 3JC  —  — 

p  Jo  Jo  Jo  Jr  Jo 

Ly  -r  -r 

(“  **  ij: 

CJo  Jo  Jo  Jo  Jr 

Of*  O,*  Of*  op  Of* 

£  £  *  *  *  i*t 


CALCULATE  EMISSIVITY  OF  RADIATING  COMPONENTS  AT 
MEAN  STREAM  TEMP.  AND  ABSORPTIVITY  OF  GAS  AT  WALL 
TEMP.  (SULPHUR  DEW  PTU 

REE.  -  LINEAR  INTERPOLATION  OF  GRAPHICAL  RESULTS 
PRFSENTFO  Rv  HOTTEL  ~  DATA  AND  CALC.  PROCEDURE 
PP.  228  l  234 

PL  -  TOTAL  RADIATING  COMPONENT  MOLE  FRACTION 

MULTIPLIED  8v  THE  BEAM  LENGTH  {  0. 9*0  IAMETE  R ) 
RADCT(I)  =  1  FOR  RADIATING  GAS, 

=  0  EUR  NON-RADIATING  GAS 


T ME NR =T MEAN +4 59. 69 
PL=0. 

DC  3  1=1 , NGMS 
3  PL  =  °L  +RADCT ( I ) *YAVG< I ) 

P  L= PL*  I PRESS/ 14. 696/YTQT) *( TO  I  AM/ 12.0 ) *0.90 
E  M I S  =  0 .  


C*****  FIND  ORDINATE  BY  LINEAR  INTERPOLATION 


6  DO  4  K=2,4 

I  F ( ALOG (PL)-RPL(K))  5,5,4 

4  CONTINUE _ _  _ _  _ 

5  0RD=  (ALOGI PL)-RPL(K-l) )*(EPS(K)-EPS(K-1) )/{RPL{K) 
$-RPU K-11  ) 

~C**  *  *  *  C  H  EC  i<  TC  SEE  IE  GAS  EMISSIVITY  HAS  BEEN  CALCULATED 


IFIEMIS-l .0E-10)  7,7,3 


r  Oj  *  05  O;  if. 


CALCULATE  GAS  EMISSIVITY  FROM  GRAPHICAL  ORDINATE 


.  .  .  :•  v.  T' 
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SUBROUTINE  HLOSS  . ..(CONT'D) 


7  FMI S=EXP {ORD+EPS I K-l ) ) / TMENR 


C  *  *  *  *  *  SAVE  PLIEMTs")  ,  AND  CONVERT  PL  FOR  CALCULATION  OF 
C*****  ABSORPTIVITV  OF  GAS  AT  WALL  TEMP,  THEN  RETURN  TO 
C*****  6  FOR  CALCULATION  OF  NEW  VALUE  OF  ORO 


PL 1  =  P  L 

PL^PL*(TNALL+459;69>/TMENR  . . 

60  TO  6 

£*****  CALCULATE  GAS  ABSORPTIVITY  FROM  GRAPHICAL  ORDINATE 


8  ABSOR= (FXP (ORO+EPS (K-l )  ) /TMENR )*< TMENR/ < TW ALL *459 .69)  } 
$**0 . 5 

I F ( ITEST-7)  807,806,806 

806  WRITE { I  WRIT  ,5005)  PL  1 , E MI S , PL , ABSOR 

807  CONTINUE  _  _ 

GRAO=(E°SP+I  )  /  2  . *<EMIS* ( TMEAN+459.691 **4- ABSOR*! TWALL  + 

1  459.69)**4)*0.1713E~8*AREA 


C  *  *  *  *  *■  CALCULATE  TOTAL  HEAT  LOSS'. 

20  CONTINUE 

Q  LG  S  5  -  QL  0  S  S  +  QCO  N  V  +  0  R  A  D 
I F( I  TEST-6)  805,804,804 

804  WRITE {  TiR IT, 5007)  CPAVG, AREA, HG, UCONV, DTLM 
809  CONTINUE 

IF!  ITFST-5)  801,800,800 

800  V!  R I  T  F  I  INRIT  ,5000)  GT , TNUM8 , T DI AM, DELPC , QCON V , OR AD 
$ , QLGS S, TFEFD , TEMP 

801  CONTINUE 
RETURN 

5000  FORMAT! 1HQ, * .  GT  —  * , E 1 5 . 7 , 5  X ,  4 TNUMB  -  » , E 1 5  .7 , 5 X 

$,  4  TO I  AM  =  4  ,F15 

1 . 7 , 5X , / *  0ELoC  =  1  ,F1 5.7,5X  ,  »QCONV  =  1  , E I  5 . 7 , 5  X ,  1  Q  R  A  0 
$  =  •  ,  E 1 5 . 7  / 

1*  QLOSS  -  *  ,E15.7,5X,  4  TFEED  =  4,E15.7,5X,4  TEMP  =  * 

$ *,  E I  5 . 7  ) 

5002  FORMAT! IHO,  ’CPAVG  =  * ,E15.7,2X* '  AREA  =  * 

$,E15.7,2X, 

1*  HG  =  4  ,  El  5. 7, /IX,  4 UCONV  •=  4  ,£15.7,2X,  4  3TLM  =  4 _ 

$, E 1 5 . 7, 2X ) 

5005  FORMAT ( 1H0 ,  4  PL  1  =  4,E15.7,2X,4  EMIS  =  4 

$  ,  E 1 5 . 7 , 2  X  , 

1«  P L  -  »,E15.7,/1X, * ABSOR  -  4,F16.7) 

END 
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SUBROUTINE  PnRQP 


* 

*  FUNCT IONS  - 


* 

* 

❖ 


*  -  BOILER  TUBE  PASS  PRESSURE  DROP  CALCULATION _ * 

*  ROUTINE  * 

*  -  CALCULATES  PRESSURE  DROP  IF  TUBE  DIAMETER  * 

*  SPECIFIED  (I  FLAG-1)  * 

*  - . '■'FINDS  MINIMUM  VALID  TUBE  DIAMETER  (FOR  GIVEN  * 

*  TUBE  NUMBER)  WHICH  WILL  RESULT  IN  LESS  THAN  * 

*  SPECIFIED  MAXIMUM  ALLOWABLE  PRESSURE  DROP  * 

*  (I  FLAG- 2)  * 

*  -  FOR  (IFLAG-2),  STOPS  ALTERNATION  BETWEEN  TWO  * 

*  DIAMETERS  IE  ALTERNATING  SHOULD  OCCUR  * 

^*c  * 


:  sic  s*c  s|c  sjc  s?c  sic  sic  sjc  *  aj;  s*^  * 


»  >4/  J/  ^  O-  vl<  J*  lJ<  »•/  J/  1 

‘  'C~  2(*  '  "  -<*•  -*('  4*  +c-  i-  * 


'  SUBROUT I NE  P DROP  I AVGMU , W ALMU ,RHO , TMASS , GT ,  ITFRH ) 

DIMENSION  DVALDC 15 ) 

COMMON  /GEN1/IWRIT, IDBUGI  15) ,  l  TF S T , CR I T , NGM S , NTOT 
C OM M 0 N  /HTLS1/T N U MB , TD I  AM , T  LONG, T SHL 1 , TS HL 2 , QLOSS 
$, DELPC , DELTP 

COMMON  /BURN?/ IFLAG , I  e A S S , M P AS S , E STMT ( 3)  _ _ 

“ DATA  DVALD/ 0.5, 0 . 75 , I . ,1.5,?. ,2.5,3. ,4. ,6. , 8 . , 10., 12. 

$,  16  . ,  18. , 20. / 


NON-ADI ABATIC  -  EITHER  DESIGN  OR  SIMULATION 
CALCULATE  PRESSURE  DROP  THROUGH  TUBE  PASS. 

FOR  SIMULATION  CASE,  CALCULATE  DELPC  DIRFCTLY  (NO 
ITERATION).  . 

C*****  for  DESIGN  CASE,  TRY  VALID  PIPE  DIAMETERS  (DVALD) 
C*****  UNTIL  THE  MAXIMUM  PRESS.  DROP  SPEC.  IS  MET. 


TOOLD-TDIAM 

DO  1  I  J K  =  1  ,  15  _ 

I  F {  IF  LAG-1)  2,2,3 
3  TDT  AM-DVALD ( IJK) 

?  PUT- ( AVGMU/WALMU ) . 14 
'  A 1=  5 • 0*TL0N G / (TDI AM*RHO) 
A2=0.0416*TDI AM/TLONG 


C*****  CALCULATE  MASS  VELOCITY 

GT= TMASS/ ( TNUMB*3.14159*TDI AM** 2/4) *144. 


C#****  CALCULATE  REYNOLD’S  NUMBER 


PE-O. 0344*TQ I AM*GT/ AVGMU 


C*****  CALCULATE  FRICTION  FACTOR  USING  1 L  AS  I U  S  EQN. 
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SUBROUTINE  POPUP  . ..(CONI’ D) 


FF=Q.C79/RE**0. ?5 


Q  Jr  Jr  -Jr  Jr  jlr 


CALCULATE  PRESSURE  DROP  USING  TEMA  EXPRESSION 


DELPC=A1*(FF/PHI+A?) *{ GT/1.0E+5)**2 


IF(IFLAG-l)  4,4,5 
5  I F  C I  TEST  — 1 0 )  803,802,802 

8 0 2  WRITE!  I  WRIT, 5001)  GT, RE , FF , TOI AM, Al , A2 , PHI , DEL 

803  CONTINUE 

I F (  ( OEL  PC— OELTP ) /OELTP-CR I T**0 . 3 3 33 33 )  4,4,1 
1  CONTINUE 


4  I  F {  I  TEST-6 )  805,804,804 

804  WRITE ( IWRIT, 5001 )  G T , RE , F F , TO I  AM , Al , A2 , PH  I , DEL PC 
305  CONTINUE 

IF  (  ITFRH-5)  5  0,50,5  1 

51  I F { TD0LD-TD I  AM )  50,50,52 

52  TO  I  AN  = TOOL 0 


GT  =  *  ,E  15 .7 , ?X 


GO  TO  2 
50  RETURN 

5001  FORMAT! 1H0,  » INTERMEDIATE  RESULTS’/' 

$  i 

1*  RE  =  ’ ,E15.7,2X, '  FF  =  ’ , E 1 5 . 7 , 2 X , / •  TO  I  AM 
$ ,  El  5  •  "7 , 2X ,  . . . 


l'  Al  =  »  ,E15.7,2X,» 
$,E15.7,2X, 

1 • DELPC  =  ' , El 5 . 7  ) 


A2  =  ' ,E15.7,2X,/» 


PHI  =  ' 
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SUBROUTINE  INLNB 

❖ 

c 

Jr 

¥ 

❖ 

c 

3 

FUNCTIONS  - 

Jr 

■V 
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Jr 
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-  PRIMARY  IN-LINE  BURNER  ROUTINE 

Jr 

*** 

C 

C 

c 

c 
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*  -  INITIALIZES  CALCULATIONS  --  THEN  DESIGNS  OR 

*  SIMULATES  AN  IN-LINE  BURNER 

*  -  DEFINES  EQUIPMENT  FEED  AND  PRODUCT  STREAMS 


SUBROUTINE  INLN8 

COMMON  /GEN1/IWRIT,IDBUG( 15) , ITEST,CRI T , NGM  S , NTGT 
COMMON  /G£N2/TEMP,TFEED, VCQMP( 20 ) , YFEEDf  20) t PRESS, ENTH 
COMMON  /STOP  1/EQiJTP  (  3  00)  ,  I L0C, NMBFQ, STPFM{  50,?2) 

$ , NS  IN ( 5 ) ,NS0UT< 5) 

COMMON  /8URN1/TCT0F,T:3URN,  I  MUFF , N LGTH , ND I A M , NR T I M 

$, NHRLS, NBURN 
WRI TE { IWR IT ,6000 )  NMBEQ 


C*****  DEFINE  COMBUSTION  FFFD. 

NSTRM=0 

C A L  L  S  UT I L ( N STRM,0,YEEED,TFEED, PRESS ) 
CALL.  PRNTS(-l) 

’DESIGN?  Si  MU  LATE  COMBUSTION  CHAMBER. 


_ T  CTQF  —  +  1  ,_0 _ 

I  HUE F  =— 1 
NBURN= I L0C+  5 

NLGTH-IL0C+ I  _  _ 

NO  T  AM  =  I  L  )C+? 

NRT  IM— I L0C+ 3 

_ NHRLS= I LOC  +  4 _ _ 

CALL  8RXNC 

DEFINE  EQU I  PM ENT  OUTLET  STREAM. 


NEX  IT=NS0UT ( 1 ) 

CALL  SUTIL( NEXIT, 2, vC0MP, TEMP, PRESS)  _ 

T  F {  I  TEST-1 )  801  ,  800, 800 

800  WRITE ( I  WRIT, 6001 ) 

CALL  PRNTS (NEXIT)  _ 

801  CONTINUE 
RETURN 

6000  FORMAT ( T  48  , 1  INLINE  BURNER . 1 /T45 ,  *  EQU I PMENT  NUMBER  1 

$,  13) 

6001  FORMAT ( ’ 1 ’// //T45 ,' BURNER  EXIT  STREAM  -•) 

END 
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;V 
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SUBROUTINE  BRNXC 


FUNCTIONS  - 


* 


BURNER  REACTION  CHAMBER  UTILITY  ROUTINE 


* 

* 

* 


DESIGNS  OR  SIMULATES  A  COMBUSTION  CHAMBER 
(IN-LINE  BURNER,  BOILER  MUFFLE  FURNACE  OR 
BOILER  FIRE  TUNNEL \ 

RINDS  ADIABATIC  FLAME  TEMPERATURE  OF  REACTION 
DESIGN  CASE  —  FINDS  SUITABLE  COMBUSTION 
CHAMBER  LENGTH  AND  DIAMETER 


Jjc 

* 

* 

x 

V 

* 

* 


* 

* 

'V* 

* 


C 

C 

r 


*  - 


SIMULATION  CASE  —  FINDS  REACTION  RESIDENCE 
TIME  AND  UNIT  VOLUME  HEAT  RELEASE 


* 

❖ 
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SUBROUTINE  BRXNC 
REAL  LNGTH 

DIMENSION  XVALD( 71 ,DVALD( 10) 

COMMON  /G^NL/IWR  IT  ,  IOBUG(  15  )  ,  ITEST  ,  C_R  IT  »NGMS  , NTOT 
C  3MM0N  /GEM2/TEMo,TFEED,YCnMP( 20)  , Y E F E D { 70) , PRESS, ENTH 
COMMON  /STORL /EQUIP (300? , I LOC , NM8EQ, S T REM {  5  0,22) 

$, NS  IN (5)  , NS OUT ( 5) 

C  OMMON  / BURN  1 /TC  TOE , T  BURN , I  MUFF , NLGTH, NO  I  AM  ,  NRT  I  M 

$ , NHRLS , MBURN 

DATA  N0X5,XVALD/7, 10 . , 16 . ,20 . , 24. ,30. ,40. ,50./ 

DATA  NODS,  0  V  A  L  D  7 1  0 , 6  T,"8  .  ,10.  ,12.  ,15.,  24.  ,B6.  ,48.,  607"‘ 
$,72./ 

DATA  IEIRST/O/ 

I  HI  FIRST)  80,80,81 

80  T  BURN  =  20 00  •  0 
I  F  I  R  S  T  -  1 

81  CONTINUE 

C*****  CALCULATE  ADIABATIC  FLAME  TEMP. 


DO  100  I  — 1 , NTOT 
100  YCOMP ( I ) =YF  EED{  I  ) 


C*****  T  BURN  PREVIOUSLY  CALCULATED,  ESTIMATED,  OR  GUESSED 

2000.  F. 


T  BURN  =  S  ETVU ( E  QU IP(NBURN) ,TBURN ) 
TEMP=  TBURN 


NOHLS-O 

CALL  TCALC(NOHLS) 

TBURN=TEMP 

ITT  I MUFC ) 300,801 ,301 

300  I F ( I  TEST-1 )  803,302,802 

802  WRITE ( IWRI T ,9000) 
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SUBROUTINE  BRNXC  .  ..(CONT'D) 


803  CONTINUE 
GO  TO  30? 

301  CALL  PRNTSCOI 

302  CONTINUE 


C*****  STORE  ADIABATIC  FLAME  TEMPERATURE. 


EQUIP ( NBURN ) =TBURN 


C*****  CALCULATE  TOTAL  REACTION  HEAT  RELEASE. 


THRL S=ENTH-HFC  AL ( TEE ED, YCOMP , 0 ) 


C 


S  FT  NEW  FEED  TO  RXN.  PROD. 


TFEED=TFMP 

_ Y  T0T=0 .0 _ _ _ _ 

DO  103  1=1, NGMS 
YTOT=YTQT+ YCOMP I  I ) 

103  v  F  E  E  D { I )  =  Y  C  0  M  P  {  T ) 

I  SI M=  1 

C***** _ DESIGN  OR  SIMULATION. _ 

C*****  HERE  TO  30  -  DESIGN  OF  RF  ACT  ION  CHAMBER  -  HR  ELS 

C*****  AND/OR  R TIME  SPECIFIED,  CHAMBER  DIMENSIONS 

CALCULATED. 


V  0  L  U  M  -  0 .  0 


C *****  IF  RTIME  SPECIFIED,  CALC.  RXN.  VOLUME. 

IFCEQUIPC  NRTIM  U  20,22,22 
20  RTIME  =— EQUIP!  NRTIM  ) 

VQLUM=RTIME*10. 73* (TEMP+459 . 69 )*YTOT/3600. /PRESS 


C*****  IF  HRELS  SPECIFIED,  CALC.  RXN.  VOLUME. 

22  I  F { EQUJJPf  NHRLS  )  ?  21,23,23  . 

C*****  IF  NEITHER  GIVEN,  MUST  BE  SIMULATION  CASF. 


23  I F ( VOLUM-1 .0E-2)  30,30,25 

21  HRELS=-EQUI P(  NHRLS  ) 

_ TESTV=THRLS/HRELS _  _ 

IF  BOTH  ABOVE  SPECIFIED,  CHOOSE  MAX.  VOLUME. 


IF(TESTV-VOLUM)  25,25,24 

24  VOL UM=TE ST V 

25  CONTINUE 
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SUBROUTINE  BRNXC  .  ..(CONT’D) 


I S I M=0 


C*****  CALCULATE  R  X  N .  CHAMBER ' DIMENSIONS • 
C*****  FIND  A  VALID  TUBE  LENGTH  AND  DIAMETER. 
C*****  (LENGTH/ Of AMETER  RATIO  ABOUT  4.0) 


LNGTH= ( V0LUM*64. /  3.  141 59 ) ** { 1 . /3 .  ) 


FIND  A  SUITABLE  LENGTH. 

_ DO  5  0  T  =  I  ,  N  0  X  S _ _  _ 

I  F  (  X  V  A  L  D  {  D-LNGTH)  50,51,51 

51  L  NGTH=XVALD ( I ) 

_  GO  TO  5  2 

50 . CONTINUE 

LNGTH=XVALD (NOXS ) 

52  D IAM=12.*(V0LUM*4./ ( 3.141 59*LNGTH ) )**0.5 


C*****  FIND  A  SUITABLE  DIAMETER  TO  YIELD  NECESSARY 
VOLUME. 


DO  53  1=1, NODS 
IF(DVALDU)-DIAM)  53,54,54 

54  D  I  AM=OVALD (  I ) 

GO  TO  55 

53  CONTINUE 

01 A  M=  0  V  A L  D ( NOD S ) 

55  CONTINUE 


C**«**  EQUATE  APPROPP I  AT  E  EQUIP.  PARAMETERS  TO  FOUND 
DIMENSIONS. 


EQUIP!  NLGTH )=LNGTH 
EQUIP  INDIAN  ) =D I  AM 


C***#*  FIND  ACTUAL  VOLUME,  RTIME  AND  HR  ELS. 
GO  TO  36 


C*****  HERE  TO  END  -  SIMULATION  OF  REACTION  CHAMBER  - 
£*****  DIMENSIONS  SPECIFIED,  CALCULATE  RTTMF  AND  HRELS 


30  CONTINUE 

C *****  EQUATE  LNGTH  AND  DI AM  TO  SPECIFIED  DIMENSIONS. 

LNGTH=SETVU! ABS! EQUIP! NLGTH)  )  ,20.  ) 

D I AM=  SETVU I A8S I  EQUIP! NDI  AM ) ),60. ) 


C 


CALCULATE  RTIME  AND  HRFLS 
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SUBROUTINE  8RNXC  .  ..(CONT’D) 


36  VOLUM=3. 14159*! OIAM/12. I **2 .*LNGTH/4. 

HRFLS  -TMP  LS /VQLUM 

n HE^VQLUH* 3600 •  *MPRE S S/~l 0 •  73 / C T E MP+4 59 •  69  ) /YTOT 
EQUIP!NRTIM )=SIGN!RTIME,EQUIP!NRTIM) ) 

_ EQUIP! NHRIS )  =S I GN! HRELS , EQU IP! NHRLS )  )  _  _ 

IF!  I  TEST-1)  801,800,800 

800  TF(IMUFF)  201,202,203 

201  WRITE (I  WRIT ,2001) 

GO  TO  204 

202  WRITE! IWRIT, 2002) 

GO  TO  204 

2  03  WR l TE { I WR I T , 200  3 ) 

204  IE  {  ISM)  205,205,206 

205  WRI TE (IWRIT ,2005 ) 

GO  TO  20 7 

206  WRITE ! IWRIT, 2006) 

207  WRITE!  IWRIT  ,2007)  D I  AM, RT I  ME , LNGTH,  HR ELS 
WRITE ( I WRIT, 9000) 

801  RETURN 

2001  FORMAT  (  *  +  *  ,  T2  5,  MN-L  I  ME  BURNER  -’) 

2002  FORMAT <  *  +  *  ,  TZ5*  f  BOI  LER  FIRE  TUNNEL  -•  ) 

2003  FORMAT! •+•, T25, ' MUFFLE  FURNACE  -') 

2005  FORMAT (»  ' , T77 , M DESIGN)*/) 

2006  FORMAT!*  *  ,  T  7  3 , * (SIMULATION)*/) 

2007  FORMAT ( T25, 'DIAMETER  !IN.)  =  ’ ,F6 . 1 ,T54, ’RES  IOENCE 
$  TIME  (SEC.  )  =  ' 

1,F7 .3,/T^ 5 U LENGTH  (FT.)  =  *  ,  F6„ l ,T5Q, » HEAT  RELEASE 
$  (BTU/CU.FT.)  = 

I  ' , F7.0 ) 

90  00  FORMAT! *  O'  , T2  5 , *  ***********  ************  *************** 

l********** 1 /  ) 

END 
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SUBROUTINE  CNVTR 


C  ^  ^ 
C  *  FUNCTIONS  -  * 
c  *  * 

C _ *_  - _ PRIMARY  SULPHUR  CONVERTER  ROUTINE _ * 

C  *  -  INITIALIZES  CALCULATIONS  "—  DEFINES  FEED  AND  * 
C  *  DESIGNS  OR  SIMULATES  CONVERTER  BED  * 
C  *  -  DOES  ADIABATIC  REACTION  TEMPERATURE  CALCULATION  * 
C  *  -  CHECKS  DEW  POINTS  WITHIN  THE  CONVERTER  BED  * 
C  *  -  DEFINES  OUTLET  STREAM  * 


C 


c 


SUBROUTINE  CNVTR 

COMMON  /GEN  l’:/l  WRIT  »  I  DRUG!  15)  ,  I  T  E  ST ,  CR  I  T  ,  NGM  S  ,  NTOT 
COMMON  /GEN2/TEMP,TFEED, YCOMPI 20 ) ,YFEEC(20) , PRESS, ENTH 
COMMON  /ST0R1/EQUTP (300 ) , I  LOG, NMBEQ, STREMI  50,22) 

$, NS  INI  5)  , NS OUT! 5 ) 

COMMON  /BURN1/TCT0F, TBURN* I  MUFF , NLGTH, NDI AM , NRT I M 
$,NMRLS,NBURN 
NUM8C-A8S ( ECU  IP { ILOC+1 ) ) 

WRITE ( I NR  IT ,6000)  NUMBC, NMBEQ 


C*****  DEFINE  CONVERTER  FEED. 


NSTRM-0 

CALL  SUT I L  C ^STRM,Ot VfEEDVtFEED, PRESS ) 
CALL  PRC NT ( 1 ) 

CALL  PRNTS(-l) 


C*****  DESIGN/SIMULATE  CONVERTER  BED. 

CALL  CRB  EG  { DEL  T  P ) 

C *****  CALCULATE  EQUILIBRIUM  OUTLET  STREAM  TEMP. 


DO  l  1=1, NTOT 
1  YCOMP (  I  )=YFEED(  I) 
TEMP=TFEED 
PR£SS=PRESS-DELTP 
TC TOP =1.0 _ 

NOH L  S  -0 

CALL  TCALC(NOHLS) 

I  F (  ITEST-1 )  803,802,802 
8  52  WRI  TF  (  T  WR  I  T  ,9000  ) 

WRITE  I  I  WR I T  ,900 1  ) 

803  CONTINUE 


C*****  CHECK  DEW  POINTS  WITHIN  CONVERTER  BED. 
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SUBROUT I NF  CNVTR  .  ..(CONI' 0) 


CALL  DEWCK  { DELT P ) 

. . CALL  PRCNT ( 2) 

C*****  DEFINE  OUTLET  STREAM 


NEX  I  T=NSOUT( 1 ) 

CALL  SUTIL ( NEXIT, 2, YCOMP, TEMP, PRESS) 

I  c  ( I T  E  S T - 1 )  801 » 8Q0>  800 
800  WRITE  (  I  WRIT, 6001  ) 

CALL  PRNTS  (NEXIT) 

8  01  CONTINUE _ _  _ _ _ _ 

RETURN 

6000  FORMAT! T49, 'CONVERTER  * ,I2/T45,* EQUIPMENT  NUMBER  M3) 

6001  FORMAT ( T43 ,  * CONVERTER  EXIT  STREAM  <-«  ) 

9000  F  OR  M  A  T  ( *  0  *  *  T25  j  *  *****  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  £ 

J*  «A»  ■A'  -A*  A  J# 

aifS  •yv  <«|%  ^ 

_  _  1  **********  V) _ _ _  _ 

9001  FORMAT  C  *  1  *  ) 

END 


'  ' 


t  V  >  '  •  (  J. 


. 


1 1  V  .  ’ 

•r(nr> 
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c  ❖###  sfcafc#####  sjc  *  #  $  #  £  Jjt  *  %&&#&&  $##  *#*  $$$$$$  # 

c  * 

C  -  SUBROUTINE  CRBFO 

C  * 

C  *  FUNCTIONS  - 
C  * 


/ c 


•f* 

<*o 


CONVERTER  BEO  UTIL  I  TV  ROUTINE _ _ * 

CALCULATES  TOTAL  MASS, . MOLES,  AND  GAS  VOLUME  * 

DESIGN  —  DETERMINES  REQUIRED  CROSS-SEC T I CNAL  * 

AREA  AND  DEPTH  OF  BED  * 

SFmUFATTON  --  CALCULATES  MOLAR  FLOWRATE  * 

AND  SUPERFICIAL  VELOCITY  THROUGH  THE  BED  * 

BOTH  CASES  —  CALCULATES  PRESSURE  DROP  ACROSS  * 

THE  BED  * 


C 

C 


■  w  -X*  \*/  ^ 


y  #  %  ^  if.  if  *  £  #  £  ❖  i' t'  #  v<  #  ❖  '!«  Sjs  *  5^  if  5jt 


_ 

/jN  -^j'X  V"|  V 


■A>  >•/  «*»  *V  -.V  **/•  -X-  J/  i 

^S.  <•,»  /,-v  »,  v  -,S  /jV  -«J».  . 


SUBROUTINE  CR  BED  (DELTP) 

COMMON  /GEN1/IWRIT, IDBUGI 15) , I  TEST , CR I T , NGMS , NTOT 
‘  COMMON  /GEN2/TEMP»TFE£D,YCOMP(20 ) , YFFFDI 20 ) , PRESS, ENTH 

COMMON  /STOR1/ EQUIP  13  00) , I LOC , NMBEQ* STREMI  50,22 ) 

$,  NS  IN  I  5  )  ,  NS  OUT  (  5  ) 

COMMON  /DAtA5/IDHF0,Tb$UL(5 ) ,WTM0LT20) ,VMOLE(20) 


C**»**  _  FIND  TOTAL  STREAM  MASS, MOLES  AND  GAS  VOLUME. 

C***«*  (HOUR  BASIS) 

VTOT=O.D 
“  T  MASS  =  0 .  0 
DO  1  1=1, NTOT 
YTOT=YTOT+YFEED( I ) 

TMASS-TMASS+YFEED( I )*WTMGL< I ) 

1  CONTINUE 
D  =  PRE  SS-0 . 2 
T=TFEFD+25. 0+459 .69 
VGA  S= 10. 73*T*YTOT/P 


DECIDE  IE  DESIGN  OR  SIMULATION. 


I F( EQUIP ( ILQC+2 ) )  2,4, 4 
. 2 . I  F (EQUIP  1 1 LGC+3  U  3 ,4,4 . 

C*****  SIMULATION  -  BED  XSECTIONAL  AREA  AND  DEPTH  GIVEN. 


3  I S I M= l 

X  AR  F  A--F  Q'JT  P  (  ILOC  +  2  ) 
DEPTH-— EQU I P ( ILOC+31 
VOLUM=XAREA*DEPTH 


r  O,  -X  Jy 

o  ***  "*■' 

O  X  X  X  X 

I  ^  4*  'r* 


CALCULATE  MOLAL  FLOW  RATE  AND  LINEAR  VELOCITY  THRU 
BED. 


• 

-  ■  -r  n  1 

'  f  '  ■  ' T  ■  'V 

’  , 

■  : 

U  T  r  "? 

-  •  ! 

•  •  ,  r  ♦  :  T  ’  .  (  M,  !. 

. 

(  .  '  '■'  ?,<  !  ,  :  \  :  ‘ 
,  •  1  ■  ’  ,  v  M  ■  f «  •  •  v 


.  -  -  ' 
T :  f  j  1  • 

V  -  '  T  -- 


T  •  '  . '  • 


.t' 


(  ' 1  +  i !  r  : 1 ;  •  •  •  • 

:  f  t  ' 


1  I  HT 


■  y  T  . 

i  =  l  T 

I  ' 

■  *  j:  !(  r 


, 
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SUBROUTINE  CRBEO  . ..(CONT’D) 


FLOWR-YT  QT /VOLUM 

VELMX-VGAS/X ARE  A/3600. 

GO  TO  10 

OFSTGN  -  FIND  X  ARE  A  AND  DEPTH. 

4 

I  S I M= 0 

r  ^ 

VELMX  SPECIFIED  OR  SET  TO  1 

FT/SEC. 

VELMX=SET VU {-EQUIP! ILOC+6 )  ,  1  .0  ) 

S'  -A-  ^  ^  ju 

l  'f*  v  6' 

FLOW R  SPECIFIED  OR  SET  TO  3 

LB. MOLE/HR. CU. FT. 

F  LO WR=SF  T VU {-EQUIP! I LOC  +  7 ) ,3.0) 

P  v1/ 

1  J  '»'•  'V  ^ 

CALCULATE  NECESSARY  VOLUME, 

X  ARE  A  AND  DEPTH. 

VOLUM-YTOT/FLOWR 

XARFA=VGAS/VELMX/3600. 

DEPTH=VQLUM/XAREA 


C  \V 

^ 

CHECK  THAT  BED  IS  AT  LEAST  3  FEET  THICK. 

5 

I F ( DE  PTH-3 . 0 )  5,10,10 

DEPTH =3.0 

V GLUM=DE PTH *X AREA 

FLOWR=YTOT/ VOLUM 

O  "Jr  Or 

i  -T|*  «<(\  Jjv 

CALCULATE  PRESSURE  DROP. 

PARTICLE  DIAMETER  SPECIFIED  OR  SET  TO  0.5  IN. 

10 

PDI AM  =  SET VU ( ABS ( EQUIP! ILOC+8  )  ),0.5) 

DELTP-8. 32*0EPTH4 ! TMA SS / 3600 . / X AR E A ) **2 /PD  I  AM 

/**  Jr  ^(r  Jr  Jr  Jr 

i  3r* 

STORE  VALUES. 

EQUIP! IL0C+2)=SIGNI XAREA,EQUIP( ILOC+2) ) 

EQUIP! IL0C+3)=S IGN! DEPTH, EQUIP { IL0C+3) ) 

EQUIP ( I LOC  +  4 )= VOLUM 

EQUIP!  ILOC+5  )  =  S  I  GN  (  DELT  P ,  EQU  IP  (  ILOC+5)  ) 

F QU IP ( ILOC+6) =S IGN! VELMX, EQUIP! ILOC+6) ) 

EQUIP! I LOC+7 )=S IGN! FLOWR, EQUIP! I LOC+7) ) 

EQUIP { I LOC+8 ) =S I GN! PDI AM, EQU  IP ( ILOC+8) ) 

800 

802 

I F < I  TEST- 1 )  801,800,800 

I  F (  IS  I  M )  802,802,803 

WRITE { I  WRIT ,  1000 ) 

8  03 

8  04 

GO  TO  804 

WRI TE ( I WRIT ,1001 ) 

WRITE ( IWR I T  ,1  002 )  X AR F A , DEP TH  ,  VOLUM , V E LMX , FL OWR , PD I  AM 

'  . .  , 
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SUBROUTINE  CRB ED  .  .  . ( CQNT  *  D ) 


St OELTP 

WRI TF ( IWRJJ  ,9000 ) 
801  CONTINUE 
RETURN 


1000  F  OR  M AT ( T  2  5 , ’CONVERTER  BED*  ,  T77 1  *  (DESIGN)'/) 

1001  FORMAT ( T25  » 'CONVERTER  BED*  , T73* '  ( SIMULATION)  * / } 

1002  FORMAT ( T33' CROSSECT IONAL  AREA  (SQ.FT)  =  *,T69,E3.2, 

$  /  T  3  3  *  THICKNESS 

1(FT.)  = 1 T69 , F 8 . 2  /T33 ,  * VOLUME  (CU.FT.)  =TT69tF8.2 

$/T33  *  LINEAR  GAS  V 

1EL0CITY  (FT. /SEC.)  =  * T69 , F8 . 2/ T33 *  MOL AL  FLOW  RAT  F 
$  (MOL  E/HR. SQ.FT. ) 

1  = ' T69,F8*  2/  T33* AVERAGE  PARTICLE  DIAMETER  (IN.)  =  'T69 


90Q0 


St  F p  .  2  / T 3  8  *  PR 

lFSSURE  DROP  (PSI.)  =*T69,F8 .3) 

FORMAT  (  *  0  *  ,  T25  ,  *  ********************* 

J  ^  # 


sA-*  V/  Jr  v\r  J»  X  X  X 

'{'  ■* r ‘  -*v  r  'j'  'T‘  •¥»  V  -*iC  '?•  V  'Y'  -if*-  "  -v 


1 ********** l / ) 


END 
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C  ***£***-********.**:*  **************************.$.  ££  *  *  *  *  *  3?C^£  *  *  * 


c 

c 

c 

c 

c 

c 


* 


SUBROUTINE  OEWCK 


FUNCTIONS  - 


SULPHUR  OF W  POINT  CHECK  ROUTINE 


C 

C 

C 

c 

c 

c 


* 


DIVIDES  CONVERTER  BED  TEMPERATURE  RISE  INTO 

INTERVALS  —  COES  SULPHUR  SHIFT  AND  THEN 
CALCULATES  DEW  POINT  AT  EACH  INTERVAL  — 
CHECKS  THAT  IT  IS  BELOW  BED  TEMPERATURE 
ASSUMES  THAT  CONVERSION  REACTION  IS  LINEAR 
WITH  TEMPERATURE  ACROSS  THE  REACTION  ZONE  OF 


❖ 


* 

* 

~£~ 


C 

C 

c 


-ju  -,o 


THE  BED 

******  ***  ***  ****  *  *******  ****  *  ****  **  ********  4:  **  *  *  *  *  **  * 


SUBROUTINE  OEWCK  { DEL  TP ) 

DIMENSION  Y  I  NCR (  20 ) 

COMMON  /GEN1Z IWRIT , IDBUGI 15 ) ,  I  TEST , CR I T , NGM S , NTOT 

COMMON  /GEN2/TEMP, TFEED, YCOMPI 20 ) , YFEEDI 20 ) , PRES S, ENTH 

C*****  CALCULATE  DEW  POINT  TEMPERATURE  AT  5  EQUAL  TEMP. 

C  *****  INTERVALS  BETWEEN  THE  INLET  AND  OUTLET  CONVERTER 

C*****  TEMPERATURES.  ASSUME  CONVERSION  VARIES 

C  ** ** *  “  P  POP OP T I  ON A  T ELY  W I TH  TEMPER A  TURF . 


IF(  I  T  c  S  T  —  9  )  8  11,310,310 

810  WRITE (  ri° T  T ,9«n) 

811  CONTINUE 

C***«*  SET  TEMPERATURE,  COMPOSITION  AND  PRESSURE 

C  *****  INCREMENTS. 


T  I L'C R  =  {  TEMP-TFFPP)  /<.  0 
PINCR=DELTP/5.0 

_ DO  1  1  =  1, NTOT _  _ 

1  Y  I MC  R  (I  )  =7  V  CO  MPID-YFEED  (11  )7  5.0 

K  I N  I  T  =  0 
I SULF=I 
TDEWS=TEMP 
PRESS=PRESS+DELTP 
DO  2  J  =  1 , 5 

C*****  FOR  EACH  INTERVAL,  SET  TEMP.,  COMPOSITION  AND 
C  ****  *  PRESS. 


TEMP=TFEED+ J*T INCR 

DO  3  I~1 , NTCT _ 

3  YCCMPC  I  )-YFEED(  I  )+J*YINCRU) 
PRESS=PRESS-PINCR 
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subroutine  ofwck  . . .  (cont’D) 


£  A  A  A  A  A 

DO  SULPHUR  SHIFT  CALCULATION. 

CALL  SHIFT  (KINT  T , N T 0 T ) 

(~  A  A  A  A  A 

OC  OEW  POINT  TEMPERATURE 

(SULPHUR)  CALCULATION. 

C  ALL  DEWPT ( TDEWS  ,YCOMP , PRESS , 

I SULE) 

O 

+1*  <V 

O  ■*•>»  J/  >•/  H.V  d/ 
*V*  ''  •'i'  A' 

TF  DIFFERENCE  BETWEEN  DEW 
GIVE  MESSAGE. 

POINT  AND  TEMP.  SMALL, 

10 

TDIFF=TEMP— TDEWS 

IF( TOIFF-25 .0)  10,11,11 

WRI TE ( I WRIT  ,1001  ) 

GO  TO  300 

IL  I F  <  I  TEST-2 )  801,800,800 
300  WRITE ( IWR IT  ,  1000 )  TEMP , TOE W S , TO  I FF , PR E SS 


301  CONTINUE 
2  CONTINUE 

IF( I TEST— 2  I  803 1 802 >802 

802  V'RI  TF  (  I m  I  T  ,9000  5 

803  CONTINUE 

RETURN _ 

909  FGRMAT(////T41'  CONVERTER  OEW  PO I  NT  CHECK  -  *  /  /  " 

IT25 1  BED  DEW  POINT  TEMPERATURE 


I  RED  '  f 

IT  25  *  TEMPERATURE  TEMPERATURE  DIFFERENCE 
%  PRESSURE  ’/) 

1000  FORMAT ( T28 , 4( F8 . 3, 7X ) ? _  _ _ 

1001  rORMAT(T30f 'TEMPERATURE  IS  LESS  THAN  25  OEG.F  ABOVE 
$  DEW  POINT.’) 


9000  FORMAT ( ’ 0’ , T25, ’ ******************’ 

$  A  A  A  A  A  A  A  A  A  A  A  A 


.  r  .  v  V  0 


■  A  ■ 


’  /) 

END 
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C  ***&  ft*  '$&£$$$$  *  *  Jjc  *  $  $$$$$£  *  ##  4c#  *  ###  #  : 


c 

c 

c 

c 

c 

c 


* 


* 


SUBROUTINE  CONOR 


FUNCTIONS  - 


*  -  PRIMARY  SULPHUR  CONDENSER  ROUTINE 


-JU 


C 

C 

c 


c 

c 

c 


-  INITIALIZES  CALCULATIONS  —  DEFINES  CONDENSER 
FEED  AND  CALCULATES  TOTAL  INLET  SULPHUR 

-  DEFINES  GAS  AND  SULPHUR  OUTLET  STREAMS  AND 


❖ 


STEAM  STREAMS  IF  PRESENT 
-  CHECKS  DATA  COMPATIBILITY 

'INTEGRATES*  DOWN  THE  CONDENSER 


* 

* 

❖ 


C 

c 

c 


c 

c 

c 


& 


❖ 

o,  -JU 


-  CALCULATES  RFSIJLTING  OVERALL  HEAT  TRANSFER 
COEFFICIENT,  STEAM  PRODUCTION,  AND  OUTLET  FOG 
IN  GASEOUS  CONDENSER  OUTLET  STREAM 

-  STORES  CONDENSER  OUTLET  STREAMS. 

❖  #  #  *  #  #  #  4<  #  ###  ##  ###  ###########  #  ###  ###  ##  #######  #####: 


❖ 


❖ 


SUBROUTINE  CONOR 

COMMON  /SEN  I/I  HR  IT, ID BUG ( 15) , ITEST,CRI T , NGMS  f  NT  OT 
COMMON  /GEN2/TEMPf TFEEO* YCOMPC 20 ) , Y F E E D { 20 ) , PRESStENTH 
COMMON  /STOR I /EQUIP (3001 , I LOC , NMBEQ, STREMI 50 , 22 ) 

$, NSIN ( 5) , NS OUT ( 5 ) 

COMMON  /C0ND1/NTUBE,DIAM,IS8,ISIJL*TSTEM,SMINR,SULIN 
$, YSULFI20) 

DATA  TCQND/250.0/ 

NUM  BC= AB  f  (iQUf P ( ILOC+1 ) ) +0.5 
WRT  TE { I WR IT ,600  0)  NUMBC, NMBEQ 


C*****  DEFINE  FFED  STREAM. 


NSTRM=0 

CALL  SUTIL (NSTRM,0,YFEED,TE FED, PRESS  ) 

C*****  FIND  TOTAL  MASS  SULPHUR  INTO  CONDENSER. 


CALL  SUMER (YFEED,NT0T,1 , DUMY  ,  TMS I N ) 
CALL  PRNTS(-I) 


C*****  .  DEFINE  GAS  OUTLET  (NEXIT),  SULPHUR  OUTLET  (NSULF) 

C*****  STEAM  SOURCE  ( N  STMS )  AND  PRODUCT  (NSTMP)  STREAMS. 


NSTMS-NSTRM 
NEX I T  =  NS  OUT ( I ) 

NSTMP* I ABS ( NS OUT ( 3 ) ) 

NSULF=-EQtJI  P(  ILOC+7)  +0.5 

_ I  F  (  NEX  I  T-MSULF  )  2,1,2 _ _ 

1  NEXT  T  =  NSOUT ( 2 ) 

C»*»*» C  H  E  0  K  COMPATIBILITY  OF  STEAM  PRESSURE  AND  OUTLET 
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SUBROUTINE  CONOR  .  ..(CONT'D) 


C*****  TEMP.  DATA. 

2  CALL  C  OM  PR~(  N  STM  5  ,22,5) 
CALL  COMPRCNSTMP, 22, 5) 
CAIL  COMQR<NFXI T,21 , B  ) 


C*****  CALL  CINIT  TO  INITIALIZE  CONDENSER  CALCULATIONS. 

CALL  CINIT  U  SHUTOUT  ,T LOTH f T I  NCR , NSTMS, PST E M ) 

STREM (NEX IT,  21) =FQUI P( I LOC+3) 

DELT1-TFEED-TSTFM 


C*****  CALL  CINTG  TO  DO  CONDENSER  *  I NTEGR AT  ION  * 

C  A L L  CINTGTTSI M rflNCR,T L G T H , T 0 0 T , T L ON G , 0 T 0 T L , T C 0 N D ) 

IFUTEST-1)  801,800,800 

800  I F (  IS  I M )  810,810,820 
810  WRITE  (I  WRIT  ,1010  )  “ 

GO  TO  303 

820  WRITE (I WRIT ,1020) 

8  03  WRITE (IWR IT  ,900  0 ) 

GMAX-A8S (EQUIP!  ILOC+6) ) 

_ DELT2  =  TE,M°-TSTEM _ _ _ _ _ ___ 

AREA=NTUBF*3. 14159*01  AM/ 12 . 0*TLONG 

UOVRL  =  QTOTL/(  ( DELT 1-DEL T2 ) /ALOG! DEL  T l /DEL  T 2 )  *ARE A ) 
WRITE ( I WRIT ,1000 ) TLQNG , D I  AM , NTUBE , GMAX , TEMP , UQVRL 
WRITE (IWR IT ,9000 ) 

801  CONTINUE 

CALL  STEAM ( QTOTL , TS T EM , PSTEM , NSTMS , NST MP , 5 ) 

CALL  FOGST ( TMS I N , NSULE , TCOND , NEX I T  ) 

CALL  PRNT S ( NEX I T  ) 

EQUIP  I ILOC+2)  -SIGN!  TLONG,  EQUIP!  IJL0C+2JI  ) 

EQUIP ( ILOC+3) =SI GNI TEMP  , EQU  IP (  ILOC+3)  ) 

EQUIP ( ILOC+ 12 ) =QTOT  L 
RETURN 

1000  FORMAT!  ’0*  ,  T30  ,  *  TUBE  LENGTH  {FT.  )  =*  ,  T74  ,  F6  ."  1 /T 30  •  TUBE 

*  DIAMETER  (I 

IN.)  =»T74tF6.3/T30t NUMBER  OF  TUBES  =«T76,T4/ 

$/ T3  0 *  MAX  I H U M  FLO W  R  AT  E  ' 

1  (LB/SQ.FT. SEC)  =* T74 ,F6 . 2/T30* OUTLET  GAS  TEMPERATURE 
$  (DEG.F)  =• 

1 T  7  3 , F  7 . 1 / T  3 0 * U  { OVERAL L )  { BTU /HR. SQ.FT. DEG . F )  = * T74 

$, F6.2) 

L020  FORMAT ( *  0* ,  T45, *  CONDENSER  SIMULATION* ) 

1010  FORMAT ( * 0* , T47 , * CONDENSER  DESIGN* ) 

6000  FORMAT (T49* CONDENSER *  1 , I 2/T45, ’EQUIPMENT  NUMBER  M3) 

9  000  FORMAT  (  1  0  *  ,  T  2  5  »  1  **********************  **  *  *  *  ******  **  *  *  * 

$  *  *  *  *  *  *  *  *  *  *  *  * 

I  **********  »/) 

END 
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c 

r 

C 

c 

c 

c 


SUBROUTINE  Cl  NTT 


*  FUNCTIONS  - 


-  CONDENSER  INITIALIZATION  ROUTINE 


* 

* 

* 

❖ 


C 

C 

c 

c 

c 

c 


SETS  STEAM  PRESSURE  AND  CALCULATES  STEAM 
TEMPERATURE 

IDENTIFIES  S8  AND  LIQUID  SULPHUR  SPECIES 
INITIALIZES  SULPHU  R  C  0  N  DEN  SATE  Elf.  M  STREAM 
SETS  CONDENSER  TUBE  DIAMTER 

DESIGN  CASE  —  DEFINES  CONDENSER  GAS  OUTLET 


❖ 

* 


C 

C 

c 

c 

c 

c 


* 

* 


TEMPERATURE 

-  SIMULATION  CASE  —  DEFINES  CONDENSER  LENGTH 

*  -  EITHER  CASE  —  DEFINES  NUMBER  OF  TUBES  AND 

*  * INTEGRATION*  TEMPERATURE  INTERVAL 

Jr 

'r- 

Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr 

'V*  '£■  -v*  -*4x  -«x  v  v  V  -v  •'<'  'c-  "s'  -v*  'sx  ->r' 


rf>  «,%  >JV  r£ h  ^  •*/'  •* 


❖ 


Jr  Jr  Jr 
ift  r.~  r.> 


SUBROUTINE  Cl  NIT  { I  SIM, TOUT , TLGTH , T l NCR, NSTM S, PSTEM ) 
DIMENSION  YSTEM (20? 

C OMMOM  / GEN  1/ I  NR  IT , ID3UGI 15 ) , IT ES T, CR I T , NGM S , NTO T 
COMMON  /GEN2/TEMP,TFEED,YCOMP(20) , YFEEDI 20 ) , PRESS, ENTH 
COMMON  /ST0R1 /EQUIP ( 300 )  , I LOC , NMBE Q, S T RE M (  5 0 , 22  ? _ _ 

$  ,  NS  IN  ( 5  )  ,  NS  OUT  {  5  ) 

COMMON  /C0N01/NTUBE, 01  AM,  IS8, I  SUL , TSTEM, SM I N R ,SUL IN 
$,  YSULFJ  20  ) 

COMMON  /DATA1/F0RMU( 20, 5 )  ,  N  A  T  Y  P  , IDATMC5I 
COMMON  /DAT  AS/ I DH20 , I D  SUL { 5 ) ,WTMOL(20)  ,  VMOLE ( 20 ) 


C*****  SET  STEAM  PRESSURE  (50.0  PSTA.  IF  NOT  SPECIFIED), 
C *****  AND  CALCULATE  SATURATION  TEMPERATURE. 


CALL  SUTILC NSTMS , 1 , YSTEM, TSTEM, PSTEM > 
PST EM=SET VU ( -EQU IP ( ILOC+5 ), 50.0) 

YSTEM ( I  DM  20 ) = 1 .  Q 
T  ST  EM= SET  VU ( TST  EM , 2  50. 0 ) 

CALL  DEWPT ( TSTEM, YSTEM, PSTEM ,0 ) 


C*****  HERE  TO  11  -  IDENTIFY  SB  (IS8)  AND  S 1  (  L )  MSUL). 

£****$  DEFINE  SULPHUR  COLUMN  IN  FOR MU  MATRIX. 


I  COL= I DATM (  1) 

I CHCK  =  0 
DO  B  1=1,5 
I  V A L U  = ID SUL ( I ) 


C*****  I F  SULPHUR  SPECIF  NO.  G.T.  NGMS  ASSUME  SKL) 


I F(  IVALU-NGMS  )  6,6,9 
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SUBROUTINE  CINIT  ... (CONT«D) 


C *****  CHECK  FOR  SB. 


6 

7 

I  F { AB  S (FORMU ( IV ALU, I COL ) - 8 . 0 ) -0 . 1) 

I S8 - I V ALU 

ICHCK= ICHCK+1 

7,7,8 

0 

GO  TO  8 

I SUL= I V ALU 

I CHCK  =  ICHCK+ 1 

cc  c 

r — 1 

CONTINUE 

I F ( ICHCK-2 )  10,11,10 
WRITE (I  WRIT  ,5000) 

5000 

6 

11 

FORMAT! *0  ERROR  W.R.T. 

SPECIFS . ’ ) 

CONTINUE 

PRESENCE  OF 

SB  AND/OR  S1(L) 

P  ‘Ar  ■»!»  <JU  nV 

^  v  -v 

INITIALIZE  SULPHUR 

FILM  STREAM 

(YSULF)  TO  ZERO. 

SET  LIQ  SULPHUR  TO 

SMALL  INITIAL  VALUE. 

DO  12  I  - 1  , NTOT 
12  YSULF Cl  )=0.0 

” YSULF ( I  SUL ) = 1 . OF  — 6 . 

C*****  SUM  TOTAL  MOLES  ANO  TOTAL  MASS  INTO  CONDENSER. 


CALL  SUMER! YFEEO , NGMS , 0 , YTOT , TMASS ) 


C*****  SET  TUBE  DIAMETER  (1.0  IN. . IF  NOT  SPECIFIED.) 

DIAM=SETVU( -EQUIP! ILOC  +  3 ) , 1  .0  ) 


C*****  CHECK  IF  TUBE  LENGTH  SPECIFIED.  DEC  I  OF  IF 
C*****  SIMULATION  OR  DESIGN. 


T LGTH=-E QIJ I  P  (  ILOC+2  ) 

_ IF(TLGTH)  100,100,200 _ _ _ _ _ _ 

C*****  DESIGN  CASE  - 

£*****  SPECS  SHOULD  BE  0 1  AM,  GM  AX  AND  TOUT  (OR  RECOV). 
CALCULATE  T  LGTH  ,  NlJMBT  ,  AND  RECOV 

100  TSIM^O 


C*****  IF  CONDENSER  OUTLET  TEMP.  GIVEN,  SET  TOUT. 


TOUT =— EQU IP! ILOC  +  8) 

IF! TOUT)  101,101,110 

C*****  TEMP.  NOT  SPECIFIED. 

C*****  NOT  SPECIFIED,  ASSUME 

C*****  F I ND  OUTLET  TEMP.  FOR 

-  SET  RECOVERY. 
90.0  PERCENT. 
GIVEN  RECOVERY. 

IE  RECOVERY 
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SUBROUTINE  Cl  NIT  ...!CONT*D) 


C*****  (I.E.  DEW  POINT  OF  INLET  STREAM  MINUS  SPECIFIED 

C*****  SULPHUR  RECOVERY). 


101 

RFCOV=SE  TVU ( -EQUIP! ILOC+9) , 9  5.0) /  100.0 

I  C  N  T  S  =  1 

DO  102  1=1, NTOT 

Y COMP (  I  )  =YF FED (  I  ) 

I F (  I-  ID SUL (  ICNTS) )  102,103, 102 

103 

I C  N  T  S  =  I C  N  T  S  +  1 

YCOMP ( I ) = Y C  0  M  P ! I )*( I .O-RECOV ) 

102 

CONTINUE 

T  OUT  =  TFEED 

CALL  DEWPTITOUT, YCOMP, PRESS -0.3,  1  ) 

110 

CONTINUE 

C*****  MAKE  SURE  OUTLET  TEMP.  (TOUT)  IS  ABOVE  T STE M . 


I  F ( T  OUT- ( TSTFM  +  IO.O) ) 115, 1 2  C , 120 
115  TOUT  =  TSTE,M  +  10.0 
120  CONTINUE 

EQUIPTTL  0  C+8)=-T0UT 


C *****  SET  TEMPERATURE  INCREMENT. 


T  I  NCR = ( t F  EED-TOUT ) / 1 0 . 0 

£*****  S£T MAXIMUM  ALLOWABLE MASS  FLOW  RATE.  (4.0 
C*****  LB. /SQ. FT. SEC.  IF  NOT  SPECIFIED.)  AND  CALCULATE 
C*****  REQUIRED  CRO SSECT I ONAL  TUBE  AREA  AND  TUBE  NUMBER. 


GMAX=SETV'J !  -EQUIP!  ILOC+6)  ,4.0) 

AREA=  TMASS/ !3600.*GMAX) 

NTU 3  E  =  AR E  A* 4 . *  1  A  4 . / ( 3 . 1 4 1 5  0 *D I  AM **2 ) +0 .5 
GO  TO  300 
200  1ST  M= 1 


SIMULATION  CASE  - 

C*****  SPECS  SHOULD  PC  D I  AM  »  TLGTH ,  AND  NUMBT. 
C*****  CALCULATE  GM AX, TOUT  AND  RECUV. 

NTUBE=-EQUI P( ILOC+4) +0.5 


C*****  if  NTUBE  NOT  SPECIFIED,  REVERT  TO  DESIGN. 


IF(NTUBE)  100,100,201 


C*****  SET  TEMP.  INCREMENT  TO  5  DFG.F. 


201  T I NCR =2 5 . 0 
T  OU  T- 0 . 0 
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SUBROUTINE  GIN  IT  .  ..(CONT’D) 


€*****  CALCULATE  ACTUAL  AREA,  MAX.  FLOW  RATE  AND  STORE 
C*****  SET  VALUES. 

_ BOO  AREA=NTUBE*3. 14 1 59* DI AM**2/ ! 4.*144. ) 

G M  A  X  =  T M A S S /  ( 3 60  0 . * AREA ) 

EQUIP! I L  OC  +  3 ) =S IGN( DIAM  , EQUIP! ILOC+3) ) 

TUB E=NTUBE 

EQUIP*  ILC:C  +  4)  =  S  IGNfTUBE  ,EQUIP(  ILQC+4)  ) 

EQUIP! ILOC+ 5) -SIGN! PSTEM , E QU  IP ( I LGC  +  5 ) ) 

FQUIP ! IL0C+6)=STGN! GMAX  , EQUIP! ILOC+6) ) 

IF!  I  TEST-4)’  801,300,800 

800  WR I TF  <  T WR I T , 1000 )  I  SI M, TLGTH , TOUT , I  SB , I  SUL , N TUBE , D I  AM 

801  CONTINUE 

OC  40  0  I  - 1 , NTOT 

400  YCOMP ! T ) =YFEFD!  I  ) 

K IN  I T= 1 
TFMP-TFEEO 

CALL  SHIFT! KI NIT, NTOT) 
nn  401  1=1, NTOT 

401  YFEEOU  »=YCOMP(  1 1 
RETURN 

1000  FORMAT! »0 ' , '  I S I M  =*  1 12,  2X 1 TLGTH  = « E 15.7, / _ 

1*  TOUT  = ' E  1 5 . 7 , 2  X  *  IS8  =  *  I  3  ,2X*  I  SUL  =*I3  / 

lf  N  TUBE  -’14  , 2X  *  01 AM  =*E15.7) 
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sV 


SUBROUTINE  CINTG 


FUNCTIONS  - 


❖ 

❖ 

'f' 

* 


-  CONDENSER  'INTEGRATION'  ROUTINE 


C 

C 

c 

c 

r 

c 


* 

& 


INTEGRATES  DOWN  THE  CONDENSER  TUBES  BY 
BREAKING  THE  CONDENSER  INTO  SEGMENTS  DEFINED 
BY  TEMPERATURES 


FOR  EACH  SEGMENT  OUTLET  TEMPERATURE,  CALCULATES 
SULPHUR  VAPOR  PRESSURE  AND  MOLES  OF  SULPHUR  AT 
SATURATION  —  FINDS  MINIMUM  SULPHUR  CONDENSATION 


C 

C 

C 

C 

c 

C 


A 


* 


FOR  SEGMENT  TO  PREVENT  SUPER-SATURATION  AT  OUTLE 
CALCULATES  SEGMENT  LENGTH  AND  PRESSURE  DROP  -- 
DOES  A  SULPHUR  SHIFT  AT  EACH  SEGMENT  OUTLET 


❖ 


-  AT  END  OF  CONDENSER  {DEFINED  BY  TEMPERATURE  FOR 
DESIGN  OR  LENGTH  FOR  SIMULATION)  RATIOS 
PORTION  OF  LAST  SEGMENT  TO  USE.  (ASSUMES 


* 

* 

* 


r 

C 

c 

c 


*  COMPOSITION,  PRF  S  SURE ,  TEMPERATURE  AND  HEAT  LOSS  * 

*  ARE  LINEAR  WITH  LENGTH  OVER  LAST  SEGMENT)  * 

*  $  A  A  *  t-  $  *  A  A  a  Jfs  A  A  jjt  $  A  J;  $  i*^)|;***$*  $  A  A  >•;  *  $  $  A  A  $  )js  iji  s|<  *  A  a};  A  $  A  $  A  £  £  >' 


SUBROUTINE  C I NTG (  I S I M, T I  NCR, TLGTH , TOUT , TLONG  ,  GTJTL  _ 

$ , TCOND ) 

COMMON  / GEN  1 / I WR IT , IDBUG( 15 ) , I  TEST , CR I T , NGMS , NTOT 
r  QMMON  /GEN2/TEMP, TFEED, YCDMP{ 20 ) »YFEEDC  20 )  , PRESS, ENTH 
COMMON  /CONDI  /N  TUB  E ,  D I A  .M  ,  I S  8  ,  I  SUL  ,  TST  E  M ,  S  v  I  N  R  ,  S  U  L I N 
$, YSULE(?0) 

COMMON  /DATA5/I DH20, IDSULC 5 ) ,WTM0LI20) ,VM0LE{?0) 

DATA  AREA  7 30.0/ 


C *****  INITIALIZE  CONDENSER  HEAT  LOAD  AND  LENGTH  TO  ZERO. 


QT  OT  L  =0  •  0 

2 ENTH-HEC  AL (TF EED, YFEED, 0 ) -ENTH 

TLONG -0.0 
IF  INI =0 


£*♦*♦*  CONDENSER  SEGMENT  LOOP 

EFFECTIVE  INTEGRATION  DOWN  CONDENSER  USING  SMALL 
C***»*  TEMPERATURE  INTERVALS  ( T  I  NCR  ) . 

C*****  SET  SEGMENT  OUTLET  TEMP. 

500  T  EMP=TEEEO-T I  NCR 


C*****  EVALUATE  SULPHUR  VAPOR  PRESS.  AT  OUTLFT  TEMP. 


CALL  VPRES ( VPMAX ,DVPDT,TEMP,  1  ) 
VPMAX=VPMAX*14.696 
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_ SUBROUTINE  CINTG  ...(CONT'D) 

C *****  FIND  SULPHUR  AND  TOTAL  MOLES  (GAS)  INTO  SEGMENT. 


CALL  SUMER ( YFEED  ,NGMS, 1  *  SUL T  N, SM ASS ) 
CAL  L  SUMER ( YFEED , NGMS ,0 ,YTOT , TM ASS) 


C*****  FIND  MAXIMUM  SULPHUR  MOLES  IN  SEGMENT  OUTLET  FOR 

C*****  SATURATED  OUTLET  (SMOLS),  AND  MINIMUM  SULPHUR 

REMOVAL  TO  ACHIFVE  THIS  SATURATED  OUTLET  < S'  I  NR ) . 


Y I NR T  =  Y TOT- SUL  IN 

_ S  MOLS  =  VP MAX^Y I NRT/ ( PRESS-VPMAX  )  _ _ 

S MI NR  = SUL  IN- SMOLS 

IF  SMINR  +V E ,  SET  OUTLET  TO  SATURATED  CONDITION. 
C*****  (THIS  IS  ONLY  AN  ESTIMATE  FOR  THE  OUTLET). 

IF(SMINR)  509,509,505 

509  SMINR =0.0 
GO  TO  510 

505  ICNTS=l 

DO  507  1=1, NTOT 
I F ( I- IDSUL ( ICNTS ) )  507,506, 507 

506  YCOMP ( I ) - YFEFD(  I  ) * SMOLS /SUL  I N 
I CNTS- ICNTS+i 

GO  TO  508 

u 07  YCOMP ( I ) =YF£ED( I ) 

508  CONTINUE 

510  CONTINUE 

T  F (  I TE S T—  3 )  801,800,800 

80  0  WRITE ( I WRIT , 1000) TFEED, TEMP » VPMAX , SMOLS , SMI  NR  *  SUL  IN 
801  CONTINUE 

C*****  STORE  LIQUID  SULPHUR. 

S  L I Q= YSULf (  I  SUL ) 


C***#*  CALL  CSECT  TC  SOLVE  FOR  THE  CONDENSER  SECTION  AREA 

c*****  ,  HE  AT  LOSS  AND  SEGMENT  OUTLET  GAS  AND  LIQUID 

C*****  STREAMS. 


CALL  CSECT ( AREA, QLOSS , TCOND , DPPF T , DEN TH ) 


C *****  CALCULATE  SEGMENT  LENGTH  AND  PRESSURE  DROP. 


SGMTL= ARE A/ ( NTU  SE*3 . 14159*0  I  AM/ 1 2 . ) 
DEL  TP=SGMTL*DPPFT 


C *****  HERE  TO  850  -  DECIDE  IF  INTEGRATION  COMPLETE,  AND 

C*****  UPDATE  STREAM  PARAMETERS. 
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SUBROUT iNF  CINTG  .  ..(CONT'O) 


RAT  10=1 .0 

IFCISIM)  75 C, 750,700 


r*****  SIMULATION  CASE  -  FINISHED  IF  CUMULATIVE  SEGMENT 

c***»*  length  is  equal  or  greater  than  specified  _ _ 

c*****  CONDENSER  LENGTH. 

TOO  |F« TLONG+SGMTL-TLGTU)  760,702,702 
c*****  SET  RATIO  OF  FINAL  SEGMENT  TO  USE. 


T02  R AT  10=1 , 0- { TLONG+SGMTL-TLGTH )  /SGMTL 
I  P  I  N I  =  I 
GO  TO  760 


C*****  DESIGN  CASE  -  FINISHED  IF  SEGMENT  OUTLET 

C***»* _ TEMPERATURE  IS  EQUAL  OR  LOWER  THAN  SPEC! FIFO _ 

C****«  CONDENSER  OUTLET  TEMP.  (OR  ALTERNATELY . ,  OUTLET 

C *****  TEMP.  REQUIRED  FOR  SPECIFIED  CONDENSER  RECOVERY.) 


750  I F ( TEMP-TOUT  — 0. 1  )  752,752,760 
C*****  SET  RATIO  OF  FINAL  SEGMENT  TO  USE. 


752  R  AT  1 0—  L . 0  M TpMP- TOUT ) / T I  NCR 
_ IFINI=1  __ _ 


C*****  DEFINE  SEGMENT  OUTLET  PRESSURE, TEMPERATURE,  AND 
CUMULATIVE  CONDENSER  TUBE  LENGTH  AND  HEAT  LOSS. 


760  PRESS=PRESS-DELTP*RATIO 
TEMP=TFE£D-TINC R *R A  T 1 0 
T  L  3  NG =TL ONG  +  S Gi M  T  L  *  R  A  T  1 0 
QTOTL-QTOTL+QLOSS* RATIO 


C**##  call  SHIFT  TO  DO  EQUILIBRIUM  SHIFT  ON  GASFOUS 
SULPHUR  SPECIES. 


K  I  N  I T = 0 

ENTH1=HFCAL ( TEMP, YC0MP,0) 

CALL  SHIFT(KINIT,NGMS) 

C*****  SET  OUTLET  GAS  STREAM  COMPOSTTION  AND  NEW  SEGMENT 
C*»***  FEED  AND  TEMP,  IN CASE  MORE  SEGMENTS  REQUIRED, 

ICNTS=1 

_ DO  765  1=1, NTOT _ 

I F (  I-IDSUL (  ICNTS  )  )  765,770,  765 
770  YCOMP ( I ) = YFEED ( I ) +( YCOMPt I ) -YFEED { I ) ) *RATIO 
ICNTS- ICNTS  +  1 
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SUBROUTINE  CINTG  . ..{CONT’D) 


765  YFEED ( I )=YCOMP(  I  ) 

YSULF  {  ISUL)  =  SL1Q+(YSULF(  ISUU~SL1Q}*RAT1Q 
T  FEED=TEMP 

DENTH=HFCAL ( TEMP , YCOMP, 0 ) -ENTH1 
_ I  E  (  ITEST-B  )  803 , 802,802 _ _ _ 

802  VI RT  TE  {  IWRIT  ,1001  )  SGMT  L  ,  TLONG  ,  QTOTL  ,  DEITP,  PR  ESS ,  R  AT  I  0, 
1  YSIJLF  (  I  SUL  )  ,YCOMP<ISUL) 

803  CONTINUE 

C****#  CHECK  COMPLETION  FLAG  UFINI). 


I F (  IFINI  )  500,50C,900 
900  QTOTL=QTOTL-DFNTH 
RETURN 

1000  FORMAT ( *  0 '  , 

l’TFEEO  - ' E 1 5 . 7 , 2  X  *  TEMP  = « E  15 . 7 , 2X* VPMAX  =»E15.7/ 
_  P  SMOLS  -»E  15.7, 2X«SMINR  = » E  1  5 . 7 , 7 X  *  SUL  I N  =*F15,7) 

1001  FORMAT (» 0’  ,  * SGMTL  = » E 15 . 7 , 2 X  * TLONG  =*E15.7/ 

1*  QTOTL  =  *  F 15. 7, 2X  *  DEL  TP  = * F 1 5 . 7 , 2 X • PR E SS  =*E15.7/ 
It  RATIO  -»E15.7,2X»  SLIO  =»E15.7,?X*  $FOG  =«E15.7I 
END 
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C  3k#  3k3k3k  3fc  #  >k  sk  3k#  3?c  3k  $  sk  sk  ❖  3k  ###3*=  ak  =k=k  3k  Jk  sk#  3k  =k  #  ^  ###  #  ## 


C 

C 

C 

T 

c 

c 


* 


SUBROUTINE  CSECT 


*  FUNCTIONS  - 

•A. 

*  -  CONDENSER  SEGMENT  UTILITY  ROUTINE 


# 


❖ 


* 

* 


c 

r 

c 


c 

c 


*  -  FINDS  CONDENSER  SECTION  AREA,  HEAT  LOSS  AND 

*  OUTLET  GAS  (INCLUDING  FOG  FORMED)  AND  SULPHUR 

*  FILM  STREAMS 

*  -  CALCULATES  AVERAGE  SEGMENT  PROPERTIES,  * 

-  INCREMENTAL  PRESSURE  DROP,  MOLECULAR  VOLUME,  * 

*  DIFFUSIVITY  AND  GAS-SIDE  HEAT  TRANSFER  * 


C  *  COEFFICIENT 

C  * 

c  **  v  ***  '(»  ^}»  Ja  jJ'  sj*  ^  3jv  5jc  )y\  xjx  jjv  3k  3k#  3k  #####################  3k  3k 


=k 

# 


i|*  ^  -V  * 


SUBROUTINE  CSECT  (  ARE A , QLGS S , TCOND, DPPFT , DENTH) 
n  I  ME NS  I ON  YAVGI 20) ,VATQM( 5) 

COMMON  /GFNL/IWRIT,  IDBIJG(  15  )  ,  I  TE  ST,  CR  I  T  ,  NGMS  ,  NTOT 
COMMON  /GEN?/TFMP,TFEED,YCOMP(20) , YFEED{ 20 ) , PRESS, ENTH 
COMMON  /CONDI/ N T  U  3  E , 0 1  A  M ,  I  SB, I  SUL , TSTEM , SM I  NR , SUL  I N 
$ , YS ULF  C*20) 

COMMON  / DATA 1/FORMU (20,5) , NA TYP ,  I  DA TM ( 5 ) 

COMMON  /DAT A5/I DH20, IDSUL(5 ) ,WTM0L(?0) ,VMOLE (20) 

DATA  TDEWS/35.0.0/ 

EVALUATE  SOME  STREAM  PROPERTIES* 

CALL  PROP ( TCEWS,YAVG , A VGMU , WALMU , RHO, T MASS, Y TOT , CPA VGJ 


C*****  CALCULATE  MASS  FLOW  RATE  THROUGH  TUBES. 

GAVG  = IMA  S S / { NTU8 E *3 . 14159*DI AM**2/4) *1444 
C*#***  CONVERT  VISCOSITY  FROM  CP.  TO  LR/FT.HR. 
v  I  S  =  A  VGMlJ^2  ~ 

C*****  CALCULATE  INCREMENTAL  PRESSURE  DROP  (PSI /FT* ) 

RE=GAVG*DI AM/12/VI S 
_ FF3=0.07q/RE**0. 25 _ _ 

nPPFT-=5*GAVG**2*FF/(  DIAM*I.  E  10*RH0*  (  A  VGMU/W  A  LMIJ )  ** .  14) 

C*****  ESTIMATE  THERMAL  CONDUCTIVITY,  USING  HEAT  CAPICITY 

C  *  *  *  *  *  AND  MOLECULAR  '-'EIGHT.  tREF.  -  PERRY) 

_ A VMWT =T  MA SS / YT  OT _ 

'  P K-  V I  S*( CPAVG+2. 4B/AVMWT) 

C***#*  CALCULATE  PRANDL  NUMBER. 
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SUBROUTINE  CSECT  . . .(CONT'D) 


PR=CP  AVG^V I S/RK 


C*****  HERE  TO  5  -  CALCULATE  AVERAGE  MOLECULAR  WTS.  OF 

C****«  SULPHUR  GAS  AND  INERT  GAS.  CALCULATE  WEIGHTED 

AVERAGE  MOLECULAR  VOLUMES. 


CALL  SUMER! YAVG,NGMS, 1 , SULF R , TSULF ) 
C AL L  SUM ER( YAVG,NGMS, Q, TOTAL, TMASS) 
AMWTS=TSULF/ SUL  F R 

AMWT I  =  ( TM A  S  S-TSULF )/{ TOTAL- SULFR } 

V  SULF  =Q  .  Q _ _  _ 

V I  NR  T -0 . 0 
I CNTS= 1 

DO  4  1=1 , NGMS 


£**«**  DECIDE  IF  PRESENT  SPECIE  SULPHUR  VAPOR  OR  INERT. 


IF! I— IDSUL (  ICNTS  )  )  3,2,3 

2  I CNTS= I C  NTS+ I 

V  S U L P  =  V S  U L F  +  V MO  L  E ( I ) *YAVGC I  ) 

GO  TO  4 

3  VINRT=VINRT+VMOLE! I )*YAVG( l  ) 

4  CONTINUE _ 

V SULF = VS ULE /SULFR 
T I NR  T  =  TOT  AL-SULF  R 
_  V1NRT=VI NRT/TINRT 

5  CONTINUE 

C»***»  CALCULATE  DIFFUSIVITY  OF  SULPHUR  VAPOR  IN  INERT 

C  *****  GA S  .  (SQ.FT.  /  HR  .  )  ~  REF.’  -  K  E R N". 


TK32= ( I CTFE ED + TEMP  J 72.0+459.69) / 1 . 8 ) ** 1 . 5 
D' V= o7ol6 6  *TK  32*  ( I  /  AM  W  T  S+ 1  /  A  MWT I)  **0  .  5  /  (  PRE  S  S  / 14 .  6 9  6  ) 
l  / ( VSULF**0.3333+VINRT**0 .3333 )**2 


C*****  CALCULATE  SCHMIDT  AND  REYNOLD  NUMBERS,  GAS  SIDE 
C*****  HEAT  TRANSFER  COEFFICIENT,  AND  MASS  TRANSFER 

C*****  COEFFICIENT  FACTOR. 


SC= VI S / ( RHO*DV) 

HG=0.0?3*RF** (-0.2)*CPAVG*GAVG/PR**0.6667  _ 

RKGFC=HG*PR**0. 6667/!  CPAVG*AVMWT*SC**0. 6667) 

IF!  I TE ST-4 )  801  ,800,800 

800  WjR  I  TF  (  I_WR IT, 1000)  DPPFT  ,  GAVG  ,  RK  , PR ,  AMWTS  ,  V SULF  ,  AMWT  I  , 
1  VI NRT  » DV , SC ,RE , HG 

801  CONTINUE 

CALL  CHBAL ! SULFR , TOTAL , RKGFC , AMWT S , CP  A VG , HG , SUL I Q , QA I 

$,  TCOND ) 

CALL  A QF NO!  TCOND, QA1 , AMWTS, SUL  I Q , GLOSS , ARE A , DENTH ) 
RETURN 
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SUBROUTINE  CSECT  .  .  .(CON 1*0) 


1000  FORM AT {  ’  0  1 » * OPPFT  ='E15.7,2X«  GAVG  =»E15.7,2X'  RK 
$  =  *  E 1 5 .7 / 


I*  PR 

I’  AMWTI 

1’  _ijC 

END 


*• E 15. 7  *  2X*  AMWTS  =* F 15 . 7 , 2X » VSULF 
=  'F  15.7,2X’  VINRT  =»F15.7,2X'  DV 
=»E15.7,2X«  RE  =»  E15.7, 2X»  HG 


*  E  15  .7/ 
• FI5  .7/ 
• EI5 .7  ) 
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c 
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SUBROUTINE  CHBAL 


FUNCTIONS  - 


-  CONDENSATE  FILM  HEAT  BALANCE  ROUTINE 


* 

* 

ft 


C 

c 

c 

c 

c 

c 


ft 

-Jr 

■Jr 

ft 

❖ 


ITERATIVELY  ESTIMATES  THE  SEGMENT  SULPHUR  FILM  * 
TEMPERATURE  SUCH  THAT  THE  FILM  HEAT  BALANCE  IS  * 
S  A  T  I S  F  I  F  0  * 
CALCULATES  SULPHUR  VAPOR  PRESSURE  AND  LATENT  * 
HEAT  OF  VAPORIZATION  AT  FILM  TEMPERATURE,  MASS  * 
TRANSFER  COEFFICIENT,  HEAT  LOSS  FROM  GAS  TO  * 


C 

C 

C 

c 


FILM  AND  FROM  FILM  TO  ST  F AM  FOR  EACH  ESTIMATE 
OF  FILM  TEMPERATURE 

5*1  ^  ^  5*'  iY  *V  J;'*'  *•'  >*'  4f  Jr  4j  *'•  jA|  »*'  j)>  ■A'  »•/  Jr  Jr  \V  j'  -.V  Jr  Jr  Jr  Jr  -/r  Jr  •.O  «lr  %<r  Jr  Jr  Jr  «'r  Jr  sir  Jr  Jr  Jr  -*r  J,  J>  - 

>  •  V  •'l'  v  ')k  *>k  *V*  •■,'  ■*!*»  'I'  rvv  ^S  <V»  fv  ',k  r>k  »■}'  ry»  rjs  rjs  rjs  ^S  r,s  «jS  rjv  ry*»  rjS  ryS  ^s  r^v  r^s  ^s  3^»  S  rjS  r^»  rj»  r^  r,s  JJs  r-s  r(s  ->  ^sr(-v  . 


❖ 

❖ 

❖ 


SUBROUTINE  CHBAL { SUL FR, TOTAL , RKGFC, AMW TS , C P A VG , HG 
$,  SUL  I  Q,  QA  I ,  TCON  D ) 

COMMON  /GEN1/IWRIT, IDBUGI 15 ) , I TEST , CR I T , NGMS , NTOT 
COMMON  / G E N 2 / TEMP, T FEE D, YCOMPC 2 OJ  » YFEEP( 20 ? » PRESS»ENTH 
COMMON  /Cl N D l / N TUBE  $  D I AM  »  IS8, I  SUL , TSTFM, SM I NR ,SUL IN 
$, YSULFI20) 


C*****  FIND  CONDENSATE  TEMPERATURE,  TCOND*  SUCH  THAT  HEAT 
C*****  TRANSFER  TO  COND.  FILM  EQUALS  THAT  FROM  IT. 


ITERH=0 . 

FAC  1  =  1  .1 
FAC  2=  1.0 

10  CALL  GUE.SRITCONO, FAC1,FAC2, ERROR,  ITERH) 

C *****  CALCULATE  SULPHUR  VAPOR  PRESS.  AT  TCOND.,  AND 
C*****  PARTIAL  PRESSURE  OF  SULPHUR  IN  GAS. 

_ CALL  VPRESf  VPSUL,DVPDT, TCOND,  I  )  _ 

V P S1JL  =  VP S UL *14. 696  . 

PPSUL=PRESS*SULFR/TOTAL 


C  *  *  *  *  *  C  A  LC  U  L  A  T  E M  A  SS  TRANS  F  E  R  COEFFICIENT. 

_ PGF-  (  PP  SUL- VP  SUL  )  /ALOGI  (  PRESS- VP  SUL  ?/(  PRESS- PPS1JL  )  ) 

R  K  G=R  K  GF  C  /  P  GF 


C*****  CALCULATE  LATENT  HEAT  OF  VAPORIZATION  (SULPHUR? . 

HL I 0=HFC  AL ( TCOND  ,YSULF ,0 ) 

_ YSULF ( ISB)=YSULF( TSUL) _ 

HVAR=HFC AL ( TCOND, YSULF, 0 ) 

YSULF ( I  SB) =0.0 

DELT  A= ( HVAP-9*HL IQ ) /{ YSULF ( I  SUL) *2 56. ) 


■  H 

■t 

i  In  <■  '<  r  MM!  '  1  V  ' 

’  •  -!  •  f  •  I  • 

f  I  '* 

t  ■  ’  ..  1  '  > 

.  :  •  ,  (  jn  r  m  ,  r  !  - 

"  .  •  V  .  T  \  V 

L » 

•  T  ■  . 

f  ; r  ■  ,  ■  i,c  j.  '•,!"•  , 

. 

.  ■  T  .  , 

A . 

f  a  7  r v 

■ 

-t  ?  ) ’  f  '  -  ) '  r  ■  -  ■ 

'  ■ 

(  )1  JU  ' 

■  . ' 

( . 

D-  179 


SUBROUT  INF  CHBAL  . ..(CONT'D) 


CALCULATE  MOLE  FLUX  SULPHUR  TO  CONDENSATE  FILM* 


SUL  I Q=RKG* ( PPSUL-VPSUL) 


C *****  CALCULATE  ACKFRMANN  COEFFICIENT  ( AC )  TO  ACCOUNT 

C*****  FOR  EFFECT  OF  MASS  TRANSFER  ON  HEAT  TRANSFER. 


A=SUL IQ*AMWTS*CP AVG/HG 
AC  =  A/ { I .-EXP (-A)  ) 


C*****  CALCULATE  HEAT  FLUX  TO  COND.  FILM . 

_ J M F  A N  =  (  TFE£D-«-TEMP)/2*0 

Q A 1  =H G*i  T M E  AN -T C OND )  * AC+SUL I  Q*DELTA*A MWT S 

CALCULATE  FILM  HEAT  TRANSFER  COEFFICIENT  ,  HCQND . 

TAU-vsulf (  i SUL )* 32. 0/ ( NTUBE* 3. 14159*01  AM/12.  ) 

____  RELIQ=TAU*Q. 1653 

HCOND— 327*8 *R EL  IQ**! — 0 .3333 ) 

SPECIFY  HEAT  TRANSFER  RESISTANCE  FROM  WALL?  S  T  F  A  M  , 

C*****  AND  FOULING . 

RSCWF=0.006 


C*****  CALCULATE  HEAT  FLUX  FROM  COND.  FILM  TO  STEAM. 

UCTOS= l / { l/HCONH+RSCWFl 

QA2=UCT0S* ( TCOND-TSTEM) 


C  * *  *  *  *  IF  heat  fluxes  equal,  correct  temperature, 

C***£*  OTHERWISE  ITERATE  ON  TCOND . 


F  RROR=QA 1-Q  A? 

I F ( ABS( ERROR/ QA1  )-CRIT**0.5  )  11,  11,  10 
11  CONTINUE 

I F { I T  E  S T-3  ) . 804 , 802,802 

802  WRITE (I  WRIT  ,  1 0  0  2  )  I T ERH , TCON 0 , Q A  1 , Q A2 

_ I  F  <  ITEST  —  4)  804,803,803 _ _  _ 

803  WRITE ( I WRIT, 100 3)  VPSUL , P PSUL , PGF , RKG , CELT A , SULI Q, AC 
$,  HCQND 

804  CONTINUE 
RETURN 

1002  FORMAT (’ 0  I TERH  = *  I  3 , 2X • TCOND  =»E15.7,2X*  Q A  1  =»E15.7 
$ , 2  X 1  QA2  = 1 E 

115.7) 

1003  FORMAT! *  • ,'VPSUL  = ■ E 15.7, 2X*PPSUL  =*E15.7,2X*  PGF 

$  =*  E15.7/ 
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SUBROUTINE  CHRA  L  .  .  (CONT  »  0  ) 


1’  RKG  =  *  E  15.7 i ?X '  DELTA  = * E  1 5. 7 , 2X ' SUL  I  0  =*E15.7/ 

1 *  1  AC  =  *  F  1 5 . 7 , 2 v  ’  HC. ON D  *■  E15*7  ) 

END 


('  * 


\V.  ;  •  »  »  V  '  s  .  ,  '  *  r  .  I  * 
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■  * 

*  SUBROUTINE  AQFNO  * 


C 

c 
c 

C  *  FUNCTIONS  - 


* 


c  *  * 

c  *  —  CONDENSER  SEGMENT  HEAT  BALANCE  ROUTINE  * 

C  *  ~  ITERATIVELY  ESTIMATES  THE  SEGMENT  LENGTH  SUCH  * 

C  *  THAT  A  HEAT  BALANCE  ON  THE  SEGMENT  TS  SATISFIED  * 

C . *  -  FOR  EACH  ESTIMATE  OF  LENGTH,  THE  SEGMENT  MASS  * 

C  *  AND  HEAf  TRANSFER  ARE  CALCULATED  —  THE  SEGMENT  * 

C  *  OUTLET  STREAMS  ARE  FOUND  AND  THEIR  ENTHALPY  IS  * 

C  *  CALCULATED  * 

C  *  -  CHANGE  IN  SEGMENT  STREAM  ENTHALPIES  MUST  T 

C  *  EQUAL  SEGMENT  HEAT  LOSS  * 

♦ _ Ji.  SEGMENT  OUTLET  MUST  BE  SATURATED  OR  SUPER-HEATED  * 

C  *  —  OTHERWISE  FOG  IS  FORMED  UNTIL  SATURATION  TS  * 

C  *  REACHFD  * 


r 


❖ 
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SUBROUTI NE  AQFNO ( TCOND, QAl , AMWTS* SUL  I  0, GLOSS , AREA 
$*  DENTHJ 

COMMON  /GEN1/IWRIT,  IDBUGI 15 ) , I TEST, CR IT , NGMS , NTOT 
COMMON  /GFN2/TEMP,TFEEQ,YCQMP(2Q) , YFEEDI 20 ) , PRESS, ENTH 
COMMON  /C0NQ1/NTUBF ,01  AM ,  I  SB , I  SUL , TSTEM, SMINR , SUL  IN 

$ , YSUL  F ( 20 ) 

COMMON  /D AT A5/ I D H ? 0 , IDSUL(5 ) ,WTMOL(  20 ) , VMOLE (201 


C*****  I TF  R ATI VE  L Y  CALCULATE  INTER-DEPENDENT  AREA  AND 
C*****  HEAT  LOSS. 

C*****  CALCULATE  INLET  ENTHALPY  OF  GAS  AND  L  IQU  HT. 

ENTHI=HFCAL  fTFEEDy YFEEDrQ  H-HFCALC TCOND, Y SUL F ,0) 
C**#**  STORE  INLET  LIQUID  AND  FQG  SULPHUR. 


S  FO G=  YCO M P (  I  SUL  ) 
SL I Q  =  Y SULF (  I  SUL  ) 


C^****  INITIALIZE  GUESS  ROUTINE  PARAMETERS, 

_ _ I  TERH  =  0 

p  A  C  1  -  1.1 
EAC2-1 .0 


C*****  GENERATE  A  GUESS  FOR  AREA. 

1  CALL  GUESRI AREA, FAC1,FAC2, ERROR, ITERH) 


f*  c 


CALCULATE  HEAT  TRANSFER  FOR  THIS  AREA 
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_  _ SUBROUTINE  AQFND  ...fCONT’D) _ 

0L0S1=AREA*QA1 

C *****  CALCULATE  SULPHUR  MOLES  TRANSFERED  FOR  THIS  AREA. 
_ SMQLS  =  SULI Q*ARF A _ 

C*****  HERE  TO  25  -  CALCULATE  RESULTING  OUTLET  STREAMS. 

IF? SMTlT-SMINR?  21,2  1,22 

c *****  OUTLET  IS  SATURATED  OR  SUPER-COOLED. 

if  SUPERCOOLED,  FORM  FOG  TO  BRING  TO  SATURATION. 

21  SFACT_=C SUL .IN-SMI NR) /SUL  IN 

YCOMP ( I  SUL ) =  SFOG+ { S M I N R - S M OL S ) +AMWTS/32 . 0 
GO  TO  23 

C«****  OUTLET  IS  SUPER-HEATE07~ 

22  S  FAC T= ( SUL  I N-SMOLS ) /SUL  I N 
YCO  3P  (  I  SUL)  =  S  FOG" 

INCREASE  CONDENSATE  FILM  BY  MOLES  TRANSFERED  TU  IT 

23  YSULF  {  ISUL)-=SLIQ+SMOLS*AMWTS/32.0 


C*****  DECR^AS  E  SULPHUR  VAPOR  BY  THE  APPROPRIATE  AMOUNT . 

DO  24  1=1,5 

TCNTS=IDSUL ( I  ) . 

I F ( IC  NTS-NGMS )  24,24,25 

24  YCOMP ( I  CUTS )=YFEED< ICNTS ) *SF ACT 

25  CONTINUE 

CALCULATE  HEAT  LOSS  BY  ENERGY  BALANCE  AROUND _ 

C** '***  SECTION. 

QL0SS=ENTH1 -( HF C AL ( TEMP, YCGMP, 0 > +HFC AL ITCONO , YSULF,  0 ) ) 
$— DE NTH 


jtfrate  ON  AREA  IF  IT  HAS  NOT  CONVERGED, 

C*****  DEFINE  ERROR  AS  HEAT  LOSS  DISCREPANCY. 


_ ERROR  =  QLOS1-QLOSS 

I F  (  AB  S  ( E  RRO  R/QL  OSS )  — CR  IT )  2  7,27,1 
27  CONTINUE 

_ I  r  C  ITEST-3)  807,805,  805 _  _ _ _ 

805  WRITE ( I  WRIT  ,1004)  ITERH, QLOSS , AREA, SMOLS 
007  CONTINUE 
RETURN 
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_ SUBROUT TME  AQFND  . ..(CONT«D) _ 

1004  FORMAK  •  01  TERN  =  •  I  3 , 2  X  •  QL  OS  S  =’015. 7, 2X*  ARF0  =  «E15.7 
$±2X  *  SMOJLS  ~  1  E 
115*?) 

END 


'  !  >  ♦ .  . 
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C  »*  **»*»*»  »»*»«»»»»»  »»»»*»»  It********************** 


c 

c 

c 

c 
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c 

c 

c 
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SUBROUTINE  FOGST 


>;t 

❖ 

* 


FUNCTIONS  - 


* 

* 

* 


CONDENSER  OUTLET  FOG  DETERMINATION  ROUTINE 
SETS  OUTLET  FOG  TO  SPECIFIED  MAXIMUM  IF  THIS" 
HAS  BEEN  SPECIFIED 

CALCULATES  CONDENSER  PERCENTAGE  CONDENSATION 
AND  SULPHUR  RECOVERY 
STORES  CONDENSER  OUTLET  STREAMS 


 ❖ 


SUBROUTINE  FOGS! ( TMS I N, NSUL F , TCOND, NF X  I T ) 

COMMON  /GEN 1/ 1 WRIT , ID8UGI 1 5 )  ,  I  TE S T , C R I T , NGM S , NT OT 


COMMON  /GEN2/TEMP,TFEED, YCOMPI 20) , YF E E D I  20 ) , PRESS, ENTH 

_ COMMON  /STQftl /FQUIPI300 ) , I L PC , NMBEQ, S TRFM  1  5  0,22) 

$,  NS  I N  I  5  ) , NSOUT { 5) 

COMMON  / CONDI /NT USE, D  I  AM ,  ISO, I  SUL , TSTEM, SM I NR , SUL  IN 
* , YSULP 1 2  0 } 

IND^l 

I  F (  ITEST-1 )  801 ,800,800 

_ OOjT  I  TE  (  I WR  I  T  ,  1 000  ) 

801  CONTINUE 

C»**»*  CALCULATE  PERCENT  OF  INLET  SULPHUR  CONDENSED. 


1  SFOG= YCOMPI  I  SUL ) 
WFOG=SFOG*32.0 

SLI Q= YSULF I  I  SUL  ) 

W L I  Q=  S L I  Q *3  2 . 0 

CRC,  0  V  =  (  NEOG  +  WL  I  Q  )  /  T MS  I  N*  1 00 . 0 


C***#*  FIND  ACTUAL  SULPHUR  RECOVERY. 


ARCOV -WL I Q/TMS I N* 100 . 0 
I F {  I  TEST- 1 )  803,802,802 

802  1 ! R  T  TE ( I WR IT  ,2010)  CRCGV, ARCOV 

WRITE ( I WRIT  ,1002)  SFOG, WFOG, SLID, WL IQ, NSUL F, TCOND 
WRITE IIWRIT ,0000 ) 

803  CONTINUE _ 

I F (  IND-1 )  10,10,200 


***  CHECK  MAX  SDrCTPIPD  FOG  FORMATION. 

10  FOGMX=-EQUI P ( ILOC+IO) 

_ I  F ( FQGM X-0 -  1 )  200,200,50 _ 

50  CALL  SUMER I YCOMP ,NGMS ,0 » TOTAL, DU MY  I 

CALL  SUMER! YCOMP, NGMS, 1,T0TS,DUMY) 

SOT FE  =  SFOG- ( FOGMX* I  TOTAL-TOT S ) / (100.0*32.0)) 
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SUBROUTINE  FOGST  ...(CONT'D) 


IFtSDTFF)  200,200,51 
51  ENTH 1 =HFC  AL { TCONQ , YSULF , 0 ) 

Y  SUL  F { fSUL )=SDIFF 
E  NT HR -HF C  AL ( TEMP , YSULF , 0 ) +ENTHI 

_ YSULF ( I SUL)=SLIQ+SDIFF 

"CALL  FINOK  YSULF  ,TCONO,ENTHR  ) 

VCCMP ! I  SUL ) =SFOG-SO IFF 
i F ( I TEST- I)  809,804,804 

804  WRITE  (  IWRIT’,2000)  FOG  MX 

I F ( F0GMX-20 • 0 )  805,805,808 

805  I F( FOGMX-4. 0)  806,806,807 

806  WRITE!  [WRIT  ,200  I  ) 

GO  TO  810 

807  WRITE ( IWRIT  ,2002) 

810  WRI TE ( IWRIT, 2004 ) 

808  WRITE!  I  WRIT  ,2003) 

809  CONTINUE 

I ND-2  - 

GO  TO  1 

200  CALL  SUTIL(NFXIT, 2, YCOMP, TEMP, PRESS  ) 

CALL  SUT I L ( N SUL F , 2 , YSULF, TC GND , PRESS) 

EQUIP ( ILQC+1 1 )= ARCOV 
I F  ! I TEST— 1 )  812,811,811 

811  WRITE  II WRIT  ,3001  )  "  '  ''  . 

812  CONTINUE 
_ RETURN 

1000  FORMAT ( *  1*7 ///T 42 » CALCULATED  SULPHUR  OUTLET  *  I 
1002  FORMAT! '0»T31 'SULPHUR  FOG  -  'FT. 2'  MOLFS,  OR 

$  'FT.  1  *  LBS.'/ _ _ 

1T31  '  SULPHUR  LIQUID  -  »F7.2»  MOLES,  OR  'FT.T^  LBS._r7~ 

1T32*  1  !  STREAM  NO.  M2'  ,  TEMPERATURE  =  *F6.1>  OEG.F.JM 

2000  FORMAT l'T34T  SPECIFIED  MAXIMUM  ALLOWABLE  FOG  FORMATION,  * 
%/ 


1T36MLBS.  S/100  LB.  MOLES  INERTS)  =  *F6.2) 

2001  FORMAT! ' 0 » T 38 ' E X  I S T ENCF  OF  COALESCER  IS  IMPLIED'  ) _ 

2002  FORMAT! • 0  * T36 • EX  I  ST ENCE  OF  DF-MISTER  PADS  IS  IMPLIED’) 

2003  FORMAT! ’ 0 ’ T44 ’ R E V I SED  SULPHUR  OUTLET') 

2004  FORMAT (T  »T36» - ♦) 

3001  FORMAT (////T40 ' CONDENSER  GASEOUS  EXIT  STREAM') 

2010  FORMAT! » 0 ' T25 • PERCENT  CONDENSATION  =  'F6.2', 


T  PFRCENT  RECOVERY  = _ 

1* F6.2  ) 

9000  FORMAT!  'O'  ,T25»  '  # 

5  -if.  ❖  sjc  &  Sr  :r  &  # 


sjc  #  #  s’?  Sr  s?:  S^  s;c  if.  ;!c  if  if 


1  if  #  -fn  ,  /) 

END 
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C  *****************#*******£*»***************** *****»»****& 


C 

C 
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SUBROUT  INF  COMBN 


FUNCTIONS  - 


* 


❖ 

* 


-y- 

* 


* 


-  PRIMARY  ADIABATIC  STREAM  COMBINER  ROUTINE 

-  DEFINES  EQUIPMENT  FEED 

-  CHECKS  DATA  FOR  COMPATIBILITY 

-  FINDS  ADIABATIC  OUTLET  TEMPERATURE 
(SULPHUR  SHIFT  REACTION  ALLOWED  ONLY) 

IF  INFORMATION  RECYCLE  STREAM  EXISTS,  PREDICTS 

_ VH AT  UPSTREAM  STREAM  SPLIT  SHOULD  BE  TO  YIELD 

DESIRED  OUTLET  TEMPERATURE.  (USES  RESULTS 

OF  THIS  PREDICTION  AS  PRESENT  EQUIPMENT  OUTLET 
STREAM) 

CALCULATES  OUTLET  STREAM  SULPHUR  AND  WATER  DEW 
POINTS  AND  STORES  RESULTING  OUTLET  STREAM 


* 

* 


* 

* 

Sc 


:*****  Sc**  Sc**  Sc*  *  S'  ******  **Sc***  ******; 


:******** 


-y.  v  *}V 


*  *  **  : 


SUBROUTINE  G0M8N 

COMMON  /GEN1/IWR  IT, IDBUG( I5),ITFST,CRI T,NGMS,NTOT 
COMMON  /GEN 2/TEMP, TPEED,YC0MP(20) ,YFEED(20), PRESS, ENTH 
COMMON  /STQRI/. EQUIP  (  300  )  ,  I  LCC  ,  NMBEQ,  S  TRFM  (  5  0,22  ) 

$ , NS  I N ( 5 )  , NS  OUT ( 5  ) 

C OM MO N  / BUR N1 / TC TOE , T8UR N , I  MUFF , NLGTH , ND I AM , NRT I M 

_ $»  NHRLS,N8UR~N 

WRITE! I Wp IT ,6000)  NMBEQ 
I  F (  I  TEST— 1 )  803,802,80 2 

802  WRITE ( IWRIT, 9000) 

WRITE { I  WRIT  ,6001 )  NSIN(l) , NS  INI? ) 

WRITE { I WRIT, 9000 ) 

WRITE ( I WRIT ,6003 ) 

803  CONTINUE 


C  *  *  *  *  *  DEFINE  FEED  STREAM. 


N  STRM  =  0 

CALL  SUTIL(NSTRM,0,YFEED,TFEED, PRESS) 


C *****  CHECK  OUTLET  TEMP.  DATA  FOR  COMPATIBILITY. 


NEX  I T=NSOUT ( 1 ) 

CALL  COM PR (N EXIT, 21,1) 

C*****  FIND  RESULTANT  MIXED  STREAM  OUTLET  TEMP. 

C *****  SULPHUR  SHIFT  EQUILIBRIUM  ALLOWED  ONLY,  SET  TCTOF . 


T  C  TOE  1 .0 
DO  100  1=1, NTOT 
100  YCOMP ( I ) =YFFED(  I  ) 
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SUBROUT  I N£  COMBN  . . . ( CON T « 0 ) 


TEMP=TFEFO 

NOHLS^O 

CALL  TCALC (  NOHLS ) 

IF  INFORMATION  RECYCLE  STREAM  EXISTS,  FIND  THE 

STREAM  SPLIT  FRACTION,  FOR  FEED-BACK,  WHICH  WILL 

RESULT  IN  THE  OESIRFD  OUTLET  TEMP.  FOR  THIS 
EQUIPMENT. 


IF { NSOUT ( 2) )  200,300,300 
200  CALL  FI NOE 
300  CONTINUE 

****  DEFINE  OUTLET  STREAM. 


CALL  SUT IL( NEXI T, 2 , YCOMP, TEMP , PRESS  ) 

FQUIP ( ILQC+2 ) -TEMP 

I  F {  I  TEST- l )  801 , 800,800 

300  WRITE ( I WP IT, 9000) 

WRITE ( I WRIT ,6002 ) 

CALL  PR NTS (NEXI T) 

C*****  CALCULATE  OUTLET  SULPHUR  £  WATER  DEW  PTS. 


£  ^  ^ 


TDEWS=500 . 

_ CALL  DEW PT (T DEW S  ,  YCOMP, PRESS  ,  1 ) 

TOE  WM*  I  Si)"* 

CALL  DEWPT (TDEWW, YCOMP, PRESS, 0) 

WRITE ( IWRIT ,5002 )  TDEWS, TDEWW 

WRITE { I WR I T ,9000 ) 

801  CONTINUE 
RETURN 

5002  FORMAT!  T35*  STREAM  SULPHUR  DEW  PT.  (DEG.  F )  =  »,F7.1 
$/T35* STREAM  W 

1ATER  DEW  PT.  (DEG.  F)  =  , F7 .  jj _ 

6000  F0RMAT(T42' ADIABATIC  STREAM  COMB  I NER * / T45 ' EQU I PMENT 
T  NUMBER' 

118) 

6001  FORMAT! T4L, 'COMBINE  STREAMS  *  ,1 3, »  AND  *13) 

6002  F0RMAKT32,  ’COMBINED  OUTLET  STRFAM  (SULPHUR  SHIFT 

_ $  DONF  )  -'  )  _  _  _ _ _ _  _  _ 

6003  FORMA T(T32, 'FIND  GIVEN  FEED  STREAM  RESULTANT 

$  TEMPERATURE ’ ) 

90  00  FORMAT  (  'O'  ,  T  2  5 ,  '  ##  t-  ❖  $  $  *  $  $  $  $  *  *  *  $  *  #  $ «  ^  sje  ^  # 

<t,  $  ^  #  ijt  :'X  ^  ^  i*.  *t  #  $ 

l  ****$**:$:*$  I  /  ) 

END 
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C  *  »  *  *  *  ********  ******  *  **  ❖  *  * *  *  sjs  *  *  *  *  £  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **  *  **  *  *  * 


C 

c 

r 


C 

C 

C. 

r 

C 

C 


SUBROUTINE  FINOE 


C  *  FUNCTIONS  - 
C  * 

C  *  - STREAM  SPLIT  PREDICTOR  ROUTINE 


* 

❖ 

3fc 


DEFINES  INFORMATION  STREAM  AND  HOT  AND  COLO 
PROCESS  INLET  STREAMS 

USING  THE  SECANT  METHOD,  ITERATIVELY  ESTIMATES 
UPSTREAM  SPLIT  tq  YIELD  DESIRED  OUTLET  * 

TEMPERATURE  * 

FOR  EACH  ESTIMATE,  EVALUATES  EFFECTS  ON  HOT  AMD  * 


C 

C 

c 

c 

C 

c 


* 


COLO  STREAMS  —  DOES  SULPHUR  SHIFT  AND  THFN 

FINDS  RESULTING  OUTLET  TEMPERATURE  i NEWTON* S 
METHOD) 


STORES  PREDICTED  SPLIT  IN  INFORMATION  STREAM 
WHEN  CONVERGENCE  ACHIEVED 


* 


* 

* 

* 


C  ***********  ********************************£**£  .;, 


SUBROUTINE  FINOE 

DIMENSION  Y FED 1 <  20 ) ,7 FED 2 ( 2  0 }  “ 

COMMON  /GEN1/IWRIT, IDBUGC  15 ) ,  I  TEST , CR I T , NGMS , NTOT 
COMMON  /GEN?/TFMP,tfeED, YCOMP( 20) , YFEED( 20 ) > PRESS, EN TH 
COMMON  /STGR1/EQUIPC300) f I LOC , NM8E Q, S TREM { 50 , 22 ) 

$t NS  IN (5)  , NS OUT ( 5  ) 


C*****  DEFINE  INFORMATION  STREAM  AND  TWO  "FEED  STREAMS. 


N  I NE  0  -  -N  S GU T  (  2  ) 

NEPSM=A3S( EQUIP!  ILOC  +  3)  M-0.5 
NSTRM-NS I  N!  U 
I F{ NE PSM-NS TRM)  2,1,2 

1  NSTRM-NS INC  2) 

2  CALL  SUTILCNEPSM,  1,YFED1,  TEMPI,  PDUMY) 

F,NTHl=HFCAL  (TEMPI  tYFEDl  ,0) _ _ _ 

CALL  SUTIL (NSTRM, 1 , YFED2 , TE MP2 , PDUMY ) 

ENT  H2  =  HFC AL ! TEMP2, VEED2 , 0 ) 


C *****  DEFINE  AND  STORE  PRESENT  STREAM  SPLIT  FRACTION. 

_ FPS-SETVU(ABS(STP.EM(NINEQ,2  )  ),0.1  ) _ 

EPSTR=EPS 


C*****  .  SET  DESIRED  OUTLET  TEMP*  AND  ITERATION  FLAGS. 

TOSIR  =  SETVU (-EQUIP!  ILOC  +  1 ) ,  425.0  > 

FAC  1= 1 . 1 
FAC 2=  I  .0  0 
TCALC-TFMP 
TEMP- TD  S I R 
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SUBROUTINE  F I  NOE  .  .  . { CONI* 0 ) 


KINIT=1 
I TER=Q 

E  RR  0  R  =  T  D  S I R  -  T  C  A  L  C 

IF{ ABS (ERROR/ TDSIR)-CRIT* 10.  )  20,20,  10 


C*****  CONVERGENCE  CHECK. 

9  IF ( A8  St  ERRQR/TDS IR) -CRIT I  20,20,10 


C*****  SECANT  METHOD  IS  USED  TO  GENERATE  GUESSES  FOR  THE 
STREAM  SPLIT  FRACTION  SUCH  THAT  THE  DESIRED  OUTLET 

C*****  TEMP.  IS  REALIZED. 

10  CALL  GUESJU  EPS,  r  AC1 ,  FAC2  , ERROR,  I  TER.) 

C*****  GENERATE  NEW  FEED  STREAMS. 


DO  11  I  =  1  , N  TOT 

11_ VCOMP( I ) =YE  EDI (  r )*FPS/FPSTR+YFF02(  I  ) - {  1-EP S )  /  (  1-FPS TR ) 
_ ENTHR=ENTH1»£PS/EPSTR +ENTH2*{ l-EPS) / ( 1-EPSTR ) 

***  CALCULATE  SULPHUR  SHIFT  AT  DESIRED  TFMP.  (TDSIR) 

CALL  SHIFT!  KINI  T,NT0T) 

***  CALCULATE  RESULTING  OUTLET  STREAM  TEMP. 


CALL  FI  NOT ( YCOMP , TC ALC , ENTHR ) 

_ FRROR=TPS  I R-TCALC _ _ 

I F ( I  TEST-5 )  801,800,800 

800  WRITE!  I W R I T  ,5000)  I  TER, TDS I R , TC AL C , EPS , FPS TR 
)1  GO  TO  9 
20  CONTINUE 

_ STQRF  FOUND  STREAM  SPLIT  FRACTION. 


S  TREM ( NI NFO , 2 )  =  FPS 
IF{ I TEST- I )  803 ,802,802 
802  WR  I  TE  (  pr-  t  T  ,0000  ) 

WRITE (IWRIT, 5001)  TDSIR, EPS 
WRITE ( I  WRIT,  500 2) 

801  CONTINUE 

RETURN 

5000  FORMAT!  «  *  ' F I  NO  F  » •  ITER  -  »  ,  13,  »  TDSIR  =  *  F  1  0  . 4 ,  » 

$  TC ALC  =  * , F 10. 4 , 

1*  EPS  =  *  , F 1 0 . 4  ,  '  FPSTR  =  »,F10.4) 

5001  FORMAT! T26 • PREOI C TED  STREAM  SPLIT  FOR  TEMP.  OF  ‘F10.4 

’  IS  ' F7 . 4 ) 

5002  F ORMAT ( T34 ' USE  STREAMS  RESULTING  FROM  THIS  PREDICTION 
$  '/ 
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SUBROUTINE  FINDE  .  ..(CONT'D) 


1 T 3 6  *  FOR  PRESENT 
90 00  FORMAT ( «  Q» >125; 

$  i  4s  4s *  4=  4c  s.‘t  4«  4<  * 


EQUIPMENT  OUTLET  STREAM.*) 


i  *  4c  4c  4c  *  *  *  *  *  ❖  *  *  *  *  $  4c  *  *  *  *  *  £  #  $  *  *  #  ^  #  $  *  j,  ^  ^  a, 


}  *  4c  4<  4c  4c  4: 4s  4s  4c  4c »  /  ) 

ENO 


(  ’  •  '  *  '  !  1  T'  I  • 


(  i  *  )  -t  ■  in  ,r 
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C  *  *  *  *  *  »  »  aje  afle »  *  &  & 
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c 
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SUBRDUT INF  CM  BOV 


FUNCTIONS  - 


PRIMARY  STREAM  COMB INER/D I  V  I  HER  ROUT  IMF 


C 

C 

C 


C 

C 

C 


s!: 


COMBINES  UP  TO  5  INLET  STREAMS  AMO  CALCULATES 

RESULTING  TEMPERATURE  AND  PRESSURE 
-  DIRECTS  COMBINED  STREAMS  TO  A  SINGLE  OUTPUT 


* 

x  a. 


* 


OR  DIVIDES  THE  STREAM  BETWEE~N  two  OUTLETS 

-JU 

*  #  *  *  *  ***  £  ***£  *  ❖  £  ❖  ❖  *  *  *  *  *  *  *  *  $  #  *  #  *  *  *  *  4c  *  *  *  *  *  *  Jjt  *  *  £  *;  *  # 


SUBROUTINE  CMBDV 

_ COMMON  / G E N 1 / 1 W R IT , IDBUG1 LO), ITEST,CR I TfNGMS ,NTOT 

COMMON  /GEN2/TEMP»TEEEDf YCOMP (20) ,YFEED(20T»  PRESS, ENTH 
COMMON  /ST0R1/E QUIP (300) , I LOC , NMBE Q, STREM ! 50 , 22 ) 
$,NSIN!5) , NS  OUT { 5 ) 

DATA  TANDY'S*/  "  '  '  " 

WRITE! IWR IT, 6000)  NMBEQ 

£***** .  CHECK  NUMBER  OE  INLET  AND  OUTLET  STREAMS* 

DO  1  1=1,5 

IF! NS  IN! I ) )  2  , 2,1  ~  ~  ~ ~ 

1  CONTINUE 

2  K I N= I -1 

no  3  l=l | 5 
I  F ( NSOUT ? I )  )  4,4,3 

3  CONTINUE 

4  KOUT- I -1 

DEFINE  TOTAL  FEED  TO  EQUIP* 


NSTRM=0 

CALL  SUT IL (NSTRM,0, YFEED,TFEED, °RFSS ) 


C*****  K I N= 1 ,  SINGLE  FEED.  KIN  G.T.  1,  COMBINER. 


IF(KIN-L)  11,11,10 

10  IF? I  TEST- 1 )  801,800,800 

800  WRI TE ( I WRIT ,9000) 

WRITE ( I WRIT, 1000)  NS  IN ( 1 ) , ( I  AND , NS  IN!  I)  ,  1  =  2, KIN) 

11  C Al L  PRNTS! -I ) 

801  CONTINUE  _ _ _ 


C*****  K0UT=1,  SINGLE  OUTLET.  KOtJT-2 ,  DIVIDER. 


I F ( KOUT-2 )  20,21,500 
C***»*  STORE  SINGLE  OUTLET. 
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_  SUBROUTINE  CM8DV  . ( CONT  « D ) _ 

20  CALL  SUTIL(NSOUKl)  ,2fVFEED, TFEFO,  PRESS) 
GO  TO  900 

500  WRT  Tr  {  nr  IT  ,5000) 

21  EPS=SETVU{ ABS{ EQUIP! I LOC+i ) ) , 0. I ) 

EQUIP (I L0C+1)=STGN! EPS , EQUIP {  ILOC+1  )  ) 
NSPLT-ABS (EQUIP (  ILOC+2 )  )  +0.5 

NEXI  T  =NSOUT  (  1 ) 

I F( NEX IT-NSPLT )  22,23,22 
23  NEXI t =NS0Uf(2 ) 

22  CONTINUE 
THR»J=  1 .0-PPS 

no  30  1  =  1  ,NTOT 
YCOMP (  I  )  = YF EEO (  I  )  *EPS 
YFEEPt li^YFEEOC I )*THRU 
30  CONTINUE 


£**»*» _ STORE  SPLIT  AND  THROUGH  STREAMS. 


CALL  SUTIL(NFXIT,2,YFFFD,TFFED, PRESS) 

_ CAt  L  SUTILC NSPLT #2 , YCOMP, TFEED, PRESS ) 

I F< ITEST-l )  803 ♦802,802 

302  THRU=  THRU *100. 0 

_ _ E  PS  =  E  PSMQQ  .  0 

WRITE ( I  HR  I T , 1 002 )  EPS, NSPLT , THRU , NETTY 
WRITE ( I WP IT ,9000  ) 

303  CONTINUE 
900  RETURN 

1000  FORMAT!  *  O'  T39,  ’COMBINE  STREAMS  M2,4(»  »Al*  M2)) 
1002  FORMAT! »0»T45' TOTAL  FEED  IS  SPLIT  - * //T41 , F7  . 3 « 

T  PERCENT  TO  STREAM 

T '  14*  ,  ’/T41 ,F7.3, *  1  PERCENT  TO  STREAM1 14) 

5000  FORMAT! *  OA  STREAM  DIVIDER  HAS  2  OUTLET  STREAMS,  NO 
$  MORE ' ) 


6000  FORMAT! T43* STREAM  COMBINER 

M  EQUIPMENT  NUMBER  M3) _ 

9000  FORMAT! ' 0  * , T25, ’ $  *  *  *  * 

5*!  ^  sjt  #  -ff.  #  # 


/  niVTDER»/T45 


1  *  $  *  $  if.  #  3*c  if  I  /  ) 

F  NO 


- 


i'  ' 

1  ■  .  .  '  )  )  .! 

f  1  ,  r  (  '  J  !  •  )  <  ’  :  ! 
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.  <•  “  ■  (  r  f  ' 
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. 

* 

•  )  r : 
1  ’ 


'  '  Ml  ‘ 

{  ♦  '  '  .  . '  .  V  ’ 

.  - 

(  ' 

'  )  !  1 

f  *  l  •  }  ; 


D-193 


C  *  *  *  »  * *  * *  »  » »  *  »  *  *  ********❖*£**#************  ^  ********£*£**£  £ 


c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


* 


* 


a* 

* 


SUBROUTINF  A  IRAQ 


FUNCTIONS  * 


-  PRIMARY  CGMBU$tion  AIR  ADDER  ROUT  INF 


-  DEFINES  ACID  GAS  FEED  AND  IDENTIFIES  AIR  STREAM 
FINDS  AIR  REQUIREMENTS  AND  ADDS  AIR  TO  ACID 
GAS  TO  FORM  OUTPUT  STREAM 


STORES  OUTPUT  AND  AIR  INLET  STREAMS 


* 


-t  ;;c  #  ft  ft;}.-.  -h  ##  ❖  ❖  #  £  4  *  *  *  ❖  ❖  ❖  ❖  £  <s  ❖  £  £  ^  5^  $  $  if  a{c  ^  #  *  sjt  #  ^  #  ££  j|;  #  £ 


SUBROUTINF  A  I  RAD 
DIMENSION  Y  A I P (70) 

COMMON  /GEN l/I WR IT  ,  I08UGC 15) , I  TEST, CR I T, NGMS , NTOT 
COMMON  /GEN2/TEMP, TFEEO, YCOMP( 20) , YFEFD( 20) ,  PRESS,ENTH 
COMMON  /STQRI/FQUIPQOO  )  ,  ILOC,NMBFQ,  STRFM  (50,22) 

t, NSIN! 5) , NSOUT { 5) 

COMMON  /DAT  A5/  I  DH20, I DSUL! 5 ) , WTMOL ( 20) ,  VMOLE ( 20) 

WRITE ( I WRIT  160001  NM8EQ 
N AIR* ASS  I  EQUIP  (  ILOC+1  H+0.5 
N  S  TRM-NA I R 

CALL  SUTIL ( NSTRM,0, YFEED, TFEED, PRFSS ) 

CALL  PR NTS ( -1 ) 

CALL  COM PR (  NAI R  »  21 »  3 ) 

CALL  COM°R(NAIP ,22,4) 

R EL HY =SE JVUT-EQU IP « ILOC+2  > , 5  0.0) 

TAI R=  SET VU( -EQUIP ( ILOC  +  3 ) , 70.0) 

PAIR=  SETVU!  -EQUI  P  !  I  LOC  +  4  )  ,  PRESS  ) 

SPEC1=SETVU (-EQUIP! I  LOG +5 ) , 1 .0  ) - 

SPEC2=SETVU ( -EQUIP { ILOC+6 ) , l .0) 

DO  1  1=1, NTOT 

1  YCOMPm=YFEED(  I) 

TEMD=TFFED 

CALL  AIRED! YCOMP, TEMP, SPEC  I, SPEC 2 , REL H Y , YA I R , TA I R 
*, PAIR  ) 

FQUIP! I LOC+2 ) =S I GN! RELHY, EQUIP! I LOC+2) ) 

EQUIP! I L0C+3)=$IGN!  TAIR, EQUIP! ILOC+3) ) 
r  QUIP  C ILGC+4I-S IGN!  PAIR, EQUIP! ILOC+4)  ) 

EQUIP! ILOC+5 )=S IGN! SPEC l, EQUIP ( ILOC+5) ) 

FQUIP ( ILOC+6) =S I GN! SPEC  2, EQUIP! ILOC+6)  ) 

P RE S S  =  AMI  Ml {PR ESS, PAIR ) 

NEX  IT=NSOUT ! I ) 

_  CALL  SUTIL! NEXI T,2, YCOMP, TEMP, PRESSI 

CALL  SUTIL ( NAIR ,2, Y AIR, ~TAIR, PAIR) 

IF!  I  TEST -1  )  801 ,800,800 

800  T 0 T  =  0 . Q 

DO  2  1=1 , NTOT 

2  TOT  =  TOT+YAIR(  I  ) 

TOTDA=TOT-YAIR{ IDH20) 


IV  1  * 

r  /s  ~  ,  •  r.  c 
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SUBROUT  INF  AIRAD  . ..(CONT'D) 


WRITE  UWRIT  ,1000)TOTfRELHY,T0T0A,YAIRUDH?O)  , TAIR,PA!R 
$ , SPEC  2, SPEC  1 
WRITE ( IWRIT *9000  ) 

WRI  TE  UWRIT  ,1001  ) 

CAL L  PRNTSCNEX I T ) 

801  CONTINUE  . '  '  ' 


RETURN 

1000  FORMATIT25*  TOTAL  MOLES  AIR  ADDED  =  ' F8.?,T62 MR.H.  = 

$  *F 6.2*  PERCEN 

IT) ' /T25* MOLES  DRY  AIR  -  * F8 • 2 » T63 • MOLES  WATFR  -  * F8 . 2 
$/T25  * TEMPER  AT _ 

1URE  I  DEG. F.  )  =  »F6.1, T60*PRFSSURE  (PSIA.)  =  »F6,2/ 

$/T3 1  *  RAT  I  0  OF  { S 

1PECIFIED/STQICHI0HETRIO  AIR  ADDED  -»/T?7»-  FOR 
$  OXIDATION  OF  SULP 

1HUR  (ALL  H2S)  - • T 76 , FT . 4 / T2 7  *  -  FOR  OXIDATION  OF 
$  CARBON*  HYDROGFN 

1  AND  ABOVE  -*T76,F7.4) 

1001  FORMAT { T 44  *  COMB  I  NED  OUTLFT  STREAM*) 

6000  FORMAT (T45*  *  COMBUST  ION  AIR  ADDER  * /T45 * EQUI PMFNT  NUMBER 

$  *  *  I  3  ) 


OOOO  FORMAT { *  0  * , T2 5 

>5  #  £  #  %  &  # 

l  »  /  ) 

END 


'tv  'r  'i' 


w  vw  v»  >w  -*v  • 

-  -  <jV  rp. 


*  -r*  'V'  ';**  4*  '«'•  -*¥*•  •*(*  ■'i'  ■ 


4-  jf  vtj  -.V  Jr  Jr  Jr  Jr 

Y  4V  '•T' 


- 


I  '  1  v . . . 
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r  *  -  A  ^ ^  »  »»  ft  ft  £  ft  ftftftifr  ❖»»»»»»  ^»  »»»»»»»»  »»  »»»^  ft»3frjfrft 


C 

c 

c 

c 

c 

JL 

c 

c 

c 

c 

c 

c 


* 

* 

ft 

* 


SUBROUTINE  INC  IN 


FUNCTIONS  - 


*  ~  PRIMARY  TAIL  GAS  INCINERATOR  ROUTINE 

*  -  IDENTIFIES  FUEL  GAS  STREAM  AND  DEFINES  F  F  FD 

*  -  VAPORIZES  ANY  INLET  LIQUID  SULPHUR 

-  SIMULATION  —  COMBINES  PROCESS  GAS  INLET  AND 
(FUEL  AND  A  IP)  INLET  AND  DEf ERMINES  THE 
ADIABATIC  FLAME  TEMPERATURE 

-  DESIGN  --  I TFRAT IVELY  ESTIMATES  THE  AMOUNT  OE 


* 


ft 

ft 

* 

* 

* 


❖ 

ft 


c 

c 

r 

C 

c 

c 


* 

nV 


FUEL  {AND  AIR)  REQUIRED  TO  ACHIEVE  THE  DESIRED 

OUTLET  TEMPERATURE.  FOR  EACH  ESTIMATED  FUEL  AND 
AIR  ADDITION,  CALCULATES  RESULTING  TEMP. 
CONVERGENCE  ACHIEVED  USING  SECANT  METHOD 
STORES  OUTLET  STREAM  (AND  AIR  AND  FUEL  STREAM 
FOR  THE  DESIGN  CASF) 


ft 

* 


C  * 

c  ftjft:ftft  ft  ft  ft  ft  ft  ft  ft  ftftft  *  ft  ft  *  ft  ft  *  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft 


-v*  v  v-  -r  - 


:  ftft 


SUBROUTINE  INC IN , 

DIMENSION  YAIR{20) ,YGAS(20) 

COMMON  /GEN  1/ I  WRIT, IDBUGI 15 ) ,  I TEST, CR I T, NGM S , NTQT 
COMMON  /GEN2/TEMP, TFEED, YCOMP( 20) , YFEEO( 20)  , PRESS, ENTH 
COMMON  /ST0R1/ EQUIP { 300 ) , ILOC, NMBEQ, STREM( 50 ,22 ) 

$ , N S I N ( 5 ) ,NSQUT<  5? 

COMMON  /DAT A5/I DH20, IDSULC5 ) ,WTM0L(20) »VM0LE(20) 

WRITE { I WR IT  ,6000 )  NMBEQ 
NGAS=ABS{ EQUIP! TLOC+7) )+0.5 
CALL  SUTIL INGAS,  1 , YGAS, TGAS, PGAS ) 

NSTRM-NGAS 

CALL  SUTI L  CNSTRMtOy YPEEDyTFEEDy PRESS? 

CALL  PRNTSC-I) 

ENTHR=HFC AL ( TEE FD , Y FE ED , 0  ) 

__  I  SUL  =  I DSUL M_ ) 

DO  1  1=1,5 

I F (  I DSUL ( I  ) -NGMS  )  1,1,2 
2  I  LI  0= I DSUL (  T ) 

YFFE’M  I  SUL )  -  Y  F  F  F  0  ( I SULJ+YFEEDt IL IQ) *WTMGL( IL  IQ) 
i/WTMOL( I  SUL ) 
v  F  F  E  P (  IL IQ) =  0 

I  CONTINUE 

CALL  F INDT ( YF E E D , TF EED , ENTHR  ) 

_ CALL  COMPRj NSOUT ( 1 ) , 21 ,  1 ) 

T D S I R  =  - c  DJI p ( ILOC+l ) 

IF(TDSIR)  11,11,13 

n  i  s i m=  i 

I F { I  TEST-2 )  BOX,  300, BOO 
BOO  WRI TE ( I WR l T ,1000) 

CALL  PRNTS(NGAS) 
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SUBROUTINE  INC  IN  ...(CONT'D) 


801  CONTINUE 
N  OH L  S  =  0 
T  EM  °  = 12  0  0. 

00  12  I=1,NT0T 

YCPMP!  I  )  =  Y  E  F  F  0  (  I  )+YGAS!  I  ) 

12  YF-EED  (  I  )  =YCOMP !  I  ) 

ENTHR-ENTHR+HFC AL ! TGAS,  YGAS , 0 ) 

CALL  FINDTC YF EEC, T FEED, ENTHR ) 

call  tc'alcTnohlsi 

I F  <  I  TEST- 1 )  807,806,806 

806  WRITE ( I  WRIT, 9000 ) 

807  CONTINUE.  ' 

GO  TO  500 

13  I  SI M=Q 

R EL  HY  =  SE  T  V U ( - F  Qt  IIP  C  ILOC+2)  ,507> 

TAIR=SETVU( -EQUIP! ILOC+3)  ,  70. ) 

PAI R=  SET VU( -EQUIP! I LOC+4) , PRESS ) 

SPEC  1=  SET VU ! -EQU  I D ( lL0C+5 ) ,1.25) 

SPEC2-SETVU! -EQUIP!  ILGC+6) ,1.25) 

CALL  AIPCD{  YGAS,  TGAS  ,  SPEC  2,  1 .0,RELHY,  YAIR,TAIR,PAIR  ) 

f  n th2=hfcal1  t ga  s , yg  as  ,67" 

CALL  AIRED! YFEED,TFEE0, S PEC  1 , 1, 0 , RE LHY , Y A I R , T AIR, PAIR ) 
ENTH1 =HEC AL { TFEE0,YFEED,0) 

FAC  1  =  2.0 

FAC  2=1.0 
I TERH=0 
K I N IT  =1 
FAC  TR= 1 . 0 

100  CALL  GUESR!FACTR,FACl,FAC2, ERROR, ITERH) 

00  31  1=1, N TOT 

31  YCOMP! I ) =YF  EED (  I )+YGAS( I)*FACTR 
E NT HR  =  F  n  th l* EN T  H 2 *£  AC TP 
CALL  MINFE ( PR ESS, TO S I R , YCOMP , K I N I T ) 

FNTHN=HFCAL ITOSTR, YCOMP, 0) 

FRRJR=ENTHN-ENTHR 

IF!  I  TEST-3 )  805 , 804,804  ’ 

804  WRITE! IWRIT, 2000)  I  TERN , F AC TR , ENTHR , ENTHN 

805  CONTINUE 

IF! A8S(ERR0R/ENTHR ) -CP  IT)  40,40,  100 

40  TFMP=TDSIR 

ENTHR =HFC  AL  !  T  A  I  R  ,  Y  A  I R  ,  0  )  +ENTH2*FACTR _ 

00  41  I  =  1 , N T 0 T 

41  YGAS!  I  )  =  Y  G  A  S ( I ) *  FAC  TR  +  Y  A  IR {  I  ) 

CALL  FINDT ( YGAS, TGAS, ENTHR) 

C A L L  S U  T I L ( N G A S , 2 , Y G A $ , T G A S , P GAS) 

EQUIP ! ILOC+2 )=S I GN! RELHY,  EQU IP!  ILOC  +  2 )  ) 

FQUTP ( ILQC+3)  =  SIGN!  TAIR, EQUIP!  IL0C  +  3 )  ) _ 

EQUIP ( ILOC+4) =S IGN!  PAIR,FQUIP( IL0C+4) ) 

EQUIP! IL0C  +  5)  =  STGN!SPECl, EQUIP!  ILOC  +  5)  ) 

_ EQUIP ! ILOC+6 )  =  SIGN! 5  PEC  2 ,£QUIP< ILOC+6) )  _ 
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SUBROUTINE  INC  IN  . . . ( CDNT *  0 } 


I F { I  TEST  — I )  303,802,802 

§  02  WRI  TP  (  IWR  I  T  ,  100  L  )  TAX  P. , PAIR  ,  RFLHY,  SPEC  1  ,SPFC? 

WRITE ( TWR I T ,0000 ) 

WRITE ( [WRIT, 1000) 

803  CONTINUE 

CALL  PRNTS(NGAS) 

500  CONTINUE 

NE X  I T -NS OUT (  1) 

CALL  SUT I L ( HEX  I T ,2, YCOMP, TEMP, PRESS) 

IF( I  TEST-1 )  811,810,810 
8  10  WRITE! I WRI T  ,9001  I 
CALL  PRNTS(NEXIT) 

811  CONTINUE 
RETURN 

1000  F OR MAT  { T 4 5*  FUEL  AND  A  I R " STRE AM ' ) 

1001  FORMAT {  T2  5' COMBUSTION  AIR  -* /T30 *  TEMPERATURE COEG. F)  =' 

$,T74,F7. if _ 

l T 30  *  PRESSURE  (PS  I  A.)  - ' T 74, F7.2/T30' RELATIVE  HUM  I DI TY~ 

$  (PERCENT)  =• 

_  1J74,F7.2//T25» RATIO  ( SPFC  IF T EO/STG ICH I GMETR I C )  AIR 

$  ADDED  -  * / 


l T  3  0  *  E  OR  COMBUSTION  OF  PROCESS  GAS  - ' T 74, F7 . 3/T30 » FOR 

f.  COMBUSTION  OF _ 

1  FUEL  GAS  -  *  T 74, F  7  •  3  ) 

2000  FORMAT!*  ITERH  ='I3*  FACTR- * F 10 . 4*  ENTHR= ' E15 . 7  * 

$  ENTHN  =  *  c 1 5 • 7 ) 

6000  FORM AT ( T43 *  EXHAUST  GAS  INCI NERATOR » /T45 

1  *  EQUIPMENT  NUMBER  *13) 


^>001 

9000 


FORMAT (*  1  I  * / ///T42* INCINERATOR  EXHAUST 


FORMAT! *  O' 


T  2  5  ,  *  ❖  ^  ❖ 


STREAM  *  ) _ 

A-  ❖  A<  £  ❖  ^  3*C  ^ 


1  ###❖*:*  *  #3i£#  «  f  ) 

END 


r  - 


<  *  '  '  . . 


» :  1  ■ 
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r  *  -I'  *  *  *  *  *  *  *  * *  *  *  *  * *  *  *  *  *  *  *  *  *  **********  ****************.£**,1 

"c  *~  "  1 - 

c  *  SUBROUTINE  STACK 

C  * 

c  * . Functions  - 

c  # 

c  *  -  PRIMARY  EXHAUST  GAS  STACK  ROUTINE 


*  *  * 


* 

❖ 

* 


* 


c  *  -  IDENTIFIES  S02  ( POLLUTANT  SPEC  IE ) 

C  *  -  CALCULATES  EQUIVALENT  AMBIENT  AND  STACK  OUTLET 

C  *  TEMPERATURES,  TOTAL  AND  POLLUTANT  FLOWRATES 

C  *  AND  STACK  VELOCITY 

C  *  -  DETERMINES  REQUIRED  STACK  HEIGHT  (DESIGN)  OR 

c  * _ max  GROUND  CONCENTRATION  OF  POLLUTANT 


C  *  (SIMULATION) 

C  *  -  OPTIONALLY  DESIGNS  SEVERAL  STACKS  WITH  VARYING 

C  *  STACK  VELOCITIES 


C 


❖ 


* 

* 

* 

❖ 

* 


❖ 

* 

* 


C  **************  ***** *********************************** 


SUBROUTINE  STACK 

COMMON  / GEN  I/I  WRIT, IDBUG( 15) , I  TEST, CR I T, NGMS , NTOT 

_  COMMON  /GEN2/TEMP>TFEED, YCOMPI 20 >  ,YFEEjD{ 20  >,  PRESS, ENTH 

C CM MO N  /ST0R1/E Q U I P ( 3 0 0 ) ,  I LOC , NMBEQ, STREMI 50 » 22 ) 

$  *  NS  I N ( 5 ) »  NSOUT I  5 ) 

_ COMMON  /DAT  Al/FQRMU ( 20 , 5 ) , NATYP, IDATM ( 5 ) 

COMMON  /DAT  A5/I CH20,  IDSULI 5 ) ,WTMQLC 20 ) ,  VMOL  E ( 20 ) 

COMMON  /STAK1/I SIM,QTOT »VSTAK,TSTAK,TEQIV»QS02 
C OM  MH  / STAftgy C M AX (  2 1  »HSTAKC2?»  EMAXC2)  » DMA X C  2 )  >  VMAX ( 2 ) 

R I TE (I WR I T ,6000) . NMBEQ 

N STRM-0 

CALL  SUTIL (NSTR M,0, YE EED,TFEED, PRESS) 

CALL  PRNT  S ( -1 )  ~  “  ~~ 

N  E X  I T  = I A B S ( NSOUT { l)  ) 

0  ****  *  IDENTIFY  SOD  SPECIE. . 

_ DO  I  I=i , NGMS 

I  F  (  A  B  S  (  W  T  M  0  L  (  I  )  -  6  4.1-  0.1)2  ,  I,  I 

2  IDS= I  0 ATM ( I  ) 

I F ( AB  S ( FORMU ( I ,  I DS ) - 1 . ) -0 . 1  )  3,1,1 

3  I  DO-  I  D  A  TM  {  2  ) 

I F ( ABS ( FORMU  (  I , I  DO ) -2 . ) -0 . I )  4,  l  ,  1 

4  IS02-I 

GO  TO  5 

L  CONTINUE 

WRI fE ( I  WRIT, 5000  ) 


C*****  CALCULATE  EQUIVALENT  AMBIENT  TEMP.  AND  AMBIENT 
C**»»»  _ TOTAL  AND  S  02  FLOW  RATES  (CU  .FT. /SEC . )  . _ 

5  CALL  SUMER (YFEEO, NGMS, 0,YT0T»TM ASS) 

T  AMBI=SETVU (-EQU IP ( ILOC+l) ,70. ) 


- 
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SUBROUTINE  STACK  .  ..(CONT'O) 


TEQ  IV=TMASS/YTGT/29.*TAMBI 

FAC  T  R=1 0 . 73  * ( TEQIV+460 . ) / <PRESS*3600. ) 

Q TO  T=  Y  TO  T  *  F  AC  T  R 
QS02=YFEE0 ( IS02 ) *FACTR 

TST  AK  =SE TVIJ  (  -FQU  I  P  (  ILOC+2)  ,TFEE0-200.  ) 

CALL  SUTIL ( NEXI T f 2 , YFEED, TSTAKf  PRESS ) 

DO  6  1-1,2 
CMA  X (  I  )  =  0 . 0 
6  H  ST  AK ( I ) -  0 . 0 
I C  N  T  =  1 

H IGH=— EQUIP ( ILOC+3) 

I F ( HIGH)  20,20,10 

10  DIAM=-EQUIP ( IL0C+4) 

IF(OTAM)  20,20,11 

11  ISIH-1 
HSTAK { 1 ) =HI GH 
HST AK( 2 )=HIGH 
ND0  =  1 

VSTAK-4.*QT0T/ { 3 . 14159*01 AM**2 ) 

GO  TO  25 
2Q  I  SIM- 0 

NDO=SETVU(-EQUIP<  ILOC  +  8)  , l . ) +0.5 
_ VST  AK-S  ET  VU  (  -EQU  I  P  (  ILOC  +  6)  ,  60.  ) _ _ _ 

D  EL  SK  -  SE  T  ViJ  ( -EQU  I  P(  T  LOC  +  7)  ,  20.  ) 

C  M  A  X  (  1)  =  SET  VU(-E  QUIP  ULOC+5  )  ,0.20) 

C  MAX  (2  )  =CM AX  <  1  ) 

25  I F<  I  TEST-1)  3  01,300,8  00 

800  IF(ISIM)  804,804,805 

804  WRITE ( I WRIT  ,1050) 

GO  TO  806 

805  WRITE  II WRIT, 1051) 

8 06  W RITE ( l WR IT  ,1000)  TAMBI , TEQI V ,QTOT, QS02 , TSTAK 
WRITE  I  I W R I T ,9000) 

801  CONTINUE 

I F (  IS IM )  29,29,3  0 

29  n  I  A M-  ( 4  .  * QT OT /  (  3 . 1 41 59 *  V  ST  A  K  f)  *  * 0.5 

30  CALL  STAKU 

I F ( ITEST-1 )  303 , 802,802 

802  WRI TF ( I  WRIT  ,1001 )  OIAN^VSTAK 
WRITE { I WRIT  ,1002  ) 

_ V?RITE  (  I  WRIT  ,1003  )  HSTAK  (  1  )  ,  HST  AK  {  2  )  ,  CM  AX  { l  )  ,  CMAX  (2) 

$, VMAX ( 1)  , 

1  VMAX (2)  , DM AX (  1  )  , DM  AX ( 2  )  ,  EM  A  X  (  1  )  ,  EM AX ( 2 ) 

RITE ( IWRIT ,9000 ) 

803  CONTINUE 
IF(ICNT-MDO)  31,32,32 

31  ICNT=ICNT+1 _ 

VSTAK=VSTAK+DFLSK 
GO  TO  29 

32  CONTINUE 
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SUBROUTINE  STACK  . .. (CQNT'D) 


EQUIP! ILOC+1 )=S I GN! T  AM8I , EQUIP!  ILGC+1 )  ) 

E QU IPJi.LOC+2)  =SIGN(T5TAKf EQUIP!  ILOC+2)  I 
HIGH-AHaTi  ( HSTAK ( l) ,HSTAK(2)  ) 

EQUIP ( IL0C+3)=S IGN!  HIGH, EQUIP! ILOC+3) ) 

_ F  QU  I  P  (  I  L OO  4  )  =  S  I  GN  C  0 1  A M  *  EQU  I  P  !  I  LQC+4  )  ) 

P  P  M  =  A  MAX  KCMAX!  I  )  ,CMAX{ 2 )  ) 

E  QU I P ! I LOC+5 ) =S I GN!  PPM, EQU  IP (  ILOC+5 )  ) 

EQUIP ( I L  0  C  +  6 ) =  S I G  N ! V  S  T  A  K , E  Q  U I P { ILQC+6J ) 

HJIPl  ILOC+tRs  IGN  I  OELSK,  EQU  IP!  ILOC+7)  ) 

R DO=NDO 

EQU  IP  !  ILOC+  8  )-=S  I  GN!  RDO  ,  FQU  I P  (  I LOC+8 )  ) 

RETURN 

1000  FORMAT!//T25* AMBIENT  TEMPERATURE  (DEG.F)  ~*T78,F7.1 
$/T2S» EQUIVALENT 

I  STACK  TEMPERATURE  !  D  F  G .  F  )  -  *  T  78 ,  F  7  .  I  /  T25  »  TUT  AL 
$  GASEOUS  STACK  FLOW 

IRATE  (C.F.S.  AT  TEQIV)  =• T78, F7. 1/T25* POLLUTANT  !S02) 

$  FLOWRATE  ( C. 

1F.S.  AT  TEQIV)  =  ' T78 »  F7 . 3 /T2 5  * STACK  OUTLET  TEMPERATURE 
$  (DEG.F)  =*  T 
17  8  ,  r  7  .  I ) 

L001  FORMAT! » 0* T25* STACK  DIAMETER  {FT.  AT  TOP)  =*T78,F7.2 
$/ T25* STACK  VEL _ 

IOCITY  (FT/SEC.  A T  TO P )  = * T 78, F 7 . 2 ) . 

1002  FORMAT!/ /T63*  ATMOSPHERIC.  CONDITIONS* /T63* - 

$ - • 

1  /  T6  3  * S  T  A  B  L  E  UNSTABL  E  *  7  T  6  3  »  —  -  - — — -  —  -  - -  -  - 

$-  *  /  ) 

100  3  FORMAT  {  T  2  5  *  STACK  HE  IGHT  (FT.)  =  *  T  59 , 2  F  1 2  .  I  /  T  2  5  UMAX  ._ 

$  GROUND  CONC 

IE  NT  RAT I  ON  (PPM)  = * T59, 2F 12 . 4/T25 * WI ND  SPEED  AT  MAX. 

|  (FT/SEC )  =  ' 

1TS0 ,2F12.?/T2S» DISTANCE  (SOURCE  TO  MAX.,  FT.)  =  ’T59 
$, 2F 12 . 0/T25 

_ I  *  EFFECT  I V  F  STACK  HEIGHT  (FT.)  = * T 59 , 2F  1  2 . 1  ) 

1050  F0RMAKT25*  SULPHUR  PLANT  STACK*  ,T79* DESIGN*) 

1051  FORMAT! T25* SULPHUR  PLANT  ST ACK » T75 » S I MUL AT  I ON  * ) 

5000  FORMAT i *  0  ERROR  W.P.T.  PRESENCE  Of  S02  SPECIE.’) 

6000  FORMAT! T45 *  SULPHUR  PLANT  STACK* / T45*  EQU I  PM FN T 

$  NUMBER' I  3) 

9  000  FORMAT  (  *  0  *  ,  T 2 5 » 


]  j{c  i'  j}t  £  s*c  il'  ijc  »  f  ) 

END 
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■A* 

SUBROUTINE  STAKU 

•JU 

¥ 

* 

* 

c 

c 

c 

* 

•A* 

FUNCTIONS  - 

■fi 

-  STACK  UTILITY  ROUTINE 

T* 

❖ 

r 

c 

c 

* 

5*? 

-  CALCULATES  MAXIMUM  GROUND  CONCENTRATION  OF 

POLLUTANT  { S 0 2 )  AND  DISTANCE  TO  THE  MAXIMUM  AT 
SEVERAL  WIND  VELOCITIES  FOR  BOTH  MODERATELY 

❖ 

'c- 

* 

c 

c 

c 

J/ 

O# 

STABLE  AND  MODERATELY  UNSTABLE  ATMOSPHERIC 
CONDITIONS 

THE  MINIMUM  STACK  HEIGHT  REQUIRED  FOR  A 

IT 

❖ 

¥ 

c 

c 

c 

* 

MAXIMUM  ALLOWABLE  GROUND  CONCENTRATION 

IS  FOUND  IN  THE  DESIGN  CASE, 

FOR  THF  SIMULATION  CASF,  THE  MAXIMUM  GROUND 

VU 

4** 

4^ 

X 

■v- 

c 

c 

c 

jly 

A. 

•V* 

CONCENTRATION,  THE  CORRESPONDING  WIND  SPEED 

AND  DISTANCE  TO  THE  MAXIMUM  FOR  A  GIVEN  STACK 
HEIGHT  ARE  FOUND 

•JU 

c 

c 

5/v 
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SUBROUTINE  STAKU 

REAL  J 

0  I MENS  ION  WVEL(IO) ,  AMU I 10) ,GEACT( 10 ) , T I TLE ( 2 , 2 ) 

COMMON  /GEN1/I WRIT, ID8UG< 15 ) ,  ITEST, CR IT, NGMS , NTOT 

COMMON  /STAKl/ISIM,QTOTfVSTAK, TSTAK,TEQIV,QS02 

COMMON  / ST  AK2/ CM AX ( 2 ) , HST AK ( 2  ) , EMAX (2 ) , DMA X ( 2 ) , VMAX ( 2) 

DATA  WVFL/1  .,5. ,7.34, 10* ,  14.67,20.,  22. ,29. 34, 36 .67 , 44 
$/ 

DATA  AMU/  . 5,  .1,  .06  3, .056,. 034, .016, . 01 14, . 005 1 , . 0041 

• 

$, . 0034/ 

DATA  GFACT/.7292, .7292, . 7292 ,. 7905, . 8930, . 9904, 1 .0295 
1  1.7862,2.3964,3.1057/ 

t 

DATA  TITLE/'  ST  A " , ' BLE  * , ' UNST • , « ABLE • / 

TFCN( Z,W INDV)=6 . 37*32 . 1 7*QT0T*DELT*Z/ ( TR ANK*W INDV**3 ) 
DELT=TSTAK-TEQIV 

TRANK=TEQIV+460. 

SQQV=SQRT(QTOT*VSTAK) 

VEL MN=SQRT (32.1 7*DELT/TRANK*SQRT ( QTOT/VSTAK ) ) 

00  500  1=2,10 

SQR-GFACTU  )  *SQRT  (TRANK  ) 

VR I SE=4 . 77/ ( 1 . +0 . 43*WVEL ( I ) /VSTAK ) *SQQV/WVEL ( I) 

PR0n=2.35E5*Q$02*AMU( I ) 
on  400  K= 1,2 

IFCK-1)  50,50,51 

50 

J=W VE  L ( I ) **2/S QQV* { SQR— 0 . 28 *VST AK *TRANK/ { 32 . 17*0 EL I )  ) 
$+ 1 . 0 

Z=ALOGC J**2)+2./J-2. 

51 

61 

GO  TO  70 

X  A  =  D I STX 

XB=  XA*WVEL I  I  )  / { 3 . 57*SQQV ) 
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SUBROUTINE  STAKU  .  ..(CONT’D) 


62 

I F ( XR-20 . 0 )  62,63,63 

Z  =  X  3 / ( 2 . 172+0.1359*XB ) 

63 

64 

GO  TO  64 

Z=( ALOGI XR) /2. 303-0. 3553) /O. 2286 

I  F (  ISIM)  70, 70,65 

65 

TRI S  E  =  T F  C  N { 7,WVFL( I ) ) 

FSH  =  0.75*( VRI SE  +  TR I SE ) +HSTAK ( K ) 

0  IST= 10 . 0*E  SH 

66 

TENDXST-XA 

IF( ABS{ TH)-XA/1000. )  73,73,66 

X A=  XA  +TH/ 2  • 

70 

GO  TO  61 

TRI SE=TFCN( Z , WV E L (  I  )  ) 

I F { ISIM)  71,71,72 

71 

E  SH-  {  PROD /CM AX  {  K  )  )**0.5 

CTF  MP=CMAX  I  K ) 

0TST=ESH*10.*{3-K) 

DISTX=ESH*10.0 

HTFM°  =  E  SH-  {  VR  I  SE  +  TP  I  SE  )  *0. 75 

IF  C HTEMP-hItARI K ) )  300,300, 100 

100 

72 

HSTAKIK) -HTEMP 

GO  TO  201 

E SH=  ( TRI SE+VRI S E ) *0 . 75+HST AK { K ) 

73 

D I STX-ESH*20.0 

CTF  MP=PROD/ ESH**2 

D I ST=FSH*10 •  *(  3-  K.) 

2  00 

Hf FMP=HS TAK ( K ) 

IF(CTEMP-CMAXUC)  )  300,  300,200 

CMAX(K)=CTEMP 

201 

5  a  a 

VMA  X ( K ) =WVE L (  I  ) 

0 MAX { K )  =  D I S  T 

E  MAX  I K )  =  ESH 

IC  /  TTCCT  \  DO)  O  A  A  O  A  A 

800  HR I  IE (  I  WRIT  ,1000)  I TITLE! KK  ,K) ,KK=1 ,2)  ,WVEL (  I) , TR ISE 
1,VRISE,ESH,DIST,CTEMP,HTEMP 

801  CONTINUE 

IF! WVEL(I)-VELMN)  800,400,400 
400  CONTINUE 
800  CONTINUE 


RETURN 

1000  FORMAT (> O' , T25,?A4, T70, 'WVEL  =  1F7.2/T25tTRISF  =  *F9.0 

$ , 4X »  *  VR I SF  = 

1  ’ F 9 . 0 , 4 X , ’  ESN  =  'F9.0/T251  DIST  =  «  F9 . 0 , 4 X , « CT EMP  = 
$  * F9. 3j4X»  *  H 
ITEMP  -  ,c9.n) 

END 
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APPENDIX  E 


EXAMPLES  OF  PROGRAM  USE 


EXAMPLE  1 . E-2 

EXAMPLE  2 . . 

EXAMPLE  3 . . 

EXAMPLE  4 . E-125 

EXAMPLE  5.  ......  .  E-142 


E-  2 


EXAMPLE  1. 


SPECIFICATIONS 


PLANT  FEED 


ACID  GAS*  MOLES/HR. 


CH4  1*5677 

C02  104*2917 

H20  47*0 

H2S  290.0417 


COMBUSTION  AIR 


PERCENT  OF  STOI 
REQUIREME 


CIOMETRIC 

NTS 


HYDROCARBON  FEED 

100. 

HYDROGEN  SULPHIDE  FEED 

33.3 

PROCESS  GAS  TO  INCINERATOR 

125. 

FUEL  GAS  TO  INCINERATOR 

100. 

SPECIFIED  TEMPERATURES  AND  PRESSURES 

DEG. F . 

PSIA 

AMBIENT 

75. 

ACID  GAS  FEED 

70. 

19 

PRIMARY  COMBUSTION  AIR  (R.H.  «  45) 

75. 

18 

INCINERATOR  FUEL  GAS  (METHANE) 

100. 

13 

INCINERATOR  COMBUSTION  AIR  (R.H.  =  55) 

80. 

15 

BOILER  BYPASS 

900. 

BOILER  EXIT 

600. 

PRIMARY  (BOILER)  EQUILIBRIUM  CUTOFF 

1600. 

NO.  1.  CONVERTER  INLET 

450. 

NO.  2.  CONVERTER  INLET 

425. 

INCINERATOR  PROCESS  EXIT 

1250. 

STACK  EXIT 

1175. 

MISCELLANEOUS 


3  PASS  BOILER  WITH  FIRST  PASS  FIRE-TUNNEL 

MAXIMUM  ALLOWABLE  PRESSURE  DROPS  IN  2ND  AND  3RD  BOILER 

PASSES  0*6  AND  0*9  PSIA  RESPECTIVELY. 

MIN.  FLAME  REACTION  RESIDENCE  TIME  0.6  SEC. 

AVERAGE  CATALYST  PARTICLE  SIZE  0.15  IN. 

MAXIMUM  ALLOWABLE  FOG  IN  1ST*  2ND*  AND  3RD  CONDENSERS 
25*  13*  AND  4  LB.(S)/100  MOLES  INERT  EXIT  GAS  RESPECTIVELY 
MAX.  HEAT  RELEASE  FOR  INLINE  BURNER  50*000  BTU/HR . CU • FT . 
MAXIMUM  GROUND  LEVEL  CONCENTRATION  OF  S02  0.2  PPM 

STACK  EXIT  VELOCITY  80  FT/SEC. 


2 


LEGEND 


NUMBERS  DENOTE  STREAM  OR  EQUIPMENT  NUMBERS 


NUMBERS  IN  BRACKETS  DENOTE  EQUIPMENT  TYPES  - 


1*  WASTE  HEAT  BOILER 
E«  INLINE  BURNER 
3*  CATALYTIC  CONVERTER 
4.  SULPHUR  CONDENSER 
5-  ADIABATIC  COMBINER 


G-  COMBINER/DIVIDER 
7-  AIR  ADDER 
B-  INCINERATOR 
9*  EFFLUENT  STACK 
10-  BLACK  BOX 


FIG*  E-l  EQUIPMENT  MODULE  (PROCESS) 


FLOWSHEET  FOR  EXAMFLE  1* 


(=  — 


4 


PROGRAM  DMA  (CARD  IMAGE) 


C  EXAMPLE  1.  (DESIGN) 

*  PROGRAM  CONTROL  PARAMETERS* 

1111111111 

0  0  0 

5  1 

’  PRINT 

SUPPRESS 

1 

*  END* 

♦FLOWSHEET  DATA* 

1 

0 

1 

2 

0 

1 

3 

1 

u 

if.  if 

4 

2 

3 

As  sis 

5 

2 

3 

sis  si u 

*1'  T 

6 

3 

5 

•As  sis 

or*-  v 

7 

3 

4 

3 

5 

4 

9 

5 

14 

y,  y. 

10 

4 

6 

sis  4s 

V  *1' 

11 

6 

~7 

*  # 

12 

7 

9 

•r  ¥ 

13 

7 

14 

Jj*  sis 

14 

8 

o 

A-  *0 

15 

9 

10 

16 

10 

1  1 

l7 

1  1 

12 

-•u  As 

V  4^ 

13 

1 1 

14 

^  A 

-V* 

19 

0 

12 

A  ^ 

20 

12 

13 

❖  ❖ 

21 

13 

0 

#  * 

pp 

14 

0 

30 

0 

3 

0  1 

31 

3 

o 

0  1 

32 

0 

5 

0  1 

❖  * 

33 

5 

0 

0  1 

34 

n 

u 

7 

0  1 

A 

■V  v* 

35 

7 

0 

0  1 

** 

36 

0 

1  1 

0  1 

** 

37 

1  1 

o 

0  1 

A 

4'  -v 

40 

4 

3 

1  -1 

A  a 

41 

9 

2 

1  -1 

**  *END* 

♦STREAM  SPECIFICATIONS* 

1  1  1.5677  2 

104. 

2917 

5  47 

’.  6  290 

1.0417  2  1  70.  2  2 

19.  ** 

19  1  20.91  21  100 

.  22 

13. 

40  1  19.  ** 

41  1  1  . 

*END 

-JU 

♦EQUIPMENT  PARAMETER  SPECIFICATIONS* 

1  7,  2  6,  3  l,  4 

5 ,  5 

4, 

6  3, 

7  4,8 

2,  95,  10  3,  11 

4, 

12  8,  13  9, 

14 

6  * 

•JU 

'f' 

1  1  2.  2  45. 

3  75 

.  4 

18.5 

5  1.6 

0.3333  ** 

2  1  0.1  2  5 .  ** 

3  1  3.  3  1.  10  900.  11  600.  13  0.6  14  0.9  15  0.6 


•  ■  I ' 

r  '  .V  . 


'  t 


'  r.  . 


.  • 

t 

.  ■ 
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r 
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PROGRAM  DATA  (CARD  IMAGF) 


19  0.2  20  7.  25  1600.  ** 

4  1  450.  3  7.  ** 

_ 5  I  1.  7  p.  10  ?5.  ** _ 

6  11.  8  0.15  ** 

7  1  2.  7  13.  10  13.  ** 

8 4 50 4  ** 

9  1 . 425. . 3 . 14. . ** . 

10  1  2 .  8  0.15  ** 

_ 11  1  3.  7  18.  10  4.  *» _ _ 

12  1  1250.  2  55.  3  80.  4  15.  5  1.25  6  1.0  7  19.  ** 

13  1  75.  2  1175.  5  0.2  6  80.  **  *FND* 

-MOLECMLAP  AND . THERMODYNAMIC  DATA **  * 

*  H  •  1  .  ,  3 . 7  *  C  *  1 2  .  ,  1 4.8 ’O* 16777 .4 . '  S’ 32. , 2  5.6 

’N*  14.  15.6 

_ 1  C  H4  »  _ 

+4. 24976780+00  -6.91265620-03  +3 . 1602 134E-05  -2 . 9 7 1 543 2 E-03 
+  9. 51 03580E  — 12  - 1 .01 86632E+04  -9 .  1 75499 1 E-0 1 

+  1  . 1795744E+00 . +  1  .0  95  0  594 0-02  - 4 . 06  2  213 1 E - 0 6  +  7.1370281E-10 

-4.74 90 3 5  30  -14  - 9 . 85  566270  +03 . +  F.  2  5  0 5  9  3  4  F  +  01 .  . 

’ C02  ’  ,  0.01 3 5  r  0.0000205 

+2.17010000+00  +1 .03781150-02  - 1 . 073 39 3 80-05  + 6, 3459 1 75E -09 

-1.628070 IE -12  -4 . 8352602E+04  +  1 . 066438 80  +  01 
+  4.41292 66F  +  0 0  +3 . 19 228 96E- 03  - 1 . 2978230E-06  +2 . 4147446E- 10 
-  1.6742986E-14  -4 . 8944043 E  +  04  -7.2875  7690-01  ** 

'02  G'  0.02,  0.00002  . 

+  3. 71899460  +  00  -2  .5 16 72  88E-03  +8. 5837353E-06  -8.29989160-09 
+2. 70321800-12  - 1 . 05767060+03  +3 . 90807040+00 _ 

+3. 597612 9E +00  +7 . 81456 03E-04  -2.23866700-07  +4.24901590-11 
-3.34602040-15  -1.19279180+03  +3.74926590+00  ** 

*_N2  ’  ,  *  G’  ,  0.0175  ,0.0000195 _ _ 

+  3.6 9 16 1 48 0+00  -1  .3332552 E-0 3 . +  2.6 503 10 0 0 -06  - 9 .768 8 34 1 0 -1 0 

-9.97722340-14  -  1 . 0628 336E  +  03  +2 . 28 74980E  +  00 

+  2. 8545 761  0 +00  +1  .59  763160-03  -6.  2566254F-07  +  1 .  1 3  1  5849E- 10 

-7.68970700-15  -8.90174450+02  +6.39028790+00  ** 

*  H20  ’  *  G '  ,  0.008,0.000021 

+4.15650160+00  - 1 .72443340-03  +5.69823160-06  -4.59300440-09 
+  1 . 42 33 6540 -1 2  -3~02  887  70E  +  04  -6^  86 16 7460-0 1 
+2. 67 075 3 2E +00  +3.03171150-03  -3.53515700-07  +1.17908530-10 
-6,  19735680-15  -2.93  8  89  940+04  +6.38  383910  +  00 _ ** _ 

’ H2  S  *  ' G ’ ,  0.01  1  0.000074 

+3.91630740+00  -3.51386710-04  +4.21913120-06  -2.74536650-09 

+  4.  3  5  343650-1  3  -3 .60955850  +  03  +2 . 36600420  +  00  _ 

+  2.7657149 F  +0  0  +4  . 0 1319  14 0-03  -1.5 0448 9  8 E - 0  6  +7.6  80799 80-10 
-1. 796768LE-14  -3.33598080+03  +7.93271860+00  ** 

_ 1  SO 2  f  1 G 1  .0115  .COOP 17 _ 

+3.2257132E+00  +5.65512070-03  -2.49702080-07  -4.22067660-09 
+  2.  1 392  733 F- 1 2  -3.69044760  +  04  +9.  31770365  +  00 
+5.19824510+00  +2.05950950-03  -8.62544500-07  + l . 66 36 52 3 E - 10 
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PRQGRAM  DATA  (CARD  IMAGE) 


-1. 1847837E-14  -3  .  7541457E+04  -8. 3059963E-01  ** 

1  S  '  »G » 

+  "> .  9  I  3  7  2  p  3E  4- DQ  +  3  .  12940610-04  -2. 6392508E-06  +  3 . 1  3 8243 9E-Q9 

-1.17  08988E- 1 2  +3 .25682 72E+04  +3 . 568 1 1 54E+00 
+  2.91 4577 OE  +00  -5 .66 19390E-04  +2. 8497584E-07  -5 . 1868520E-L1 
+3. 2709932F-1 5  +3 .26049 40E+04  +3 . 7640850E+00  ** 

*  S2 . ’ *  *  G  * 

+2. 699934 9E +00  +6 . 2749549E-03  -9. 2870775E-06  +6. 5393276E-C9 

-  1. 7802282E-1 2  +  [  .4 504935 F  +  04  + 1 . 0534222E+0  1 _ 

+  4. 1896932E  +0 0  +3 . 34697 04E-04  -1 . 5566633E-07  +3 . 03 680 1 0 F - 1 1 
-2.17Q5849E-16  + 1 . 41 881 33E+04  +3 . 2930 300E+00  ** 

. !_S6 . '  *  G  1 . 

+  6 . 0 8  9 2  42  9E  +  0  0  +1.88248  6  5  E  -  0  2  -2  7  8  6 12  3  3  F  - 0  5 +  1 . 96079  8  3  E  -  0  8 

-5.3406846E-1 2  + 1 . 1 2643 70 E + 04  +7 . 3202 322E+00 

-*1.35385150+01  +1  .  154091  IE-03  -4 . 66  998  99  F-Q  7  +9 . 1  1  04030E-1 1 

-6.53  8 7547E -15  +1.03139640+04  -  1 . 4403344E +0 1  ** 

iS8  i  » G ' 

+  7. 7838Q68cr+00  +2 . 50998 20F-02  -3 . 7 1483 1  0E-05  +2 . 6  1 5  7  31  OE -08 

-7. 12  0912  8 E  ■ -12  +1.01  14 584E  +  04  +4 .76  2 179  2E  +  00 . 

+1.3^429260+01  +1 . 5387882 E-03  -6 . 226653 2E-07  +  1 . 2 1 47204E- 10 
-3.71  33396E-1  5  +8 .8473760E  +  03  -2 . 4202  589E-+  01 _ ** _ 

5  CDS  G' 

+2. 088552 3 E +00  +1 . 46 13989E-02  -2 . 0465884F-05  +1 . 50624390-08 
- 4 .4463532 0-12  - 1 . 76 2 42 38 E +04  +1 . 2367372E+01 

+  5 . 206  83 73 E  +0 0  +2.4717661E-03  - 1 . 0 oT  1287 E - 0 6  +1.8 78 7 3 6 9 E - 1 0 

—  1 . 3 1 0352 5E -14  - 1 . 8327771 E  + 04  - 2 . 9  1 3380 6E  +  00  ** 

_ ’CS2  G 1 _ .  17  .000017 _ 

+  2.9 1 74620E  +  00  + 1 . 2498700E-02  -  1 . 61 09  132E-05  + 1 . 0 56783 2 F-03 
—2 . 7944978 E- 12  +1 .2777076E+04  +8. 876348 1E+00 

+  5. 949 152  6E+0  0  +1 . 72  456  1  OE  -  03^  -7.2111 106E-07  +1 .37  44  76  0  E  -  1 0 
-9. 68  339650-1  5  + 1 .205 3 749 E  +  0 4  - 6.2 0 510 7 6 E  +  0 0  * * 

• H2  G*  0.008  .0000085 

+2. 346084 9E+P0  +4 . 19  3 ?  1  1  60- 03  -9,6119332^-06  +9 . 5 1 2266 2 E-09 

-3. 309342  IF- 12  -9 .67253720  +  02  -  1 . 41 17850F  +  00 
+  3. 0436 8 970 +0  0  +6 . 1 1871  10E-04  -7 . 399355 1 E-09  -2. 0331 907E- 1 1 
+  2 . 4 5  9 3 7°  1 E  —  1  5  -  3 . 5 49  1  002JE  +  02  -  l  .  648 13  3 9E  +  00  ** 

*C0  G  ’  .01  7  .000 Of? 5 . 

+3 .78713320+00  -2 . 17 095 26 E- 03  +5 . 075 7 33 7E-06  -3. 4737726E-09 
+  7.  72  1684LE-1 3  - 1  . 43 63 5 08F +  04  + 2 . 633 54 59E  +  00 _ 

+  2.951151 90+00  +1 .55255670-03  -6 . 19 1 141 1  P-07  +1 .  1 350336E- 10 
-7. 78827320—15  -1  .4231827E  +  04  +  6 . 53  144500  +  00  ** 

•  S  L1 

_  4 # 15  62 59  IE  +01  +  2 . 83 009  5 1 E - 0 1 . - 6 . 2 1 24 6 46  E -0 4  +5 . 7 91 79 8  6 E - 0 7 

-1.95508790-10  +4.4720083E+03  1 . 7 978686 E+02  3. 8716625 

0.  0.  0.  0.  -8. 46325 33E+02  -1.  74927680  +  01  ** _ 

*  END  OF  ALL  DATA* 
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SULPHUR  PLANT  DESIGN  AND  SIMULATION 


PROGRAM  CONTROL PA RAMETERS 


ECHO  CHECK  OF  PROGRAM  CONTROL  PARAMETERS 


PRINT  SUPPRESS 


. VALUE . OF  THE  C A L  CU  L  AT  I  0 N A  L  CRITERION  IS  0  .  10E-03 

{  ALL  INTERNAL  CONVERGENCE  C  P  ITER  I A  ETC. . ARE  SCALED' . TO  ThTsI 


I  DRUG  VALUE  APPLICATION 


L 

1 

WASTE  HEAT  BOILER 

2 

1 

IN-LINE  BURNER 

3 

1 

CONVERTER 

4 

1 

CONDENSER 

5 

1 

ADIABATIC  COMBINER 

6 

1 

COMBINER/ 01  VI  DEP. 

7 

1 

COMBUSTION  AIR  ADDER 

3 

1 

INC INERATOR 

9 

1 

STACK 

10 

1 

BLACK  BOX 

11 

0 

12 

0 

E QU I L  I BR I U M  CO M PC) S  I T  I  ON 

13 

0 

C  ALCUL AT I  ON  OPT  I M I Z AT  I  ON 

14 

5 

DATA  INPUT  ECHO  CHECK 

15 

1 

EXECUTIVE  FUNCTIONS 

END 


; 


j ' 


1 ) 


E- 


8 


FLOWSHEET  OATA 


ECHO  CHECK 

OF  FLOWSHEET 

DATA 

» 

STREAM 

SOURCE 

DESTINATION 

STREAM 

STREAM 

NUMBER 

EQUIP.  NO, 

EQUIP.  NO. 

UNKNOWNS 

FLAG 

1 

0 

1 

1 

0 

2 

0 

1 

1 

0 

3 

1 

2 

1 

0 

4 

2 

3 

1 

0 

5 

2 

8 

1 

0 

6 

3 

5 

1 

0 

“7 

3 

4 

l 

0 

3 

5 

4 

1 

0 

9 

5 

14 

1 

0 

10 

4 

6 

1 

0 

11 

6 

7 

1 

0 

12 

7 

9 

1 

0 

13 

7 

14 

1 

0 

14 

3 

9 

1 

0 

15 

9 

10 

1 

0 

16 

10 

1 1 

1 

0 

17 

1  1 

12 

1 

0 

13 

1  1 

14 

l 

0 

in 

0 

12 

1 

0 

20 

12 

13 

l 

0 

21 

13 

0 

1 

0 

22 

14 

0 

1 

0 

30 

0 

3 

0 

1 

31 

3 

0 

0 

1 

32 

0 

5 

0 

1 

33 

5 

0 

0 

1 

34 

0 

7 

0 

1 

3  5 

7 

0 

0 

1 

36 

0 

1  1 

0 

1 

3  7 

1  1 

0 

0 

1 

40 

4 

3 

1 

- 1 

41 

9 

2 

1 

- 1 

FMD 


1  ' 


.  '  UK 


‘ 


C  f 


E- 


o 


STREAM  specifications 


ECHO  CHECK  OF  STREAM  SPECIF  I CAT  ION . DATA 


STREAM  - 

• (PARAMETER 

NO  .  I  PARAMETER 

V ALU F  • 

REPEATEO 

-  1  - 

(  1) 

0 . 1 567 TP 

01 

(  2) 

0. 1 0429E 

03 

(  5) 

0.47000E 

02 

(  6) 

0.  29004E 

00 

(21) 

0. TOOOOE 

02 

(  22) 

0.  19000  E 

02 

-  19  - 

(  1 ) 

0 . 2 09  1 0  E 

02 

(21) 

0. 10000E 

03 

(22) 

0. 13000E 

02 

-  40  - 

(  1  ) 

0. 19000E 

02 

-  41  - 

{  1) 

0. 1000QF 

01 

t  ’■  r.:. 

!  .  {  :  . 


E-  10 


EQUIPMENT  PARAMETER  SPECIFICATIONS 

ECHO  CHECK 

OF  EQUIPMENT  PARAMETER 

SPECIFICATION  DATA 

FQIHP.  NO. 

12  3 

4 

5 

6  7  8 

9 

10 

11  12  13 

14 

EQUIP.  TVPE 

7  6  1 

5 

4 

3  4  2 

5 

3 

4  8  9 

6 

EQUIP.  INDEX 

0  6  8 

36 

3  9 

51  59  71 

76 

79 

87  OP  106  114 

EQU1PMFNT 

PARAMETER 

PARAMETER 

NUMBER 

NUMBER 

VALUE 

1 

1 

0. 2000000E 

01 

2 

0. 4500000F 

02 

3 

0. 7500000F 

02 

4 

0. 1850000E 

02 

5 

0. 1 000000E 

01 

6 

0. 3332999E 

00 

O 

1 

0 • 9999  996  E 

-01 

2 

0. 5000000F 

01 

■a 

'  j 

1 

0.3 0000 OOF 

01 

3 

0. 1 OOOOOOF 

01 

10 

0. 9000000E 

03 

1  1 

0.6  0000  OOE 

0  3 

13 

0. 6000000E 

00 

14 

0.90000008 

00 

1  5 

0.6  OOOOOOF 

00 

19 

0.2  OOOOOOF 

00 

20 

0. 7  OOOOOOF 

01 

25 

0. ] 600000E 

04 

4 

1 

0 . 45  OOOOOE 

03 

3 

0. 7000000E 

01 

5 

1 

0. 1 OOOOOOF 

01 

7 

0 . 90000  OOF 

01 

10 

0. 2500000F 

02 

6 

1 

0. 1 OOOOOOF 

01 

8 

0. 1499 9 99F 

00 

J  f 

, 


. 


■  . 


E-  11 


EQUIPMENT _ PARAMETER _ PARAMETER 


NUMBER 

NUMBER 

r  A'  T\  M  H  L  I  L  B 

VALUE 

7 

1 

0. 2000000F 

01 

7 

0, 1 300000F 

02 

10 

0. 1300000E 

02 

 8 

4 

0. 5000000F 

05 

9 

1 

0 . 42  500  OOF 

03 

3 

0. 1400000E 

02 

10 

1 

0.2  OOOOCOE 

01 

s 

0. 1499999F 

00 

11 

1 

0. 3000000F 

01 

7 

0. 1 8  000  COE 

OR 

10 

0.4000000E 

01 

. .  1 2 

1 

0.  1 2  50000F 

04 

2 

0. 5500000E 

02 

3 

0. 8000000E 

02 

4 

0.  1 5000  OOF 

02 

5 

0. 1 249999E 

01 

6 

0. 1 OOOOOOF 

01 

7 

0. 1900000E 

OR 

13 

1 

0. 7500000E 

0  2 

2 

0 . 1 l 75000F 

04 

5 

0. 2000000F 

00 

6 

0. 8000000F 

02 

END 


'  1  . 

. 

!  . 

;  o 

'  i 

f  r 

< 

f  . 
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MULECULAP  AND  THERMODYNAMIC  HAT  A 


ECHO  CHECK  OF  MOLECULAR  AND  THERMODYNAMIC  DATA 


ATOM  - 

NAMF 

WF I G  HT 

H  C 

1.00  12.00 

0 

16.00 

S 

32.00 

N 

14.0  0 

VOLUME 

3.70  14.80 

7.40 

25.60 

15.60 

SPECIE  * 

MOLECULAR  * 

*  VISCOSITY  * 

NUMBER  FORMUl 

A  WEIGHT  VOLUME 

RADCT 

RMIJ 

SMU 

1 

C.H4 

G 

16.0 

29.6 

1.0 

0.0150 

0.0000200 

A 

7 

C  02 

G 

44.0 

29.6 

1.0 

0.0135 

0. 0000205 

3 

02 

G 

3  2.0 

14.8 

0.0 

0.0200 

0. 0000200 

4 

N2 

G 

2  8.0 

31.2 

0.0 

0.0175 

0.0000195 

5 

H20 

G 

18.  0 

14. 8 

1.0 

0.0080 

0.0000210 

6 

H2S 

G 

34.0 

3  3.0 

1.0 

0.0110 

0. 0000240 

7 

SO  2 

G 

64.  0 

40.4 

1.0 

0.0115 

0.0000170 

8 

S 

G 

32.0 

25.6 

0.0 

0.0150 

0. 0000200 

sV 

T* 

n 

S2 

G 

64.0 

51.2 

!  o 

• 

o 

0.0150 

0.0000200 

* 

10 

S6 

G 

192.  0 

153.6 

1.0 

0.0150 

0.0000200 

11 

SB 

G 

2  56.  0 

2  04.8 

1.0 

0.0150 

0.0000200 

£ 

12 

COS 

G 

60.  0 

cc 

• 

r- 

nT 

1.0 

0.0150 

0. 0000200 

13 

CS2 

G 

76.  0 

66.0 

1.0 

0. 1 700 

0. 0000170 

14 

H2 

G 

2.0 

7.4 

0.0 

0.0080 

0.0000085 

15 

CO 

G 

28.  0 

22.2 

0.0 

0.01 70 

0. 0000175 

16 

s 

L 

32.0 

0.0 

0.0 

0.0150 

0.0000200 

viscns 

TTY 

DATA  IN 

FORM  - 

MU ( CP ) = 

RMU+SMU*T 

DEG.  F. 

❖  DFNOTFS  ASSUMED  VISCOSITY  CONSTANTS 


WATER  COMPONENT  =  5 


8  9  10  11  16 


SULPHUR  COMPONENTS 


I 


r  . .  I 


. c  f  f.J 


. 

.  .1 

.  I 

. 

. 

* 

7 

. 

♦ 

>  r  . 


♦  . 


+'  . 

•  .  f 

. 

.  \ 


. 
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T 

•  f 


r 
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THERMODYNAMIC  DATA  -  NASA  FORMAT 
FIRST  7  CONSTANTS  FOR  300  TQ  l QQQ  DEG .  K. 
LAST  7  CONSTANTS  FOR  .1000  TO  5000  DEG.  K. 


CH4  0.42 4976 5 E  01  -0. 69 126 52 E- 02  0.31 602 l OF -04 

-0*2971 53 9E -0  7  0 . 9 5 1 03 52 F- 1 1  -0.1018660E  05  -0.9175493F  00 

0.  1  179572F  01  0 . 1095056E-01  -0 . 4062208E-05  0. 7 1 37024E-09 

-0. 474903 4E -13  -0.9855656E  04  0.1250591E  02 

_ CO 2 . . 0 . 2 1  7 00 98 E . 01  0 . 1037809E-0 1  -0. 1073391E-04 

0 . 6 3  4 5 °  1  OF  —  08  - 0 . 1 6  2 8 0 6 7 E -  1 1  -0.4  FI 352 5 6  F . 05 . 0  .  1 066436  E  02 

0 .441292  3E  01  0 . 3192285E-02  -0.  1297819F-05  0. 241 4 740E-09 

-0. 16742°5F-13  -0.4894401E  05  -0.7287572F  00 


OP  0  .3  7  1899  IF  01  -0 . 25 1 6 72 5F- 07  0 .  85 9372 8E -05 

-0. 8299864F-Q8  0.2T08214F-1  1 . -0.  1057668E  04  0. 3 90806 9 F  01 

0. 3597610E  01  0 . 781 45  5  5 E- 03  - 0 . 2  2  3  8  6  6  4  E -  06  0.42A901 5E - 10 

-0. 3346017E-1 4  -0.1192789F  04  0.3749263E  01 


N2  0.36916UF  01  -0 . 1333252E-02  0 . 26  50306F-05 

-0.9768 83 0E-09  -0 . 99772  19E- 1 3  -0.  1062831E  04  0.7297497E  01 

.0 »  28 54573F  01 .  0 . 1597 6  29E-02  -0.6256670E-06  0.  1 1  31581E-09 

-0.76  89704E -14  -0 . 89 0 1 7 4  IF  03  0 .639028 4E 01 

H20 _ 0.41  56499E  01  -0.  172443  1  E-02  0. 5698224F-05 

-0.45930 02 E-08  0 . 142336 1 E- 1 1  -0.3028874E  05  -0.6861618E  00 

0.2670752F  01  0 . 303  17 09E-0 2  -0 . 8535 15 1 E- 06  0 . 1  1 7908 3 E -09 

-0.61 97350E-14  -0.2 9888 96E  05  0 . 6 S 8 3 8 3 6 E  01 


H2S  0 . 39 1 63  05  E  01  -0 . 3 5 1 3 86 1 E- 03  0 . 4 2 1 9 1 2 6E-05 

-0.2745363F-09  0  .48 5  34 3 1 E- 1 2  -0.3609556E  04  0.2366QQ2F  01 

0. 2  765  71  2E  01  0  .40  1 3 1 84E-02  -0 .  I  504486F-05  0 . 2 6 80 796E-Q9 

-0. 1796765E-13  -0.3385977E  04  0.7932716E  01 


50  2  0 . 32 2 5 7  1 1 E  01  0.5655114 E-02  - C . 24 9 701 7 E -06 

-0. 42206 74E-08  0 . 2139270E- 1 1  -0.3690444E  05  0.9817701F  01 

9 . 5  1  9 8 2 4 1 E  01  0  .2059507E-02  -0 . 8625439E-06  0 .  1 66365 OE - C9 

-0. 1  1 8478  IF -1  3  -0.37  541  6? F  0  5  -0.3 3 0599 OF  00 

. S . . . . . 0.291  37  22F  01  0 . 3  1  2  94  02  E-03  -0. 2609247F-05 

0.31 38239E-08  -0 . 1 1 70895E- 1 1 . 0.3256823E  05  0.35681L2E  01 

0. 2914575F  01  -0 . 566 1934 E-03  0 .  28 49 75 5F- 06  -0. 5  18685  IE- 10 

0. 327099  IE-14  0.3260492E  C5  0.3764083F  Q1 

S2  0 .2699931E  01  0 . 6274950E-02  -0 . 92 8 7070E - 05 

. 0 . 65  3932  4F-08  -0.1 780224F- 11  0.  145049  IF  05  0.1053419E  02 

0. 41 89692E  01  6 . 3  344~965E- 0  3  -0 . 1  55666  0F-06  0 . 3  03 6  80 0 E  -  1  0 
-0.21 7958  IE -1  4  0.1418810E  05  0.3293028E  01 


S6  0 . 60 8 92 40 E  01  0 .  1 882483E-01  -0 . 2 7861 2 OE -04 

0. 1961795E-07  -0. 5340679E- 1  1  0.U26434E  05  0.7320230E  01 

0.  1055B48E  07  0. 11 54089 E-02  -0.466998 4 E- 06  0 . 9 1  1 0 4 0 5 E - 1 0 

-0.6538 74 9F  —  14  0.1031394E  05  -0.  1440332E  02 ~ 


. 


F-  14 


THFRMODY NAM  I C  DATA  -  NASA  FORMAT 


FIRST  7  CONSTANTS  FOR  300  TO  1000  OFG.  K. 


LAST  7 

CONSTANTS 

FOR 

1000  TO  5000 

/  L.  V?  •  J\  • 

DFG .  K. 

SB 

0 . 7  7  8  3  8  9  4  F 

01 

0 . 2  50  Q98  OF- 

01 

-0.371482 7  E -04 

0.2615727E-07 

-0.71 20906F 

-11 

0.  101  145  5 E 

05 

0.47621 7 7E  01 

0.13  742°0E  02 

0.15387 86 F 

-02 

-0. 6226649E- 

06 

0. 121471 8 E — 0  9 

-0. 8718334E-14 

0.88473 7 IE 

04 

-0. 2420255^ 

02 

COS 

0.203B551F 

01 

0. 1461 395 E- 

01 

-0. 2046586E-04 

0.  1506240E-07 

-0 .4 44 6848 F 

-11 

-0.  1 762420  C 

05 

0.1236735E  02 

0. 5206835E  01 

0. 2471763E 

-02 

-0.  1001124E- 

05 

0. 1878734E-09 

-0.13 10349E- 1 3 

-0 .18327 75F 

05 

-0.2913377E 

01 

CS2 

0.29 17459E 

01 

0.  1249  86 8^— 

01 

-0. 1 610910F-04 

0. 105678  OF -07 

-0 .7794493E- 

-  1  1 

0. 1277706E 

05 

0.8876345F  01 

0. 59 491 5 OE  01 

0 . 1 7  245  59  E 

-02 

-0. 721  110 4 F- 

06 

0. 13 74474 E-C9 

-0.96  83  89  IE -14 

0. 1205371 E 

05 

-0.6205105F 

01 

H2 

0.2  846082E 

01 

0.4 193205 F- 

02 

-0.96  1 192  4F -05 

0.95  1225 9E -08 

-0. 3309338E 

-11 

-0. 9672534F 

03 

-0. 1 41 1782E  01 

0.30 4368 7E  01 

0.61 18708F 

-03 

-0. 7399350F- 

08 

-0. 2033189E-10 

0. 24593 76E- 14 

-0.8549097E 

03 

-0. 1648130E 

01 

CO 

0.378713  IE 

01 

-0. 21 70950E- 

02 

0 . 5075728E— 05 

-0. 3473769E-08 

0.7721 6 80 E 

-l? 

-0. 1 43 634 8 F 

05 

0.2633 54 2E  01 

0. 2951148 F  01 

0. 1552554E 

-02 

-0.6191 135E- 

06 

0. 1  1  35031  E-09 

-0. 7733268E-14 

-0.14231 79 E 

05 

0.6531 44  3  E 

01 

S 

-0.41 5625 5F 

02 

0. 2830092E 

00 

-0.6212459F-C3 

0. 5791794E-06 

-0.1955034F 

-09 

0 . 4472086F 

04 

0.  1 79786  5E  03 

0.3871659F  01 

0.0 

0.0 

0.0 

0.0 

-0  .B463350F 

03 

-0.  1 749  27  4E 

02 

END  OF  ALL  DATA 
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CALCULATION  SEQUENCE  OPTIMIZATION 


❖  if  it  ic : 


:  if  if  #  *  *  *  *  if  if  if  if  *  if  if  ft  *  £  *  *  *  if  if  if  *  *  *  If  *  if  if  if  if  *  *  *:«*#*****: 


INITIAL  SEQUENCE  IS  - 


12  3  4 

5  6  7  8 

9  10  11  12  13  14 

THE 

OPTIMIZED 

CALCULATION  SEQUENCE  IS  - 

12  8  3 

5  4  6  7 

9  10  11  14  12  13 

THE 

FOLLOWING 

41  40 

STREAMS  MUST  BE  ASSUMED, 

>r  if  if  if  if  £  *  if  ij:  if  *  ^*:  if  if  *  #  if  #  *  ;;;  if  if  fc 

if  if  if  *  if  *  *  if  if  *  *  *  *  if  if  if  if  if  if  if  £  if  if  if  if  if  if  jjc  #  if  if  if  £  if  if  # 

PRIMARY  REACTION  CUT-OFF  TEMPERATURE  (BOILER)  =  1600.  OFG.F 

*  *  *  £  A  *  *  *  if  if  if  *  *  *  *  if  if  if  if  *  *  £  *  *  if  *  *  *  *  *  if  if  £  *  *  *  *  *  *  *  if  -  *  £  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


f  f  f 
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COMBUSTION  AIR  A ODER 
EQUIPMENT  NUMBER  I 


»•/  -J»  J#  xU  JU 


ft  *  *  ^  *  *  *  *  3*C  *  *  *  Y  ❖  ❖  *  *  *  *  #  *  t~  *  ❖  *  t-  *  *  *  ❖  *  $  *  *  *  £  *  ijl  *  *  #  3$C  *  5jc  £  #  5^  *  2jt  £  *  *  #  ^  *  * 


EQUIPMENT  PROCESS  feed 


TEMPERATURE 

(DEG.  F)  =  70.0 

PRESSURE 

(PSIA)  =  19.00 

STREAM  ENTHALPY  ( 3 T U .  )  = 

-0.2513813E  08 

MOLE  NUMBERS 

ARE  - 

CM  4  - 

1. 56770 

C02  - 

104.29167 

02 

0.0 

N2 

0.0 

H20  - 

47. 00000 

H2S  - 

290.04126 

S02  - 

0.0 

S 

0.0 

S2 

0.0 

S  6 

6.6 

SB 

0.0 

COS  - 

0.0 

CS2  - 

0.0 

H2 

0.0 

CO 

0.0 

S 

o 

• 

o 

\V»  »y  Jj  J/  \i»  J*’  xt^  x*.  x*» 

4%  'lk  O'  •S'  •'('■  'l'  •'.x  ^jx  .-tx  .,X 

'V  x*/  wl.  J'  x*.  x*r  xO  xl/  X  X  X  X  X  xV  X  X  X  xtr  X  xU  X 

o  -4'  -v*  4'  '■■*  -r*  -*r-  -iv  -r-  v  4'  4'  -4V  -v  ^  *  4-  -v*  4'  *r*  ^ 

x1'  X  X  .*■»  X  X  xl.  xl>  xl»  X 

^(X  ^  /jX  .,x  >,*»  ^X  ..X  «,X  ^,x  4% 

x1'  X  X  X  xV  X  X  X  X  X  X  X  x*.  X  X  si. 

')»  *(X  r,x  rj*  ',X  ryx  >js  r,x  4*x  *^x  rjN  r,x  *|X  r,«  4'  *> 

TOTAL  MOLES 

AIR  ADDED  =  712.85 

(  R  .  H  .  = 

45.00  PERCENT) 

MOLES  DRV  AIR  =  705.43 

MOLES 

WATER  =  7.42 

TEMPERATURE 

{ DEG . F . )  =  75.0 

PRESSURE 

(PSIA.)  =  18.50 

_  RATIO  HE  f SFECIFIEO/STOICHIOMETRIC )  AIR  ADDED  - 

-  FOR  OXIDAT/ION  OF  SULPHUR  (ALL  H2S I  -  0.3333 

-  FOR  OXIDATION  OF  CARBON,  HYDROGEN  AND  ABOVE  -  1.0000 


xC»  4/  >X"  st/  vO  J/  xl^ 

✓|X  r'j'X  ^ X  >,V  /jX  — yx 


:  5:? 


4'  -r  4v  -,■* 


>  -V  'f'  ''(*  -»'  4'  V  ■ 


_  _ _ _  COMBINED  OUTLET  STREAM 

STREAM  NUMBER  3 

TEMPERATURE  (DEG.  F)  _= _ 72.9 _ PRESSURE  (DSIA)  =  18.60 

STREAM  ENTHALPY  (BTU.)  =  -0.2591994E  03 

_  MOLE  NUMBERS ARE  - 


CH4  -  1.56770  C02  -  104.29167 

02  -  148.14136  N2  -  557.29346 


H20  - 

S02  - 

S  2 

54.42023 

0.0 

0.0 

H2S  - 
S 

S6 

290.04126 

0.0 

0.0 

SB 

0.0 

COS  - 

0.0 

CS  2  - 

0.0 

H2 

0.0 

CO 

0.0 

S 

0.0 

if.  *  ^  y-.  sjcsjcjjc  ije  ^cs}:  j{:  5}s  %  sjt  #3?;  3{s  j}c^t  ijz  #  £  j}c  #3|s  ■%  :{;  jJsjJc  &  j{c  $  ■?,:  $ 


V 


•J  1  "  1  c  * 

.  "  1 

■ .  ' 

. 

'  .1  )  "  ' 

. 

♦ 

c 

ft 
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— 

. 

• 

. 

- 

. 

- 

' 

■  •  - 
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irr. 

. 

H 

* 

■  •  *■ * 


E-  17 


STREAM  COMBINER  /  DIVIDER 

EQUIPMENT  NUMBER 

2 

INLINE  BURNER. 
EQUIPMENT  NUMBER 

8 

COMBUSTION  REACTION  AND  WASTE 
_  _  EQUIPMENT  NUMBER 

HEAT  BOILER. 

3 

CONDENSER  1 

EQUIPMENT  NUMBER 

5 

AD  I  A  3 A  TIC  STREAM  COMBINER 
EQUIPMENT  NUMBER  4 


CONVERTER  1 
EQUIPMENT  NUMBER  6 


CONDENSER  2 

EQUIPMENT  NUMBER  7 


ADTABATIC  STREAM  COMBINER 
equipment  NUMBER  9 


CALCULATIONS  LOOPED  ON  RECYCLE  LOOP  - 
23354679 


■  ■  V 

> 


1 


'  • 


E-  IB 


_ STREAM  COMBINER  /  DIVIDER _ _ 

EQUIPMENT  NUMBER  2 

***  *  £  *  *  *  *  *  *  *  ****  *  Jf:  *  *  *  ❖  *  *  *  *  4  *  *  *  ❖  *  *  *  #  *  *  *  $  *  *  *  *  *  #  *  *  *  £  £  *  *  *  *  $  *  * 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  72.9  PRESSURE  C  PS  I A )  =  13.50 

STREAM  ENTHALPY  (STU.)  =  -Q.2591994E  08 


MILE  NUMBERS  ARE  - 


CH4  - _ I.  56770 _ 002  _ 104. 29167 


02 

02  0  - 

....  SO 2 . - . 

148. 14136 
54.42028 

0.0 

N2 

H2S  - 
S 

iu-r.'  ;uj  i 

557.29046 

290.04126 

0.0 

S2 

0.0 

S6 

0.0 

SB 

0.0 

COS  - 

0.0 

CS2  - 

0.0 

H2 

0.0 

CO 

0.0 

S 

0.0 

*  sje  *  *  4c  *  ^  *  *  *  *  $  *  *  *  *  *  *  *  #  *  ^  #  #  *  sje  #  *  #  #  *r  5*  *  $  *  *  *  s':  *  *  *  *  *  %  4c  £  *  #  4:  #  a}i  *  $  ^  £  #  £  £ 


TOTAL  FEED  IS  SPLIT  - 


0.054  PERCENT  TO  STREAM  5  , 

. 9  6.946 PERCENT  TO STREAM  4  . . 

Jcic****  I***:*  *#*#£-*:*;£  sju«c sje  *  #  *  # Jjs  £  *  $  *  &  #  *  *  *  *  £  4c^4c4,c  *  sje  #  * ^ 


. 

■'F  I  *'  .  f 

.  ' 

— 

* 

. 

. 

. 
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_ INLINE  BURNER. _ 

EQUIPMENT  NUMBER  0 

»***»**»»**»  *  *  sic  sic  ************  *  ******************************  * 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  E)  =  72.9  PRESSURE  ( PS  I  A )  =  18.50 

STREAM  ENTHALPY  ( BTU . )  =  -0.7915135E  06 


MULE  NUMBERS  ARE  - 


CH4 

0.04787 

C02 

— 

3.18474 

□  2 

4.52377 

N2 

- 

17.01799 

H  2  0 

1.66182 

H2S 

— 

8.85695 

. . .  S02 

o 

• 

o 

I 

S 

— 

0.0 

S2 

0.0 

S  6 

— 

0.0 

SB 

0.0 

COS 

— 

0.0 

CS2 

0.0 

H2 

— 

0.0 

cn 

0.0 

S 

- 

0.0 

****************** ********  ********************************** 

ITERATIVE  ADIABATIC 

TEMPERATURE 

CALCULATION 

****************** * *****  * *  *  *  * 

*  *  *  *  *  *  *  *  *  *  si; 

****** 

»•/  '*/  Vf  'Y  V'  Af  jR  sV  J/  s*/  s*/  J-/  >V 

■*<*■  ^  4* V  ■'A  v  4-  4*  •*iv  -r-  -t' 

FINAL  CONVERGED  TEMPERATURE  IS 

2010.2 

DEG.  E 

PRESSURE  (PS  I  A.)  =  18 

.50  (CRIT 

=  0. 

10E-03  ) 

************************************************************ 


I N-L I N  E  BU RN  ER  -  (DESIGN) 


DIAMETER  (IN.)  =  24.0  RESIDENCE  T  IMF  (SEC.)  =  ' 2.245 

LENGTH  ( ET • )  =  10.0  HEAT  RELEASE  (BTU/CU.FT.)  =  18945. 


'i'  J.  -A*  •>**  »!/ 

-j'  -r»  -v*.  -i- 


si/  s*/  -*/  J/  s</  J,  »*/  4/  J/  V'  J/  J/  vV  si/  s)/  si/  v*. 

V  T*  *>'  'j-  'r*  V  T  ■V*  'I-  -V  *S'  ^  V  'I'  -T  V  *)' 


'  J'  - 
•  •*»' 


\  tj  I]  I 


](  T 


.  •  - 

, 

« 

f  .  .1!)  '  ^  T 

.  1  (  .  r-| )  j 


{  ..  1 
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BURNER  EXIT  STREAM  - 
STREAM  NUMBER  14 


TEMPERATURE  (DEG. 

F)  =  2010.2 

PRESSURE 

< PS  IA  )  =  1 8.60 

STREAM 

ENTHALPY  ( 8TU. ) 

=  — 0.7915126E  06 

MOL r  NUMBERS 

ARE  - 

CH4  - 

0.00000 

CO  2  - 

2. 77810 

02 

0.00000 

N2 

17.01799 

H20  - 

8.47096 

H2S  - 

1.51392 

S  02  - 

1 . 298  63 

S 

0.00007 

S2 

3.00688 

S6 

0.00000 

SB 

0.0 

COS  - 

0.03043 

CS  2  - 

0.00009 

H2 

0.62964 

CO 

0.42400 

S 

0.0 

-vlr  dr  dr  do  do  -><o  do  do  do  do  do  do  do  do-  do 

0(N  Op  op  Oj »  Op  op  Oj\  >p  .*VH  0(S  op  -\w  op  Op  Op 

d»  d.  d/  d'  dr  d.  d^  dj»  d/  d/  >0  d*  d-<  d»  d. 

^  R'  -V*  V*  ^  -"O  -V*  ’Y'  ">'  '■ '  U"  "l' 

d*  d.  df  d.  dr-  d/  dr  dr  dr  dr  dr  dr 
»y*  rp  r,x  rp  rfK  djX  r(»,  .-r^s  .rp  r«,x  »p 

3yC  rp  r^  -p  rp  r|C  rp  Ip  rp  ryC  rp 

' 

) 


■  T'  , 

•  '  . 

-  r  .1 

. 

:  .  f 

•  • . 

. 

-  <  '■  3 

E-  21 


COMBUSTION  REACTION  AND  WASTE  HEAT  BO  HER. 
EQUIPMENT  NUMBER  3 


EQUIPMENT  PROCESS  FEFD 


TEMPERATURE  (DEG.  F)  =  12.9  PRESSURE  (°SIA)  =  18.50 

STREAM  ENTHALPY  (8TU.)  =  -0.2512842E  08 


MOLE  NUMBERS 

ARE  - 

CH  4  - 

1.51983 

COR  - 

101 . 10693 

02 

143.61758 

N2 

540.77539 

H20  - 

52.75839 

HRS  - 

281 . 1840  8 

_ SO  2 . _ 

.  0.0 

S 

0.0 

S2 

0.0 

S6 

0.0 

SB 

o.o 

COS  - 

0.0 

CS  2  - 

0.0 

HR 

o.o 

CO 

0.0 

S 

0.0 

.*...*.*.*  *  »  *  »  *  *  »  »»  »  *  *  **«*»**»  *  *  *  *  *******  *  *  *  **************** *  * 

ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


***************  ***  ******  **  ***  ****  **** *  *  *  **  **  **  **  **  **  ****  **  *** 

_ _ F INAL . CONVERGED  TEMPERATURE  IS _ 2010. 2  DEG .  F 

PRESSURE  ( P  S  I A  .  )  =  18.50  { C R I T  =  6.1  OF -03  T 

STREAM  ENTHALPY  (BTU.)  =  -0.2512808F  08 

MOLE  NUMBERS  ARE  - 


CH4  -  0.00000  C02  -  88.19630 

02  -  0.00000  N2  -  540.27539 

H?0  _ 268.93018 _ HRS  _ 48.06148 

S02  -  41.22824  S  -  0.00220 

S2  -  95.46013  S6  -  0.00000 

5A . ~ _ _ _ _ 0.  0 _ COS _ - _ 0.96  5  94 

CS2-  0.00294  H2  -  19.98988 

CD  13.46154  S  -  0.0 


****** * * * * *  * *  *  * * * *  *  ********** 

PQILE R  EIRE  TUNNEL  - 


********  **********  ********* 


( HE  SI GN) 


DIAMETER  (IN.)  -  60.0  RESIDENCE  TIME  (SEC.)  =  0.884 

LENGTH  (FT.)  ^  20.0  HFAT  RELEASE  (3TU/CU.FT.)  =  48117. 


*  *****  **** **  *****************  ******************************* 


-  { f  1  ■  ~  ~  .  'r  ” 


- 

.  J  ! 

..  ■ 

• 

• 

. 

. 

>c  ’  . 
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SIMULATION  OF  TUBE  PASS  NO.  1 


ITERATIVE  NON-ADI A8ATIC  TEMPERATURE  CALCULATION 
TDIAM  SPECIFIED,  OELPC  CALCULATED. 


****************** **** ************************************** 


FINAL  CONVERGED  TEMPERATURE  IS  1672.  I  DEG.  <= 

PRESSURE  I  PS I  A.)  =  13.50  { CR I T  =  0.10E-03  ) 

TUB F  DIA.  <  IN.  )  =  60.00 

NUMB  ER . OF . TUBES . := . 1  . 

TUBE  LENGTH  (FT.)  =  20.00 

_ PRESSURE  DROP  (PSI)  =  0.00 _ 

TOTAL  HEAT  LOSS  (BTU.)  =  0.4548236E  07 

_ STREAM  ENTH A L P Y  (BTU.)  =  -0.2967659E  03 


MOLE  NUMBERS  ARE  - 


CH4  - 

0.00000 

C02  - 

97.96252 

02 

0.0 

M2 

540.27539 

_  _  H20 _ — . 

265. 50317 

H2S  - 

63.69708 

S02  - 

38.05815 

S 

0. 00010 

S2 

89.26601 

S6 

0.00009 

S3 

0. 00000 

COS  - 

0.89133 

CS2  - 

0.00234 

H2 

7.78099 

CO 

3 . 77051 

S 

0.0 

************************************************************ 
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DESIGN  OF  PASS  NO.  2 


ITERATIVE  CALCULATION  OF  TUBE-PASS  TUBE-NUMBER 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 


*  *  ********************** * *** * ********** *  *  *********** * * * * *  * * * 

_ _ _ CONVERGED  TUBE  NUMBER  IS  89. 

TUBE  DIAMETFP  (IN)  IS  2.  *50 
TUBF  LENGTH  (FT)  is  20.00 


APPROX.  PRESS.  DROP  (PS  I.)  =  0.18 

APPROX.  TOTAL  HEAT  LOSS  { RTU . )  =  0.1Q64743E  08 

_ (  FMTH.  ERROR  (BTU.)  =  0.4400000E  02  ) 


REVERT  TO  SIMULATION  FOR  EXACT  CALCULATION 
_ _ _  OF  ACTUAL  OUTLET . TEMP.  AND  PRESS.  DROP 

*****************************  ********  *********************** 


SIMULATION  OF  TUBE  PASS  NO.  2 

_ ITERATIVE  NON-ADI ABAT I C  TEMPERATURE  CALCULATION _ 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 

******  ******* * * ************************** * * **************** * 


FINAL  CONVERGED  TEMPERATURE  IS  000.4  DEG.  F 
PRESSURE  (PSIA.)  -  18.31  (CRIT  =  0.10E-03  ) 


TUBF  DIA.  (IN.)  - 
NUMBER  OF  TUBES 

2.50 
=  89. 

TUBE  LENGTH  (FT.) 
PRESSURE  DROP  (PST) 
TOTAL  HEAT  LOSS  (BTIJ.)  = 

=  20.00 
=  0.19 

0. 1063464E 

08 

STPEAM  ENTHALPY  ( 8 T U . )  = 

— 0.4030520E 

08 

MOLE  NUMBERS  ARE  - 

CH4 

0.00000 

C02  - 

99.13789 

02 

0.0 

N2 

540.27539 

H20 

2  63.7  4416 

H2S  - 

67. 19925 

S02 

38.33974 

S 

0.00000 

S2 

22.04135 

S  6 

17.48224 

SB 

3.22716 

COS  - 

0.84644 

CS2 

0.00211 

H2 

6.0176? 

CO 

2.64024 

S 

0.0 

*************************************** ********************* 
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BOILER  BY 

-PASS  MO.  1  , 

(RATIO 

=  0.123?) 

STREAM  NUMBER  7 

TEMPERATURE  (DEG. 

F)  =  900.4 

PRESSURE  ( PS  I  A )  = 

13.31 

STREAM 

ENTHALPY  (BTU.) 

=  -0. 

4964765E  07 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C02 

12. 

21 1  73 

02 

0.0 

N2 

—  6  6. 

55067 

H  2  0  - 

32.49025 

H2S 

8. 

27  75  5 

SOT  - 

4.72266 

S 

0. 

00000 

S2 

2.71504 

S6 

2. 

15345 

SB 

0.39752 

COS 

0. 

10426 

CS  2  - 

0.00026 

H2 

0. 

7412  5 

CO 

0.32522 

S 

0. 

0 

v*'  -<0  »<#  v*-y  V*/  »},  \'y  Jy  s'y  >•<  sV  xl/  *•» 

3fx  -•,*»  »*(-•  -,x  yyx  y,x  y,X  y.x  -,x.  y,x  y,x  y,v  y,S,  y(x  -(x 

•4  x1'  v«-  xV  J/  J/  jf  -v'y  -4*  >*»  xO  X>y  yff  Jy  Jy  V*yy  x*y  Jy  Jy  jy  X<y  xly  vly  >iy  Jy  .O  vV  Jy  xV  -<y  x*r  x*y  Jy  jy  «ly  Jy  Jy  -Jy  >*y  »<»  Jy  «ly 

y  .--  *(X  *|X  y,x  yjX  *,x  y(*  ',v  yjx  y|X  yf*  -y-jX  y,x  ><*  y,x  -jx  y(x  yjV  ^x  y|X  .yjX  y^s  y^x  y,x  <i|x  >jX  ^x  y,x  -y,  .  yj»  »jx  y^x  y^x  yjX  >^v  yj*  y,x  yyX 

* 


■r  ’  . 
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DESIGN  OE  PASS  NO.  3 


ITERATIVE  CALCULATION  OF  TUBE-PASS  TUBE-NUMBER 

tdiam  specified,  delpc  calculated. 


*****************$  ***  ********  *******************^#£ 

_ CONVERGED  TUBE  NUM8ER  IS  74. 

TUBE  DIAMETER  (IN)  IS  2.00 
TUBE  LENGTH  { FT )  IS  20.00 


APPROX.  PRESS.  DROP  (PS  I.)  =  0.37 

APPROX.  TOTAL  HF  AT  LOSS  { BTU . )  =  0.  3367155F  07 

(ENTH.  ERROR  ( 3  T  U  .  )  =  0.244500QE  04  ) 

REVERT  TO  SIMULATION  FOR  EXACT  CALCULATION 
_ _ OF . ACTUAL  OUTLET . TEHP.  AND . PRESS.  DROP 


************  ************  **  *  *  *  *  ***  *  *  *  *  *  *  *  *  *  *  *  **  ****  *  *  *  *  *  *  *  *  *  * 


SIMULATION  OF  TUBE  PASS  NO.  3 

_ ITERATIVE  NON-ADI ABATI C  TEMPERATURE  CALCULATION 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 

*****  ****  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ****  *  *  *  *  **********  *  ******  *  *  *  *  **** 


FINAL  CONVERGED  TEMPERATURE  IS  599.4  DEG.  F 
PRESSURE  (PS  I  A.)  =  L7.Q5  (CRIT  =  0.10F-03  ) 


TUBE  DI  A.  UN.  )  = 
NUMBER  OF  TUBES 

f  U  B  E  L  E  NG  T  H . ( F  T  .  ) 

PRESSURE  DROP  IPS!) 
TOTAL  HEAT  LOSS  (BTU.)  = 


2,00 

74. 

20. 00 
0.37 

0.33715 65 E  07 


>!c  ************  *  *  ***  **  *  *  :|c  >|c  * 


*******************  s>c  *******  sjc  **  sj:  *  * 


nr  v'  ■ 


If  • } 


( .  ,  '  f  r 
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. 
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301 L ER  EXIT  STREAM  - 
STREAM  NUMBER  6 


TEMPERATURE  (DEG.  F)  =  599.4  PRESSURE  (PSTA)  =  17.95 

STREAM  ENTHALPY  (BTU.)  =  -0.3871123E  03 


MOLE  NUMBERS  ARE  - 


CH4 

- 

0.00000 

CO  2  - 

86.92036 

02 

— 

0.0 

N2 

473. 72461 

H20 

— 

231.33430 

H2S  - 

53.34355 

SO  1 

- 

33. 5  39  74 

S 

0.0 

S2 

- 

0. 25076 

S6 

10.26673 

S3 

- 

11 . 40837 

COS  - 

0.  74095 

CS  2 

- 

0.001 84 

H2 

5.29410 

CO 

2. 32204 

S 

0.0 

x*r  Jr  x*r  Or  x'r  x'r  x'r  x'r 

'»**  *V"  '6  •r!s  6''  'f*  -V 

x'r  Jr  Jr  Or  Or  Jr  Jr  J  - 

ryx  rtx  ->jX  -ryx  r,x  ryx  r^x  r,. 

x'r  x'r  Or  Or  x'r  Or  Or  Or  Or  -Or  Jr  Or  Or  Or  Or 

-,x  r/x  r,x  r/x  ryx  rfx  ryx  ryx  ryx  r,x  r,x  r^S.  r,x  -ryx  ryx 

Or  Or  Jr  X<r  Or  v*r  Or  Or  Or  Or  xV  xir  x'r  Or 
'(»  ^x  r^x  ryx  r-.x  ryx,  ryx  r,x  ^x  ryx  ryx  ryx  >y>  -yv 

5J1  j^i  5$c  #  3ji  s{c  i\<  ifc 

STREAM 

SULPHUR  DEW  PT 

.  (0FG.  F  )  •= 

514.9 

STREAM 

WATER  HEW  PT. 

(DEG.  F)  = 

153.2 

J/  X**  xU 


2V  >V  ^  O'  ^  '*►  Or  x*»  x>^  %t»  Ur  Jr  Ur  Jr  xl»  Jr  Jr  Jr  J,  »•*  Jr  Jr  xfr  Jr  Jr  x*r  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr 

’  'S  *V'  -rr  'V'  TV  "A  'f'  -y  V  •'J'  '*«'  <)'  ^  'O  ^  «V*  -t-x  'f'-  -'r-  V  ^X  ryx  r,X  r,X  -,x  r,x  r,X  Xx  r,X  -,x 


EQUIP*  HEAT  “  OUTv  "  (  BTU/HR  )  IS  ~Q.1855443E  08 

STEAM  TEMP.  (  OEGt  F.  )  = _ 401.0 _ 

PRESS.  (PSIA)  =  '  “  .  '  250.000 

LATENT  HEAT  (BTIJ/LB )  =  32  2.1 

L.H.  CORRECTION  *  0.0 

PRODUCTION (L8/HRI  =  ‘ 0,22 5701 8E  05 


''f  Vi  V'  Vi  2*I  'V  J'  Or  SV  ^  »V  Jr  J»  Jr  Jr  Jr  Jr  Jr  x'r  Jr  xV  Jr  x<r  Jr  xV  Jr  Jr  Jr  Jr  Jr  Jr  Jr  xO  Jr  Jr  Jr  Jr  xlr  X*r  x*r  Jr  Jr  xlr  Jr  Jr  xJr  Jr  Jr  Jr  xlr  Jr  Jr  Jr  Or 

*  fx  - yx  rjx  r|X  'jX  r.x  r,x  r,x  ryX  r,x  r^x  r,x  r,x  -,x  r(X  r,x  ',x  ,x  r/x  *,xr^  r jX  ^jX  r^x  ryx  ,(x  ryx  r,x  r(s  r,\  r,x  ^x  r,»  r^x  »,x  ^jx  3,x  >jx  r,x  r,x  r,x  rjx  r,x  'jx  r,*  r,x  ryx  A)X  >. X  -yx  Jjx  3,x  nf»  r^X  r(x  r,x  rjx  r(x 


PERCENT  OF  TOTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  62.20 


A  A  A  >k  A  A  A  A  A  *  A  A  A  A  A  #  A  ^  A  A  5k  A  A  A  A  A  A  A  A  A  A  A*  A  #  ❖  A  *  A  A  A  ❖  A  A  A  A  A  A  A  £  A  ❖  ❖  A  A 
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CONDFNSFR  1 

EQUIPMENT  NUMBER  5 


EQUIPMENT  PROCESS  FFFP 


TEMPERATURE  (DEG.  F)  =  599.4  PRESSURE  (PS  I  A)  =  17.95 

STREAM  ENTHALPY  { BTU . )  =  -0.3871 123E  08 


MOLE  NUMBERS  ARE  - 

CH4  - _ 0.00000 _  CO  2 

02  -  0.0  M2 

H20  -  231.33430  H2S 

SO  ?  - .  33 . 5  89  74  S 

S2  -  0.25076  . . . S  6 . 

S8  -  11.40837  COS 

C S  ?  - _ 0.00184 _ H2_ 

CO  -  2. 32204  s 


86.92036 

473. 72461 
58.84355 
. 0.0 

1  6 . 2667  8 

0.  7409  5 
5.29410 

0.0 


CONDENSEP  op s I CN 


#*##**  #*£##*$****:>•;  ***£$##**##  *  #  if.  »  *  jjt  *  £  *  if  $  $  *  *  #  £  #  *  *  £  $  *  if  %  *  if  £  *  * 


TUBE  LENGTH  (FT.)  =  10.7 

TUBE  DIAMETER  (IN.)  =  1,000 

NUM8FR  OF  TUBES  =  ~  387 

MAXIMUM  FLOW  RATE  (LB/SQ.FT. SEC)  =  4.00 

OUTLET  GAS  TEMPERATURE  (  UEG.fT  = . “  ~  3  64.9 

U  (OVERALL)  ( BTU/HR. SQ.FT. DEG. F)  =  13.52 


*  #  *  *  *  *  ********  *****##**:£**##*  ***##*:$:*:  *  *  #  #  *  *  :*:  £  ~  #  $  *  *  if  if 


'V‘  -v-  -v>  4**  v» 


EQUIP.  HEAT  DUTY  {  BTU./HR  )  IS 


0.2583712E  C 7 


STEAM  TEMP.  (DEG,F.)  - 

. PRESS .  (PS! A)  = 

LATENT  HEAT  (BTU /LB)  = 
L.H.  CORRECTION  = 
PRODUCT  no  (LB/HR  )  = 


281.1 
50. 000 
924.7 
0.0 

0.2  794053E  04 


! 


' 


f  •  V  .  ’  , 

r 

r 

.  r 

!  .  C-  ♦ 

♦ 

>V 
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CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  94.66,  PERCENT  RECOVERY  =  42.63 

. . . SULPHUR  FOG . - .  79.73  MOLES,  OR  2551.4  LBS. 

SULPHUR  LIQUID  -  65.45  MOLES,  OR 2094.5 LBS. 

(STREAM  MO.  9  ,  TEMPERATURE  =  293.1  DEG.F.) 


'U  « 


■A*  ■J,  V'  .V  'A'  -V*'  4*  -1.'  ></ 

■(*  •>,-  »,N  /(»  «(*.  >jV  ^|» 


'*<  4  4  4  4  4  '**■'  »>*•  4  4  -J.  »l»  A»  -Jj’  -J*  »l»  .1.  »<,  ^  j,  -j,  sJ,  J-  jl,  j.  j,  j,  j.  a,  j, 

-v*  -»*■  "»**  'X'  -I*  ^  -v  *v  'Vs  -*<'  -v*  '»•>  'r  ~  5,i  jj:  ^  ^  ^  ^  ^  ^  sjc  3jc 


SPECIFIED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 

{  LBS.  S/100  LB.  M OLES  INERTS) . •= . 25 .00 


REVISED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  94.66,  PERCENT  RECOVFRY  =  90.11 


SULPHUR  FOG  -  6.97  MOLES,  OR  223.2  LBS. 

SULPHUR  LIQUID  -  138.21  MOLES,  OR  4422.6  LBS. 

(STREAM  NO.  9  ,  TEMP  FRATQJRE  =  331.4  DEG.F.) 


,  -,V  ^  ^ 


5*?  3jc  sjc  s!c  ; 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  8 


TEMPERATURE  (DEG.  F)  =  364.9  PRES  SURF  (PSIA)  =  17.84 

STREAM  ENTHALPY  ( BTU. )  -  -0.4165973E  08 


MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C02 

86.92036 

02 

0.0 

N2 

473.72461 

M2  0  - 

231. 334  30 

H2S 

58.84355 

SO  2  - 

33.5  8974 

S 

0.0 

S2 

0.00033 

S6 

0.23105 

S  8 

0. 34999 

COS 

0.74095 

CS2.  - 

0.00134 

H2 

5.29410 

CO 

2.32204 

S 

6.97478 

J#  »•#  J.  -A"  %*.  J/  A>  J,  J/  4/  4  J. 

v  y  'i'  -*r  A*  ■/('  '•**  -'jv  •'i' 

sU  4  4  4  4  4  4  *4-  4  4  4  4*  4  4  4  4  4  4 4 

^ ^  .I1.  v  ^ 

if  if  if  i;  if  yr;  if  i 

l>  -4  4 4  4  4  s<«  4  4  4  4  4  -JL,  4  4  4  4  4 4 

,N  #y\  >JN 

y  i''  ■ 1  "  n  r 
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. 

>  ^ 

i 

* 

A 

9 

v. 
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APIA  VATIC  STREAM  COMB  I  NER 


EQUIPMENT  NUMBER  4 

s'  *  ^  #*  $  sje  #  $  #  Jjc  #  #  t-  ^  ^  £  *  £  *  *  %  #  *  * 


COMBINE  STREAMS  7  AND  8 


*  :$:  *  *  :£  *  j';  -fe  >!r  ^  ij:  :^c  i‘;  ^t;Jc  j*c  ;‘c  •*;  J;  J;*  J;  *^*j; 


FIND . GIVEN . FEED . STP FA M  RESULTANT  TEMPERATURE 

t  te  r  a  t  i've  a  d 1  a  b  a  t  i  c  tf  mp  era  turf . calculation 


❖  *  ❖  ❖❖❖  ^  sjc  sjc  *  *t  *  s{e  #  #  :& $i  ijs  %  #  s>s  sje  & 


FINAL  CONVERGED  TEMPERATURE  IS  450.1  DEG.  f 
pR  FS  SURE . (PS  I  A. . ) . = . 17.84  (CRIT  =  0. 1  OF -03  ) 


1  **£  j/  »>.  sly  Jf  Ji>  O/  »»/  •A*  A-  J/  »t»  v*x  sly  sly  sly  sly  sly  Jy  sly  sly  sly  sly  sly  sly  sly  sly*  si*  sty  sly  sly  sly  sly  sly  sly  -sly  sly  sly  sly  sly  sly  sly  sty 

A5  4*  -V-  4-  4'  T  T  V  4'  -v  *V“  -,-s  -*v*  -,'  yys  'i*  -ss  y^s  y,'  5X  y.s  -,S  yfs  "  IJ;  ^  y,C  JjC  4C  4'  4T  4C 


s'y  sly  -sly  sV  sly  sly  -sly  sly  sly  sly  sty  sly  «•/  sty 
*|S  yj»  y(s  y,s  y,s  y(s  y|s  y(s  yjS  y^-s  yjs  *s  *,s  y,s 


PREDICTFD  STREAM  SPLIT  FOR  TEMP.  OF  450.0000  IS  0.1232 
USF  STREAMS  RESULTING  FROM  THIS  PREDICTION 
FOR  PRESENT  EQUIPMENT  OUTLET  STREAM. 


7'  4  sty  sly  -sly  sly  s*y  If  sly  sty  -sly  sly  sly  s*y  sly  sly  s*y  |y  sly  sly  -sty  sty  sly  sly  sly  sly  sly  sly  sir  «|y  -sly  sly  sty  sly  sly  s*-'  sly  sly  sty  sty  sV  sty  sty  s*y  sly  -ly  si*  sAy  «|y  s|,  sty  -sly  sly  sty  sly  1*  -sly  sty  sly 

y(s  y^s  y,s  y,s  y,v  y,s  yji.  y,s  -,S  y.v  y,s  y^s  -,s  y,v  y,s  -y.  y,-  y,s  y,s  .y.  v  y.s  y,s  y,v  y,  -  -,s  yfs  y(s  y,s  y;S  y^s  -,s  yys  yys  ^  y,v  y,s  ^s  y,s  y,s  y,s  y,s  y,s  y,v  *,s  y,s  ”,C  yJC  3Js  yjs  4'  *!>  4s  "  ^s 


COMBI  MFD  OUTLET  STREAM  (SULPHUR  SHIFT  DONE)  - 

STREAM  NUMBER  10 


TEMPERATURE  (DEG.  F)  =  450.0  PRESSURE  (PSIA)  =  17.84 

STREAM  ENTHALPY  ( BTU. )  =  -0.4662562E  08 


MOLE  NUMBERS  ARE  - 


CH4  - 

0.00000 

C02  - 

99.13208 

02 

0.0 

N2 

540. 27515 

H20  - 

263. 82446 

H2S  - 

67.12109 

S02  - 

38.31239 

S 

0.0 

S2 

0.00643 

S6 

1.49281 

S8 

3. 45535 

COS  - 

0.84522 

CS  7  - 

0.00210 

H2 

6.03534 

CO 

2 . 64726 

S 

0.0 

-sly  sly  sly  sly  »,*y  sly  I*  sty  sly  sly  sty  -sly  sly  si 

y,s  y«s  y,s  y,s  y,s  y,s  ^s  y,s  yjs  yys  y,s  yjs  y^s 

y  sly  sly  sty  J*  sly  I*  sly  j*  sty  s*y  sly  sly  -sty  s*y  sly  sly  sly  sly  sty  s< 
'  -*|S  yjS  -(s  y,s  y,s  y,s  y^s  y,s  .*js  yjS  -y-  ^s  .  ,s  y,s  y,s  ^ 

ly  sty  sty  sly  «<*y  -ly  sty  -sty  sly  sty  sly  sly 

4  -v  ’V'  a-*  v*  -,c  '4  -«v*  v 't' 

STREAM  SULPHUR  DEW  PT.  (DEG.  F)  =  425.8 

STREAM . WATER . DEN  PT.  (DEG.  F)  = .  158. 8 


>Je#  >{c  ##35;  jJcjJc  j}c  if. ^«3}c3{c^t  if.  j{c:$c  jJc#  sfc  sis  sjt  jjc  ^cjJs#  &  sje^sjt  4*  #  £ 


F-  30 


CONVERTER  1 

EQUIPMENT  NUMBER  6 


**0  J,  4,  sA»  J,  J»  X  X 


V  2*C  V;  v'f  -J;  y-  ^  ^  »*'  >(;  -X  X  X  X  >•»  vV  -X*  X*  X  X  -X  X  X  X  X  X  X  X  X  X*  X  v<»  X 

i'  •"<  X^  ■*>'  i v  -X*  X  iv  ,|v  V  x  •'<'•  x^  ^  -v-  jy.  ^(n.  x,«.  >,-.  v  ^  x^  ■»(»  y.  ->j>-  x*  -o  x'* 


X  X  X  X  X  X  X  - 


EQUIPMENT  PROCESS  FEED 


TEMPER ATUR E  (DEG.  F)  =  450.0  PRESSURE  (PSIAI  =  17.84 

STREAM  ENTHALPY  { 8 T U . )  =  -0.4662562E  08 


MOLE  NUMBERS  ARE  - 


CH4  - 

0. 00000 

CO  2  - 

99.13208 

02 

0.0 

N2 

540.27515 

H20  - 

263.82446 

H2S  - 

67. 12109 

SO  2  - 

38.31239 

S 

0.0 

S2 

0.00643 

S6 

1.4928  1 

S8 

3.46535 

COS  - 

0.34522 

CS2  - 

0.00210 

H2 

6.03534 

CO 

2.64726 

S 

0.0 

x  x  x  x  x  x  J» 


's'  X*  V  -'<*■  - 


* : 


❖  :*:  sjc  #  #  ##3!:  #3*c  *c  *  sjtjjt  #  4:  £  £  sj;  #  j{<  s{c  #  sjc  # 


CONVERTER  BED 


(DESIGN) 


CROSSECTIGNAL  AREA  (SQ.FT)  =  161.60 

THICKNESS  (FT.)  =  3.00 

VOLUME  (CU.FT.)  -  484.79 

L I NE AR  G A S  VE LOG  I TY  {FT./ SEC. )  =  .  1.00 

MOLAL  FLOW  RATE  { MOL F /HR . SQ . F T . )  =  2.11 

AVERAGE  PARTTCLE  DIAMETER  (IN.)  = _ 0. 15 

PRESSURE  DROP  (PSI.)  =  0.451 


X  X  X  X  x  X  v*.  X  X  X  -X*  X  X  X  X  X  X  X  X  X  X  X  X  -J.  X  X  X  X  X  X  X  X  X  X  V'  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X 

■»J>  '<•*  X'  "A  *y*  ■'i'  -*('  'I'  -  (N  /,»  <»(«•  J'fx  "(V  y»  x'’  >|*  >jV  ^  Xv  »,»  ^  -y  Jfv  yx  y  #^x  y*  y  y,  y  <jv  >(X  J.X  ->jv  iy»  JjX  <>,«  >|X  ->J-X  >yX 


ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


#  ^  *  4:  Xs*r  **  ^3!c  *  ##  3*c  £  £  #£  ^  sjtjjt  jjc:*  £  #  ❖  *=4=  ❖  £  X  #  #  # 


FINAL  C ONV E RGE 0  T EMPERATURE  l S  609 . 6  DEG.  F 
PRESSURE (  P  S  I A .  ) =  17 .39  ( C R I  T  = 0 . l0E-03  ) 


X  X  X  X  X  X  X  X  X  xV  xV  X  X  »l/  X  xJ»-  X  X  X  x1/  X  X  >*✓  X  X*  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  x</  X  >•-  s1'  X  X  X  X  X  X»  X  X  X  X  X  X  X 
•v  'o*  'y-  Xs*  x'  x*  -*r  xv  '-*•  x*  X'  x~  -,*•  x-  x*  -x'-  v*  ^  x>  Sr-  x%  xv  x*  ^  4'  x**  xv  x"  x'  -r*  x^  xx  xv  x-*  x~  3j>  4'  X'  xv  x*  x'  -v*  x^  v  X'  x'  -v  x-  x->  x*-  -<*  x* 


'■  T 

.  ' 

. 

* 

. 

!  . 

♦'  . 

( . 
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CONVERTER  DEW  or)  I  NT  CHECK  - 


BEP  DEW  POINT  TEMPERATURE  BED 

TEMPER A T  UR E . T  FMPER ATURE  DIE  F  E  R  E  N  C  E  PRESSURE 


481.924  443.112  38.812  17.749 

5 1  7 .84  8 _ 459 . 903  56.94  5  17.65  9 

545.772  468.558  77.214  17.563 

577.696  478.800  98.896  17.473 

4 0  9 . 62  0 . 43  8  ..0  6 3  121.556  17.383 


^  y*  y.  -**■  ><•  <x<  a-  a  a  a  j,  a  a  a  > 


**  ************  *  **  *  **: 


•  y*-  A  A  A  A  -V  A  -4-  A 

■  t  v  v  v  4*  'V*'  'i*  v* 


. PERCENT  OF  TOTAL  INLET  SULPHUR 

OUT  A S  E L  E  M  E NT A L  SULPHUR  V . 77 .24 


PERCENT  OF  NON-EL EMFNTAL  INLET  SULPHUR 

OUT  AS  ELEMENTAL  SULPHUR  =  69.39 


:***********************  ********;l}c*jffj!c3{e,{si{c!#e,{:3£,}cjj6,|5463{t,jt:<c ** **** *  *  * : 


CONVERTER  c  X  T  T  STREAM  - 

stream  NUMBER  11 


TEMPER ATURE 

(  OEG . 

E)  =  609.6 

PRESSURE  { P  S  I  A  )  =  17.39 

STREAM 

ENTHALPY 

{ BTU. ) 

=  -0 . 

46625 70E 

08 

MOLE 

NUMBERS 

ARE  - 

CH4 

— 

0. 00000 

C02 

102.61395 

02 

— 

0.0 

N2 

— 

540.27515 

M2  0 

— 

315. 2  32  47 

H2S 

- 

21.69176 

S02 

— 

10.338  33 

S 

- 

0.0 

S2 

- 

0.70416 

S6 

— 

8.26060 

S3 

- 

7.  53322 

COS 

- 

0.00757 

CS2 

- 

0. 00000 

H2 

- 

0.00564 

CO 

— 

0.00006 

S 

— 

0.0 

******** 

*  *  *  * 

***** 

********* 

******* 

*  ************** 

************ 

r  ’  r .  . 

^ f  .  A 

. 

. 

\  . 

,  • 

.  r  r  r 

f  > .  r  ' 

'  !  1  f  j  '  ! 

-  ■  v 

f  .  ■  '  T  ' 

' 


r  f 

. 


E-  3? 


CQNOLNSFR  3 


EQUIPMENT  NUMBER  7 

X  X  ^  ^  vV  "X  '*»  X  ^  X  J/  ^  X  X  J<  X  X  \>/  ><»■  xl»  X  a.  X  X  X  X  X 

'i'  •'/'  O'  *i»  O'  *(»  'X  ■*('  o'  -O'  ■'O'  "a  o*  /■  S  »,»  /•(S  ^  /,<•  /(*  «■,-»  O'  O'  ^ 

X  *X  X  J/  X  X  X  X  X  X  X  X  -X  X  X  X  X  X  X  vU 

O'  O'  O'  O'  O'  O'  O'  T  O'  O'  O'  O'  Y  O'  O'  O'  O'  O'  O'  v 

EQUIPMENT  PROCESS  FEED 

TEMPERATURE  (DEG.  F)  =  609.6  PRESSURE  (PSIA)  =  17.39 

STREAM  ENTHALPY  (B^U.)  =  -0.4662570E  08 

MOLE  NUMBERS  ARE  - 

CH4  -  0.00000  C02 

102.61899 

02  -  0.0  N2 

H20  -  315.28247  H2S 

SO 2  -  10.83838  S 

540.27515 

21.69176 

0.0 

82  -  0.30416  S  6 

S8  -  7.53322  COS 

CS2  -  0.00000  H  2 

8 . 26 06  C 
0.00757 
0.00564 

CO  -  0.00006  S 

o 

. 

o 

1 

X  X  X  X  X  X  Jr  X  X  Jr  X  X  X  X  X  Jr  X  X  X  x 

O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  'j'  o'  "l' 

CONDENSER  DESIGN 

X  X  X  X  X  X  X  X  X  X  X  X  X  J.  X  X  X  X  X  X  X  X  X  X  X  -J/  X  X  X  X  X  X  X  X  X  X  X  X  X 

-v*  O'  O'  o  'r  A'  "r  o'  o'  o'  o'  o  o'  'i~  o'  o'  ox  -fv  O'  o'  o'  o'  o'  O'  v  -o'  o'  o'  o'  'r  ^  o'  -7  o'  0-  '/»  o' 

X  -X  J'  X  X  X  X  Jr  X  X  X  X  X  X  J'  X  X  X  X  x 

Or-  O'  -O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  T  O'  O'  O'  O'  O' 

TUBE  LENGTH  (ET.)  = 

TUBE  DIAMETER  (IN.)  ■= 

11.9 

1 . 000 

NUMBER  OF  TUBES  = 

386 

MAXIMUM  FLOW  RATE  ( L8 / SQ  .  F T . SEC )  = 

4.00 

OUTLET  GAS  TEMPERATURE  (OFG.F)  = 

U  { OVERALL )  { BTU/HR. SQ.FT.  DEG. E)  = 

347.5 

13.99 

X  ■»* '  X  X  X  X  X  X  X  X  X  X  ■X'  X  X  X  -X  X  X  X  X  X  -J/  X  X  X  X  X  X  X  X  X  X  X 

O'  O'  'i'  O'  O'  O'  O'  O'  '1'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O' -O'  O'  O'  O'  O'  O'  O'  O'  'r'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O' 

X  -X  -X  X  X  X  X  X  X  X  X  X  X  -J»  X  X  X  X  Jr-  X 

O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O' 

EQUIP.  HEAT  DU TV  (BTU/HR)  IS 

0 . 2750571 E  07 

STEAM  TEMP.  ( DEG*  F . )  = 

PRFSS.  (PSIA)  = 

281.1 

50.000 

LATENT  HEAT  ( BTU/LB )  = 

L.H.  CORRECTION  = 

PRODUCTION  (LB /HR)  = 

924. 7 

0.0 

0 . 29 74496 E  04 

X  X  X  X  X  X  X*  Jr  X  Jc  X  X  X  X  »<r  X  X*  X  X  X  X  X  X  X  X  X  X  X  X  X  X  -X  X  X  -X  -Jr  X  X 

r,»  O'  »(.  ^  »s'  •(*  -  - '  -  '  »,»  O'  o'  o'  o'  v  o'  v  o'  o'  ■>'  -o'  o'  o'  o'  O'  o'  o'  'i'  o'  o'  o'  o'  o'  o'  o'  o' 

£  if.  #  #  *  #  #  #  :$c  # 

( 

'  ' .  -  =  ;  . 1  ■  >  *■ 


1 

■  . 

, 

■  '  ■  , 

' '  » 

'  . 

.  T 

; 

♦ 

( ? 

- 

. 

.  T  .  '  .  »>U'T 
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CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  94.54,  PERCENT  RECOVERY  =  47.01 


SULPHUR  FOG  -  5?. 49  MOLES,  OR  1679. 8  LBS. 

S U L P '  IU R  LIQUID  - . 5 F.  92 MOLE S ,  OR 1 661. 4  LB  S . 

(STREAM  NO.  13  ,  TEMPERATURE  =  291.5  DFG.F.) 


O/  >lf  sir  •.*»  vV  X 

*(•*  ^  »»(-.  'j»  - 


SPECIFIED  MAXIMUM  A I  EQUABLE  FOG  FORMATION, 
(  L B 5  .  "sTTr  0 . LB. . MOLES . INERT S  ) . = . 13 . 00 . 


FXTSTENCF  OF  DE-MISTER  PADS  IS  IMPLIED 


REVISED  SULPHUR  OUTLET 


PERCFNT  CONDENSATION  =  94.54,  PERCENT  RECOVERY  =  90.90 


SULPHUR  FOG  -  4.02  MOLES,  OP  128.8  LBS. 

SULPHUR  LIQUID  -  100.39  MOLES,  OR  3212.4  LBS. 

(STREAM  NO.  13  ,  TEMPERATURE  =  318.9  DFG.F.) 


V'  X-  >!»  J. 

Jr>  'r'  't'  -*r  '>'■ 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  12 


TEMPERATURE  (DEG.  F)  =  347.5  PRESSURE  (PSIA)  =  17.25 

. STREAM  ENTHALPY . (3UJ.)  = _ -0.4963032F  08 . 


MOLE  NUMBERS  ARE  - 


CH4 

0.00000 

C02  - 

102. 61899 

02 

C  .0 

N2 

540.2751 5 

H20 

315.28247 

H2S  - 

21.69176 

SO  2 

10.83838 

S 

0.0 

S2 

0.00019 

S6 

0.  16033 

S3 

0.63233 

COS  - 

0.00757 

C  5  2 

0.00000 

H  2 

0.00564 

CO 

0.00006 

S 

4.02480 

■J/  ■**■»  xO  xV 

^.  V.  *yx  '(X 

•  x*.  ></  x1'  x'»  >0  X  ,1/  »•/  xV  A  x***  ;Y  x*'  -xV  >*»  ^  S 

*y  T*  iV  ”*»v  3v  4'  •*,*  -V  4*  -4**  -u'-  4'  4'  ”,k  4*  >**■  "<'■  4*  'I'  -t*  '<*•  >r-  -,*•  •'r*  ' 

*»»  X^'  xV  xV 

-v  -r*  *v*  O-*-  -4'  v 

#  3*5  j>c  ajs  >!«  3$:  #  *  :*c  # 

T  . 

. 

t  ' 

,  li  *  »  ! 

■  a  *  •  ; 

r  \ 


. 


, 


.  I  -  (  !  1 


r  -I n  .  •  ■  >  ;t-  ; 


- 

. 

♦ 


' 

. 


- 


- 
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_ ADIABATIC  STREAM  COMBINER _ 

EQUIPMENT  NUMBER  9 

*  *  *  *  *  *  ****  *  *  **  *  **  s(s  *  **  *  ***  *  **  *  *  ^e  sje  *  **  4:  *  **  ** 


COMBINE  STREAMS  12  AND  14 


*  *  *  *  *  5*  *  *  *  *  *  *  *  *  *  *  *  *  *  * *  *  *  *  *  *  *  *  *  ***  *  **  **  **  ❖  *  ***  *  ***  ***  ****  *  *  *** 


FIND  GIVEN  FEFD  STREAM  RESULTANT  TEMPERATURE 
ITER  AT  I  V  E . AOIABATK . TEMPER  A  TURF . CALCULA  T  I  ON 

*  *  *  *  *  *  **  *  *  *  *  ***  *  *  *  ************  *  **  *  ******  *  **********  ****  **  *  *  * 


FINAL  CONVERGED  TEMPERATURE  IS  425.0  DEG.  F 
PRESSURE  (PSIA.  ) . = . . . IT. 25 . ICR  IT . = 0. 10F-03 . ) 


*  **  ***  *  **  *  **  *  *  **  **  *  **  *  **  **  ***  #4;  *  *  *  *  *  *  £  *  ****  **  *  **  *  *  *  **  *  *  *  ** 


PREDICTED  STREAM  SPLIT  FOP.  TEMP.  OF  425.0000  IS  0.0305 
USF  STREAMS  RESULTING  FROM  THIS  PREDICTION 
FOR  PRFSFNT  EQUIPMENT  OUTLET . STREAM. 


******  **** ***********  ********************  *******  ********** ** 


COMB  I  MED 

OUTLET  STREAM  (SULPHUR  SHIFT 

DONE)  - 

STREAM  NUMBER 

1  5 

TEMPERATURE  (DEG 

.  E)  =  425.0 

PRESSURE 

(PSIA)  =  17.25 

STRFAM 

CNTHALPY  (BTU.)  = 

-0.5042186E  08 

MOLE  NUMBERS  ARE  - 

CH4  - 

0. 00000 

€02  - 

105. 39708 

02 

0.00000 

N2 

557.29297 

H20  - 

323. 75342 

H2S  - 

23.20567 

S02  - 

12. 13701 

S 

0.0 

S? 

0.00268 

S6 

0.65444 

SB 

1 .51649 

COS  - 

0.03800 

CS2  - 

0.00009 

H2 

0.63525 

CO 

0.42406 

S 

0.0 

*  *************  ***** **************** 

********* 

**************** 

STREAM  SULPHUR  DEW  PT.  (DEG.  F) ■=  386.5 

STREAM  WATER  DEW  PT.  (DEG.  F)  = _ 165.9 


*.  *  ***  *  ********  *  5;;  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


- 


•  ’ 


( 


r  I 


. 
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CQNVERTFR  2 

EQUIPMENT  NUMBER  10 


r'Jr-  -y-  'j'- 


* 


<i**  sty  -V  ^ 


.V  ^  *Aj  •A'  J/  O/  Jj»  J»  V»-  ^  Jr  Jy  str  Jy  Jy  Jy  J.  -Jy  Jy  J, 


EQUIPMENT  PROCESS  EFED 


TEMPERATURE  (DEG.  E)  =  425.0  PRESSURE  (PSIA)  =  17.25 

STREAM  ENTHALPY  (BTU.)  =  -0.5042186F  03 


MOLE  NUMBERS  ARE  - 


CM  4  - 

0. 00000 

C  02  - 

105.39708 

02 

0.00000 

N2 

557.29297 

H20  - 

323. 75342 

H2S  - 

23.20567 

S02  - 

12.13701 

S 

0.0 

$2 

0.00268 

S6 

0.65444 

SB 

1. 51649 

COS  - 

0. 03800 

CS2  - 

0.00009 

H2 

0.63529 

CO 

0.42406 

S 

o 

• 

o 

Jy  Jy  Jy  sty  Jy  Jy  sly  sly  Jy  Jy  sty  sty  sj 

v  rr-  -v*  'sv  t  -v*  v  3*>  ^  -v»  *»>•  ; 

ly  sty  sly  Jy  sty  sly  Jy  Jy  Jy  sty  sly  Jy  Jy  sty  sty 

I"  y/s  y,s  y,s  ,-,s  y,s  ',s  X,s  y,s  ,f»  y^s  yfs  y,s  y^s  y(s 

sty  Jy  sty  Jy  Jy  sly  Jy  Jy  sty  sly  sty  sty  Jy  sty  sty  sly  Jy  Jy  sty  sty 

y,s  yys  y,s  y,s  y(s  y/s.  -y  s  yjs  y,x  yys  yjV  -ys  y,-s  A^S  y*  -ys  yyv  yt  y*s  yys 

sty  Jy  Jy  Jy  Jy  sty  sty  Jy  Jy  Jy  sty  sty 
y,x  y,x  y4s  y/x  y,s  -*X  y,x  y,x  Xs  yys  y,s 

CONVERTER  BED 


( DESI GN) 


CROSSECT IONAL  AREA  (SQ.FT)  =  163. 04 

THICKNESS  (FT.)  =  3.00 

VOLUME . (CU.FT.  )  =  __  489.  13 

L T  NF  AF  0 AS  VE L  0C  I TY  (FT./ SEC .)  =  . . . F.  0 0 

M0LAL  FLOW  RATE  ( MOLF/HR . SQ.FT. )  =  2.10 

AVERAGE  PARTICLE  DIAMETER  (IN.)  = _ 0.  15 

PRESSURE  DROP  (PSI.)  =  0.383 


J'  ^  Y'  "4  Y{  ■'*{'  sly  >4  Jf  «A«  <A>  Jy  Jy  J»  Jy  J.  Jy  Jo  jy  Jy  %<y  Jy  A-  Jy  sty  Jy  Jy  Jy  Jy  Jy  sty  Jy  sly  Jy  Jy  sty  >ly  -Jy  sty  sly  sty  Jy  Jy  JU  Jy  sty  Jy  sty  Jy  Jy 

■"  y,s  y(s  y,s.  y,s  -  s  -,s  y,s  yfs  'i'  ■*!*•  •')'  y.'  ')S  yfs  ',s  y,s  y^s  ^s  >,s  yys  y/s  yjX  ,(s  y,x  y,s  y,s  y,s  -y,s  y,x  -,v  y(s  y,s  y,s  ^s  "fs  -ys  y,s  y,s  y,s  ,js  y,s  -ys,  yjs  y,--  -VS  7,x  y(s  y,s  y,s 


ITERATIVE  ADIABATIC  TEMPFRATURF  CALCULATION 


J-"  sly  sty  Jy  Jy  Jy  sty  sty  Jy  sty  sty  Jy  Jy  sly  Jy  S*y  s»y  sly  Jy  sty  sty  Jy  sty  Jy  sty  sty  sty  sly  Jy  sty  -sty  sty  sty  Jy  S»y  sty  sty  Jy  Jy  sty  Jy  sly  sty  Jy  Jy  Jy  sty  Jy  sty  sty  Jy  sty  -Jy  sty  Jy  Jy  sty  sty  Jy  sly 

y,s  y,s  y,s  yjs  y,s  y,s  -,*s  ';•*  V  y  y>s  y,s  y,s  yjs  y,s  yys  y,s  ^s  -*/x  '/s  yys  y,s  —,s  -  -  »,s  y,s  y,s  yys  -jS  y;V  y^s  y(s  ^s  y,s  y,s  y,s  yjs  y,s  «ys  yjv  yj»  -vs  yys  y/s  y,s  ^s  y^x  yj*-  y,*-  y,s  y,s  y^s 


FINAL  CONVERGED  TEMPERATURE  IS  473.0  DEG.  F 
PRESS UR E  ( PSlA . T  = .  1 6  . 86 .  ( CRT  T . -  0. ) OF -03  ) 


rff  j}t  3j:  3{t  &  sj:  :$c  %  #  s}c  ■&  #  s’:  If.  ■if.  &  /t  3{c  s}c  ’fc  ■#  4  ❖  s'  &  #  &  #  #  #  ❖  #  ❖  ❖  ❖  #  ❖  #  4  sic  #  ❖  ❖  ❖  4  #  Jjt  ❖  #  s'  £  $  #  ❖  &  ❖  # 
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• 

* 
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CONVERTER  DEN  POINT  CHFCK  - 


BED 

TEMPERATURE 


DEW  POINT 
TEMPERATURE 


TEMPERATURE 
D I FFERENCE 


BED 

PRESSURE 


434.596  397.984  36.612  17.170 
444.  1  Q2 _ 40  7. 3  63 _ 36.830 _ 17.09  3 

453.789  415.332  38.457  17.017 
463.385  422.298  41.087  16.940 
472.981  428.506  44.475  16.863 


.V  J.  sV  X  v*.  -A>  -.O 

r j  ■  ^  ^  *■  .  ^  v 


>  O/  -*0  Jr  Jr  Jr  -.1*  -Jr  J»  J/ 

■  V  -it'  -r»  y*  -u*  4-  -j*  -r  -r*  -,fv  v  v 


PERCENT  OF  TOTAL  INERT  SULPHUR  ... 
OUT  AS  ELEMENTAL  SULPHUR  =  78.61 


PERCENT  OF  NON-E L EMENT AL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  68.89 


Jr  *lr  Jr  Jr  > 


CONVERTER  FXIT  STREAM  - 

STREAM  NUMBER  16 


TEMPERATURE  (DEC.  F)  =  473.0  PRESSURE (PSIA)  =  16.86 

STR E A M  E NTH ALP Y  { B T U . )  = . -0.5 042203E0 8 

mole  NUMBERS  ARE  - 


CH4  - 
02 

0. 00000 
0.00000 

CD2  - 
N2 

105.85832 

557.29297 

H20  - 

SO  2  - 

S2 

340. 24756 
3.65896 
0.01233 

H2S  - 
S 

S6 

7.34552 

0.0 

1 .88656 

SB 

3.63693 

cos  - 

0.00086 

C  S  2  - 

0.00000 

H2 

0.00073 

CO 

0.00000 

S 

0.0 

•  v  3'  v  ‘V*’  -%*■  -v  -v*  *>v 


.r  [ 

, 

. '  l 

• 

. 

* 

. 
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• 
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_ _ _ CONDENSER  3 _ 

EQUIPMENT  NUMBER  Fj 

***»**»*»  *  *  *  *  *****  **  * *  ************************************** 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  473.0  PRESSURE  (PSIA)  -  16.36 

STREAM  ENTHALPY  (BTIJ.)  =  -0.  5042203 E  03 


MOLE  NUMBERS 

ARE  - 

CM  4  - 

0. 00000 

C02  - 

105.85832 

02 

0. 00000 

N2 

557.29297 

H20  - 

3  40.  24756 

H2S  - 

7.34552 

S02  - 

3 . 65896 

S 

0.0 

S2 

0.01233 

S6 

1.88656 

S  8 

3.63693 

COS  - 

0.00086 

CSP  - 

0. 00000 

H2 

0.00073 

CO 

0.00000 

S 

0 

• 

O 

CONDENSER  RESIGN 


*  *  *  if  *  *  *  *  *  *  if  if  if  if  *  if  *<  s{e  *  %  if  *  £  '4c  *  *  *  $  *  %  *  *  Jc  if  if  ij<  *  #  if  ^  *  #  *  if  4c  £  *  *  £  *  £  *  *  #  *  *  *  *  *  £ 


TUBE  LENGTH  { FT . )  -  13.3 

TUBE  DIAMETER  (IN.)  -  1.000 

NUMBER  OF  TUBES  =  ^59 

MAXIMUM  FLOW  RATE  { LB/SQ .FT  .SEC )  =  4.00 

OUTLET  GAS  TEMPERATURE  (DEG. F  ) =  308.9 

U  (OVERALL)  ( BTU/HR .SQ.FT. DEG. F)  =  14.39 


#  if  if  *  ififif  **  %  *  #  *  5$t3«c  #  J^C  *  ##  #  $  ££  *  .#  £  3}c  if  #jj£#  **  sjs  *  * 


^  01 )  I  P  .  HEAT  DUTY  (  8  T  U  /  H  R  )  IS 


0.  152 529  IE  07 


STEAM  TEMP.  ( DEG»  F. )  - 
PRESS.  (PSIA)  = 

L At ENT  HEAT  TbTuTlB) 
L.H.  CORRECTION  = 
PRODUCTION  (LB /HR)  = 


281.1 

_  50.000 

924.7 

0.0 

0. 164946 6 F  04 


if  if  if  -if  -if  if  *  if  if  if  *  *  if  if  Jjc  if  $  *  *  if  if  if  if  if  if  if  #  ff  Jc  *  if  if  *  if  ;v  if  if  if  if  if  if  if  if  if  if  if  $:  if  if  if  *  ififififz 
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.  r  J 


f  .  ■ 
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.  ,  \  •  i  ’ 
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CALCULATED  SULPHUR.  OUTLET 


PERCENT  CONDENSATION  =  94.66,  PERCENT  RECOVERY  =  37.06 

SULPHUR  FOG  -  23.29  MOLES,  OR  745.3  LRS. 

S  UL  P  HU  P L  I  Q !  J  T  D  -  14. 99  MOLES, OR . 479. 6 LBS. 

(STREAM  NO.  13  ,  TEMPERATURE  =  285.3  DEG.F . ) 


:  £  *  i-  31-  ^  ^  afc  >;t  ;{:  #  %.  -ft.  •%.  a{t  >;s  j*c  #  j}c  If.  if.  if  s’;  if  if  if  i< 


SPEC  T  E I  ED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 

(LBS.  S/100  LB.  M 0  L F  S . I  NERTS ) . = . 4 . 00 . 

EXISTENCE  OF  COALESCER  IS  IMPLIED 


_ REVISED  SULPHUR  OUTLET _ _ 

PERCENT  CONDENSATION  =  94.66,  PERCENT  RECOVERY  =  91.52 


SULPHUR  FOG  -  1.27  MOLES,  OR  40.6  LBS. 

SULPHUR  LIQUID  -  37.01  MOLES,  OR  1184.3  LRS. 

(STREAM  NO.  18  ,  TEMPERATURE  =  299.4  DFG.F.) 


—<>■  -»V  »>.  J.  X*.  J/  A»  ><. 


CONDENSER  GASFQUS  EXIT  STREAM 
STREAM  NUMBER  17 


TEMPERATURE  (DEG 
STREAM 

.  F)  =  303.9 

ENTHALPY  (BTU.) 

PRESSURE  CPSIA)  =  16.70 

=  -0.5203296E  08 

MOLF  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C02 

- 

105.85832 

02 

0.00000 

N2 

— 

557.29297 

H20  - 

340. 24756 

H2S 

- 

7.34552 

SO  2  - 

3.65896 

$ 

- 

0.0 

S2 

0.00004 

S6 

- 

0.05018 

SB 

0.23244 

CDS 

— 

0.00086 

CS?  - 

0.00000 

H2 

- 

0. 00073 

CO 

0.00000 

S 

— 

1 .26801 

*.v  J.  o.  J.  >,v  '**’  ^  J' 

Af.  rf,*  ')V  '|V 

J.  *.*»  J,.  ><.  >V  J#  s*»  -JU  J.  J.  J.  A  Y.  A  A 

•<,»  /,»  -*,v  .,<•  *,»  v  V  V  'i*  -*(v  A'  i*  A* 

A  A  A  A  A  A  A  » 

rt,\  «y.  .p-  . 

A  A  A  A  A  A  A  «JU  A  A  A  A  A  A  v‘< 

•,v  >,-s  ■»,>  /y> 

. '  ••  -  ■  ■ 

.  "If. 

. 

•  !l 

.  c  J  ■  .  T,  - 

i  . 

, 

, 


. 

■  f 

.  '  T  <  1  ,  '  . 
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‘ 

'  '  <•  .  ' 
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— 
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_ _ _ STREAM  COMBINER  /  DIVIDER 

EQUIPMENT  NUMBER  14 

»»»»»■»  it****#*#-***###*#'*##**#*########*##*################### 


CD M3  INF  STREAMS  9  £  13  £  13 


'!'  sje  ^  #  5^  £  **  ❖  #  5jc  ££$$3:$:$$:$$:$$  #  %  $  £:$3§c#  *  ##  :*£  #  £  #  ;J: 


EQUIPMENT  PROCESS  FEFQ 


TEMPERATURE  (DEG.  F) 


322 . 6 


PRESSURE  (PS  I  A)  =  16.70 


STREAM  ENTHALPY  ( BTU . )  =  0.6868596F  06 


MOLE  NUMBERS  ARE  - 


CH4  -  0.0  CQ2  ~  0.0 

02  0±0_ M2  0^0 


H20  - 

0.0 

H2S  - 

0.0 

SO  2  - 

0.0 

s 

0.0 

S2 

o.o 

S6 

0.0 

S8 

0.0 

COS  - 

0.0 

CS2  - 

0.0 

H2 

0.0 

CO 

0.  0 

S 

275.60474 

~  *  *  *  *  *  «  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  #  *  *  *  *  *  *  *  *  *  *  *  *  *  #  *  *  *  *  *  *  J{C  *  *  *  *  sjt  *  *  *  *  *  *  * 
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EXHAUST  GAS  INCINERATOR 

EQUIPMENT  NUMBER  12 


ijc  jj:  it  it  >)c  a  2jcj|t  it  it  *  i;  it  s;:^; i  jjs  i~  it  it  it  i)c  *  it  i  it  it  it  it  it  i,t  it  ^  it  it  it  it  it  it  it  y,<  j}t  it  if.  jjc  it  #  it  i,t  iti.it 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  {DEG.  F)  =  308.9  PRESSURE  ( P  S I A }  =  16.70 

STREAM  ENTHALPY  (BTU.)  =  -0.5203296E  08 


MOLE  NUMBERS  ARE  - 


CH4  -  0.00000  CO 2  -  105.85832 


02 

0.00000 

N2 

557.29297 

H20  - 

340. 24756 

H2S  - 

7.34552 

S02  - 

3 . 65896 

S 

0.0 

S  2 

0.00004 

S6 

0. 05018 

S3 

0.23244 

COS  - 

0.00086 

CS2  - 

0. 00000 

H2 

0.00073 

CO 

0. 00000 

S 

1.26801 

si.  si.  si.  si.  si.  -si.  -1.  si.  sj.  si.  si.  si.  >1.  si.  s*.  si.  s 
.  s  ..S  -»,S  .  s  ./S  .jS  *.  s  >js  .^s  ./S  .^S  ^S  .rs  .(S  ...  s  -s  . 

1.  si.  si.  s*.  si.  si.  si.  si.  si.  si.  si.  si.  si.  s 
,S  -.S  .,5  .,S  .jS  --f.  -(s  ',s  .,S  .,s  .,S  .,s  sfs  . 

i.  si.  si.  si.  si.  si.  si.  slf  si.  si.  si.  si.  si.  si.  si. 

,S  .fS  .,S  ^s  ^  ^S  /^S  *)»  -»fS  -JS-.JS  ^s 

si.  sV  si.  s*.  si.  si.  V'  si'  sA.  V.  si.  si.  si.  si.  si.  si. 

/V*  .JS  >,s  .-jX.  .|S  -_s  >JS  .JS  >(S  .|S  «^S  r^S  .,S  .»X 

COMBUSTION  AIR  - 

_ TEMPERATURE  {  DEG.  E)  = _ 80.0 

PRESSURE  (PSIA.)  =  15.00 

RELATIVE  HUMIDITY  {PERCENT)  =  55.00 


PATIO  {SPECIFIED/STOICHIOMETRIC)  AIR  ADDED  - 

FOR  COMBUSTION  OF  PROCESS  GAS  -  1.250 

FOR  COMBUSTION  OF  FUEL  GAS  -  1.000 


>1.  O.  v*.  si.  s*.  J.  si.  si.  S1.  st.  si.  s*.  si.  >1.  si.  -si.  >1.  si.  si.  si.  vl»  ■!/  si.  si.  <l(  -si.  si.  -s*.  I.  sV  si. 

.-V  .?S  .|.  .js  S  AjS  .  s  ./S  .,s  <^s  .,s  -|S  ^s  ..jS  .,  s  >(s  >js  .|S  .jS  .,S  »,S  .|V  .jS  .|S  .{s  .(S  ^,S  .jS  .|S  -(S  >,S  -*/S  r^S  .(S 


FUEL  AND  AIR  STREAM 
STREAM  NUMBER  19 


TEMPERATURE 

(DEG 

.  F)  =  81.7 

PRESSURE  (PSIA)  =  13.00 

STREAM 

ENTHALPY  {BTU.) 

=  -0 . 153559 3F 

07 

MOLE  NUMBERS 

ARE  - 

CH4  - 

27.10800 

CO  2  - 

0.0 

02 

72.27661 

N2 

271.89746 

H20  - 

6.49273 

H2S  - 

0.0 

SO?  - 

0.0 

S 

0.0 

S2 

0.0 

S6 

0.0 

S  8 

0.0 

COS  - 

0.0 

CS  2  - 

0.0 

H2 

0.0 

CO 

0.0  . 

S 

0.0 

s*.  s*.  si.  s*.  si.  si.  si.  si.  s |.  si.  si.  -si. 
.,s  .,s  .,s  .,s  .  ,s  ./V  -/x  .,s  /*,S  *  ^S  -.JV  -.JS 

it  it  sft  it  it  i,t  it  it  it  it  it  it  it  at  *  it 

it  3J:  it  if  it  s{£  ❖  if  if  ❖  ^  if  if  if 

si.  -si.  si.  si.  sV  si.  si.  si.  si.  si.  si.  si. 

■Y»  ><S  .|X  .|S  .JS  .jS.  .,s  Jjx  »jS  .JS  .JX  .,* 

' 
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INCINERATOR  EXHAUST  STREAM 


TEMPERATURE  (DEG 
STREAM 

.j  (  rvr:  an  iNurioc 

.  F)  =  1250.0 

ENTHALPY  { 8TU. )  = 

PRESSURE  { PS  I  A )  =  16.70 

-0 .53  56848E  OB 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.0 

€02  - 

132.96718 

02 

3.61202 

N2 

829. 19043 

H2G  - 

408.30200 

H2S  - 

0.0 

SO?  - 

14.43400 

S 

0.0 

S? 

0.0 

S6 

0.0 

SB 

0.0 

COS  - 

0.0 

CS?  - 

0.0 

H2 

0.00000 

CO 

0.00000 

S 

0.0 

****** * * *  * * * * *  * ************************************** ******* 
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- 
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SULPHUR  PI.  ANT 

STACK 

EQUIPMENT  NUMBER  13 

sir  sir  Or  Or  sir  sir  Or  Or  Or  s*r  sir  Or 
'|S  r,s  rts  rjs  r(s  r.s  rys  ',s  J,v  r,s  >,s  3.s 

Or  Or  Or  Or  - 

Or  Or  Or  s*r  Or  sir  Or  Or  sir  Or  Or  Or  Or  sir  Or  sir  sir  Jr 
r/s  r,s  r^s  r,s  i\  r^s  r,s  J,s  r,»  >,v  'jS  r^s  'js  r^s  >,s  -,s  r,s  r^S 

if  if  if  if  if  if  if  if  if  if  if  if  if  if  if 

EQUIPMENT  PROCESS  FEED 

TFMPER  A TURF 

(DEG 

.  F)  =  1250.0 

PRESSURE 

(PSIA)  =  16.70 

STREAM 

ENTHALPY  ( BTU. )  = 

-0.5356848E  08 

MOLE  NUMBERS 

ARE  - 

CH4  - 

o 

• 

o 

C02  - 

132.9671 8 

02 

3.61202 

N2 

829. 19043 

H20  - 

408. 30200 

H2S  - 

0.0 

S02  - 

14.43400 

S 

0.  0 

S2 

0.0 

S6 

0.0 

SB 

0.0 

CDS  - 

0.0 

C  S  2  - 

0.0 

H  2 

0.00000 

CO 

0.00000 

S 

0.0 

■  'v*<  v*/  sir  J»  s*r  ■»*» 

■  ^  >>  .'jH  ',-*  ■'jN  V  ^  « 


■  ')»  -V*  -Y* 


sir  «A>  vt/  sC  Or 

',s  '(>■  Y>  *:,s  '|»  ^i.  -  s  »•»  ,(s 


SULPHUR  PLANT  STACK 


DESIGN 


AMBIENT  TEMPERATURE  (OFG.F)  =  75.0 

EQUIVALENT  STACK  TEMPERATURE  (DEG.F)  =  _  _  _  _ 69.8 

T GTAL  G A S F 6 U S  STAC K  FLOW RATF  (C.F.S. AT  T  E Q I V )  =  “  "  ~ 131 .3 

POLLUTANT  (SOP)  FLOWRATE  (C.F.S.  AT  TFQIV)  =  1.365 

STACK  tUTL  FT  TPNOERATU-3F  (DFG.M  =  1175.0 


sir  -sir  *Jr  -A'  Or  s*r  Or  »(r  Or  Or  Or  Or  s»r  Or  Or  sir  Or  sir  sir  s*r  Or  Or  Or  Or  Or  Or  sir  Or  Or  sir  sir  Or  Or  -sir  sir  s*r  O'  sir  Or 

r^x  .r.s  r,s  r.s  r,s  ->  V  rjs  r,s  r,s  r,s  r,s  >rs  rjs  r(s  /ys  ^(s  r,s  -<S  rjs  'j\  rjS  -js  'f*  yv  r,s  /|s  ys  ,rjs  -,s  >|S  r,s  Jjs  rjs  rjs  r,s  r,»  r^s  r,» 


s’?  if  jJ;  *  #  jje  ife  if  s!<  if 


STACK  DIAMETER  (FT.  AT  TOP)  •=  1.45 

STACK  VELOCITY  (FT/SEC.  AT  TOP)  -  80.00 


ATMOSPHERIC  CONDITIONS 


STABLE  UNSTABLE 


STACK  HEIGHT  (FT.)  =  135.8  116.1 

MAX.  GROUND  CONCENTRATION  (PPM?  =  0.2000 _ 0.2000 

WIND  SPEFD  AT  MAX  . . (FT/S  FC  ) . = . 14 .67  . 14 .6  7 

DISTANCE  (SOURCE  TO  MAX.,  FT.)  =  4670.  2335. 

FFFECTIVE  STACK  HEIGHT  (FT.)  =  233.5  233.5 


sjc  if  if  if  if  -if  if  if  if  if  if  if  if  i|;  if  if  if  jjc  if  if  if  if  if  if  if  if  if  if  if  ' 


►  sir  sir  Or  Or 


f  * 


I  .  >  !• 


,  * 

i 


. 


■  '  '  1  .  V  :  ’  '  t 
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UHt\ALL  ri/UM!  r  4^)5  AINU  C!NtKbT  AA!  AiNH.h 

***************************** ****************** **** **** ***** 

ATOM  AND  TOTAL  MASS  BALANCES 

ATOM 

ATOM 

PERCENT 

TYPF 

TOTAL 

ERROR 

S 

0 .29004 IE  03 

0.00093 

0 

0 . 7  I0332E  03 

0.00055 

C 

0.132967E  03 

0. 00014 

H 

0.8  166  11E  0  3 

0.00087 

N 

0 . 1658  3SC  04 

0.00006 

TOTAL 

0 . 36Q833E  04 

0.00041 

*****************************  ********  ***  **************  ***  *** 

ENERGY  BALANCE 

{ ENTHALPY 

IS  RELATIVE  AND 

IN  BTU  .  ) 

ENTHALPY  IN  ■=  -0. 27455 5E  08 


ENTHALPY  OUT  =  -0. 5.38001  F  08 
DIFFERENCE  =  0.263445F  08 


DIFFERENCE  SHOULD  RE  TOTAL  DL  ANT  HEAT  LOAD 


«>V  Jr  4/  4^  4^  \t#  4/  4/  4»  4/  4/  4^  4/  4^  4«  sO  4V»  4/  4^  4--  -Jlt  <iL  J#  4-  4,  j.  j-  j-  . *  j,  j  »  »  a,  a  j.  . «  .  ,  < 

'  ■  <  <  •'  'V'  *v*  */*■  'i'  *rv-,V‘  -j'  *v  t*  -r  v*  '•>"  *v»  4'  <V*  -v  'r  T  ^  v*  -4*-  -t-  4-  4*  v  t  ^  ^  4'  >*v  5t?  5*s 


OVERALL  PLANT  SULPHUR  RECOVERY 


PERCFNT  OF  TOTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  95.0? 


*  *  *  *  *  if  if  *  *  *  **  ****************  *  ❖  ********  *  *  *******  *  *  *  *  ********* 
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EQUIPMENT  PARAMETER  SUMMARY 


S*f  *•;  5V  iV  **'  **'  'Y  Y*  Mf  'ft  ^  >A»  «A*  X*  X  X  *X  ^  -V  -.O  ^  cU  X  X  X  X  X  X  X  X  vV  X  X  X  X  X  X 

*V*  *V*  '1  i'1  ■*>*  Xs  r*  1'  **}'*  ■'('  ">’*  -<n*  'r-  X**  -V-  -  j  1  <*■  'Is  nr*  "ix  **f%  -■*$'•  ■"iv  'i4-  -*(■'  'i'  ■**■••  T|»  'o  'jv  *f»  ^  ^  ^  >'|'  'V*  ■><x  *-f*  x  '«■»  <v>  Jjs  --,>»  /,s  x,x  <-(v 


PARAMETER  NUMBERS  AND  PARAMETER  VALUES 
{  •*  ’  DEN  OT  E  S  P  A  R  AM  E  T  E  r"~’’ V  A  EIJe SPECIF  1C  A  T 1 0  N 1 

❖  ❖  5}c  Jjc  sjssjofc  5?!  ^IsJCJS?  jfc  3?C  j{e  #  ❖❖❖❖❖  ## 


equipment 

NUMBER  1 

COMBUSTION 

AIR 

.  ADDER 

l  = 

0. 200000E 

01 

X 

2 

0.4  5  000  OE 

02 

■J, 

3  = 

0. 750000E 

02 

X 

4 

= 

0. 185000E 

02 

X 

T 

5  = 

0. 100000E 

01 

X 

**r 

6 

= 

0. 333300E 

00 

X 

EQUIPMENT 

NUMBER  2 

COMBINER/DI  VI CFR 

1  = 

0. 305369E- 

-01 

9 

<_ 

0*5  COO  COE 

01 

•Ar 

-V 

EQUIPMENT 

NUMBER  8 

IN-L I NE 

BURNER 

1  = 

0.  10 00  OOF 

0  2 

2 

0.2400  OOF 

02 

3  - 

0. 2244 76E 

01 

4 

= 

0. 139452E 

05 

X 

5  = 

0. 2010186 

04 

EQUIPMENT 

NUMBER  3 

WASTE  HEAT 

BOILER 

I  = 

0.  30 00 OOF. 

01 

«x- 

2 

— 

0.2  OOOOOE 

02 

3  = 

0. 1 000  OOF 

01 

* 

4 

- 

0. 890000E 

02 

5  = 

0.  7 A  00  00 E 

02 

6 

= 

0.600000E 

02 

* 

7  = 

0. 250000E 

01 

❖ 

8 

- 

0.2  OOOOOE 

01 

X 

9  = 

0. 167207E 

04 

10 

= 

0. 900392E 

03 

II  = 

0. 5994 16E 

03 

12 

0.2 8769 3E 

-02 

13  = 

0. 186333E 

00 

14 

= 

0.369396F 

00 

15  = 

0.  8 8 3 8 3 3 F 

00 

❖ 

16 

■= 

0.4811 73E 

05 

17  = 

0.0 

18 

.■= 

0.  0 

L9  = 

0. 1231 79E 

00 

20 

= 

0. 700000E 

01 

% 

2 1  = 

0.  0 

22 

-.= 

0.0 

23  = 

0.0 

24 

0.  0 

25  = 

0. 160000E 

04 

* 

26 

— 

0.201 01 9E 

04 

77  = 

0. 2 500  OOF 

03 

28 

— 

0. 185544E 

08 

,  '  - 
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EQUIPMENT  PARAMETER  SUMMARY 


>*'•  J/  J*  vV  -JU  »•*  J/  J/ 

-V-  'Vfc  T  9V  -1“  -7*  V  'I**  'V  •-<' 

;?e  jJ;  •%.  3jc^5  5^  igs ;;r.  sjj  %  ijc  &  j}r  s*c  *  J'  jJ;  j{e  jJj 

&  #  s'  :  if.  ^  #  sje  3?C  5^  $  % 

PAR  AMETER 

NUMBERS  AND  PARAMETER  VALUES 

( 

DENOTES 

PARAMETER  VALUE  SPECIFICATION) 

*  *  t~  #  *  #  #  #  #  ##  *  s':  #  ■%.  s':  *  s':  >>:  s<r  *  3^  s':  $.  £  ;!c  ^  s’:  sj: 

v*.  >•"  sV  <A>  ^  *>/  4  V"  >A<  «A*  X  J/  X  X  X 

T  V  'i*  V  *v*  'J'  V  '1'  O'"  '1'  V  A>*'  V  V  *!'»  '!'• 

EQUIPMENT 

NUMBER  5 

CONDENSER 

I  = 

0. IOOQOOE 

01  *  2  = 

0.  10733  IE  02 

3  - 
5  = 
7  = 

0. 100000E 
0.  5 0 0 0 0 0 E 
0.90 00 COE 

01  4  = 

02  6  = 

01  *  8  = 

0. 337000E  03 

0.4004 78 E  01 

0. 3 64891 F  03  * 

9  = 

1  I  = 

0.0 

0. 901139E 

10  = 

02  12  = 

0. 250000E  02  * 

0.258371E  07 

EQUIPMENT 

NUMBER  4 

ADIABATIC  COMBINER 

U)  F-* 

il  il 

0. 450000E 
0. 700000E 

07  -  2  = 

01  * 

0. 450000E  03 

EQUIPMENT 

NUMBER  6 

CONVERTER 

I  = 
3  - 
5  = 

0. 100000E 
0. 300000E 
0.45091 3E 

01  *  2  = 

01  4  = 

00  6  = 

Q.L61598E  03 

0.484794F  03 

0.1 OOOOOE  01 

7  = 

0. 21 1050E 

•  01  8  = 

0.1 50000E  00  * 

EQUIPMENT 

NUMBER  7 

CONDENSER 

I  = 

0. 20 0000 E 

01  *  2  = 

0.118616E  02 

3  = 

5  = 
7  = 

0.  1000  00 E 
0.  50 00 COE 
0.  130000E 

01  4  = 

02  6  = 

02  *  8  = 

0. 386000E  03 

0. 3 99 5 69 E  01 

0.347527E  03  * 

9  = 
li  = 

0.0 

0.  90  89  94c 

10  = 

02  12  - 

0. 1 3 0000 E  02  * 

0 . 275057E  07 

EQUIPMENT 

NUMBER  9 

ADIABATIC  COMBINER 

il  il 

r— »  r<*\ 

0.425000E 
0. 1400006 

03  *  2  = 

02  * 

0.425000E  03 
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EQUIPMENT  PARAMETER  SUMMARY 


*  *  **  *  *  *  ***  ***  ***  **  **  **  **  *  **  ❖❖  *  *  ****  *  *  *  **  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ** 


. PARAMETER . Nj JMBERS  AND  PARAMETER  VALUES 

i*i  n  E  NOTE  S  P  A  P  A  ME  TER V  ALU  E SPECIFIC  A  T!-0NT 


■*>*»  p''  '*#  *»V  ^  '*/  ^  “six  J/  J/1  jf  J/  »lx  \V  J/  ■A'  >t»  J/  >V  Jl>  J»  -sjly  Jj>  Jy  xly  Jy  Jy  <Jy  vU  \ly  v4y  Jy  Jy  sit-  Jy  viy  -l  -  J,  *  •_  -Ju 

.v  »,x  y/%  -,x  y.>»  y,\  xp-  ',*>  'iv  'jv  4'  -"j-  -v*  -r*  "i'  ->^  ■'r'  •*«•*  '<*  A'  ->'  *?■  3,v  x,v  y,C  >,»  y,'  v  'i-  Tjv  ^  y,C  5Jt  tr<  5jc  ?,C  )'  5JC  TjC 


EQUIPMENT  NUMBER  10 

CONVERTER 

1  =  0. 200000E 

01  * 

2  = 

0. 163043F 

03 

3  =  0. 300000E 

01 

4  = 

0.489129E 

03 

5  =  0.38  31  TOE 

00 

6  = 

0. 100000E 

01 

7  =  0. 20956TE 

01 

8  = 

0. 15Q000E 

00  * 

EQUIPMENT 

NUMBER  11 

CONDENSER 

1 

=  0. 300000E 

01  * 

2 

— 

0.  132723E 

02 

3 

=  0.100000E 

01 

4 

= 

0. 3  59000E 

03 

5 

=  0 . 5000  00 E 

02 

6 

— 

0. 399556E 

01 

7 

=  0.  18  00 00 E 

02  * 

8 

= 

0.30885 6 F 

03  * 

9 

=  0.0 

10 

— 

0. 400000E 

01  * 

11 

=  0.915210E 

02 

12 

= 

0. 152529E 

07 

EQUIPMENT 

NUMBER  14 

COMBINER/DIVIDER 

1 

=  0.0 

2 

c 

9 

o 

EQUIPMENT 

NUMBER  12 

INCINERATOR 

1  = 

3  - 

=  0.  12  5000E 

-  0. 800000E 

04 

92 

sly 

2  = 
4  = 

0. 5  500  COE 

0. 150000F 

02  * 

02  * 

5  = 

-  0.  125000E 

01 

* 

6  = 

0. 100000E 

01  * 

7  = 

=  0.190000E 

02 

Jy 

'C- 

EQUIPMENT 

NUMBER  13 

STACK 

1  - 

-  0.750000E 

02 

Jy 

2  = 

0.  U7500E 

04  * 

3  = 

=  0.135806E 

03 

4  = 

0. 144555F 

01 

5  - 

=  0.2 000 00E 

00 

❖ 

6  = 

0. 800000F 

02  * 

7  = 

0. 200000E 

02 

8  = 

0.1 00000F 

01 

sly  sly  sly  sly  sly  sly  4y  \ly  s*y  s*y  sly  sly  s*y  s*y  s*y  sly  sly  sly  sly  -J»  sly  xl 

y“i*s  yjs  y(s  y.s  y^x  y(s  ,'ys  y^s  y^s  y,s  -*i s  y,s  y(s  '|S  y^s  y^s  XjX  y,s  yjs  yj s  y^s  y, 

ly  sly  s'y  Jy  -sly  Jy  Jy  X*  y  Jy  sly 

!*•  3*  V  T  -T*  'l- 

**  ****** 

Jy  Jy  xly  s'y  sly  s*y  sly  sly  sly  -Jy  Jy  sly  Jy  -**x  .ly  sly  s*y  Jy  «,*x  Jy  Jy 
**  >js  ->|s  y|S  >|S  y,x  yjV  y,s  X^S  y(x  y^s  y^s  >jX  -'^x  yjs  xj*%  y,s  yyv  x^x  y,s  »(» 

- 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


X*  4/  *•»  •?/  "»*/■  O*  X  X  X  X  sir 

''O  ^  -O'  O'  O'  ^'"s  O'  O'  *(»  O'  O'  XjV  «v,x  *.,x  /-(X  7,x  -Jx  >,-x  .*,• 

y,C  £  .-ijc  3^  ■%  3^ 

1  X  X  X  X  X  X  X  X  X 
O'  *>'  -y*  'i'  O'  ■'if*  ^  '(* 

~  ajs  #  ajt  afcajsa}:  ;£3{£:{c  ijcaje  ajs  &  #  ajc# 

UNITS  ARE  - 

COMPOSITION  - 

MOLES /HR. 

FNTHAL°Y  -  MMRTU./HR. 

VOLUME  -  CU. 

FT. /MIN. 

(GAS  ONLY) 

TEMPER  AT UR E 

-  DEG.F. 

PRESSURE  -  P  S  I A . 

;|c  jje  ajt  af:  O  >!<  #  sjt.s!c 

=!;  *  jjc 

afcjJcjfcifcafcjfjafcsJjjfcaJcjJcjje#  £  #  #  aj:  # 

STREAM  NO. 

1 

2 

3 

4 

5 

CH4 

1 . 5677 

0.0 

1.5677 

1.5198 

0 .0479 

CO  2 

104. 2917 

0.  0 

104.291 7 

101 . 1069 

3. 1 847 

0? 

0.0 

148. 1414 

148.1414 

143.6176 

4.5238 

N2 

0.0 

557.2935 

557. 2935 

540.2754 

17.0180 

H20 

47.  0000 

7. 4202 

54.4202 

52. 7584 

1.6618 

H2S 

290.0413 

0.0 

290.0413 

281 . 1841 

8.8570 

SO? 

0.  0 

0.0 

0.0 

0.0 

0.0 

s 

0.0 

0.0 

0.0 

0.0 

0.0 

S  2 

0.0 

0.0 

0.0 

0.0 

0.0 

S6 

0.0 

0.  0 

0.0 

0.0 

0.0 

SB 

0.0 

0.0 

0.0 

0.0 

0.0 

COS 

0.0 

0.0 

0.0 

0.0 

0.0 

CS2 

0.  0 

0.0 

0.0 

0.0 

0.0 

H? 

0.0 

0.0 

0.0 

0.0 

0.0 

CO 

0.0 

0.0 

0.0 

0.0 

0.0 

s 

0.0 

0.  o 

0.0 

0.0 

0.0 

TOT.  MOLES 

442.900 

712.855 

1155.755 

1120.46 2 

35. 293 

tot.  lbs. 

15321.3 

20478. 3 

35799.6 

34706.4 

1093.2 

TOT.LB.S (M) 

0  .0 

0.0 

0.0 

0.0 

0.0 

TOT.LB.S(E) 

92  81 .3 

0.0 

9281.3 

8997.9 

283.4 

ENTHALPY 

-25.138 

-0.782 

-25.920 

-25.128 

-0.792 

VOLUME 

22  03. 1 

3684.5 

5950.0 

5763.3 

13  1.7 

TEMPER  ATURE 

70.00 

75.  00 

72.87 

72.87 

72.37 

S.  DEW  PT. 

0.0 

0.0 

0.0 

0.0 

0.0 

PRESSURE 

19.00 

18.50 

18.50 

13.50 

18.50 

X  xl.  X  X  J/  X  J/  X  X  X  X 

O'  O'  O'  O'  »,>  O*  JX  O'  O'  O' 

X  X  O/  J>  X  x*^  X  X  X 

O'  o'  O'  .|X  O'  r^v 

#  a{t  5*{  jfc  ^  ajc 

*.**  X  *»0  X  X  X  x*.  X  X 

O'  o'  ^  ^  V  *>'  ^ 

x  x  x  x  x  x  x  x  x  ■ 

O'  ^(*x  <y\  X  yyx  »*,'  . 

X  xlr  '*.>  X  »<»  X  X  X  X 

O'  O'  T  O'  O*  O'  O*  -X  O'  O' 

••  • 

_ 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


if  it  if  it  jJc  if  ^ 

xt.  J,  J/  x>*  x**  A  >0  4/  4/  4-- 

"1*  *jX  *,X  /jX  rf(X  AX  -*('X  -,X  (<,1, 

xl*  xl*  4*  4*  4/  4*  x<*  x**  -xl*  4* 

-Y*  *f*  S"  ^  V  -|X  *S‘  *fX.  *," 

if  if  if  ■>!;  if  3):  it  it  £  %  if 

#  if  if  if  4:  if  if 

UNITS  ARE  - 

COMPOSITION  - 

MOLES /HR. 

ENTHALPY  - 

MMBTU  ./ HR . 

VOLUME  -  CU. 

FT. /MIN. 

(GAS  ONLY) 

TEMPERATUR E 

-  DEG.E. 

PRESSURE  -  PSIA. 

xU  xU  O#  vC  xL  X^  vO  X.V 

»V'  •  X  ')*■  *)X  <>(X  /,X  >|\ 

jJ; 

xl*  >**  4*  xl*  4*  «4*  xl*  X**  xl*  xl** 
'j'  3'  *"*v  -r»  '1'  '(X  *,x  *,x  **x 

X**  4*  xl*  xi*  xl*  4/  xl*  xl*  -xl*  xl* 

*|X  -*}X  *,x  *^-x  */.  *,X  *,X  *,X  *(X  *,x 

if  if 

xl*  xl*  >4*  x**  I*  xl*  xl*  4*  xl*  xl* 

'r  '|X  *Y*  *4x  *,x  >,*.  *f»  *,*.  *|X  -*4x 

STREAM  NO. 

6 

7 

3 

9 

10 

CH4 

0.0000 

0.0000 

0.0000 

0.0 

0.0000 

C  02 

86.9204 

12.2117 

36.0204 

0.0 

99. 1 321 

02 

0.0 

0.  0 

0.0 

0.0 

0.0 

N2 

47  3.  72  46 

66. 5507 

473.7246 

0.0 

540. 2751 

H20 

231.3343 

3  2.4902 

231.3343 

0.0 

263 . 8245 

H2S 

58. 8436 

3.2775 

58.8436 

0.0 

67.1211 

S  02 

33.5897 

4.7227 

33.5897 

0.0 

38.3124 

S 

0.0 

0.0000 

0.0 

0.0 

0.0 

S  2 

0.  2508 

2.7150 

0.0003 

0.0 

0.0064 

S6 

10.2668 

2.1534 

0.2310 

0.0 

1.4928 

S8 

1 1 . 40  34 

0.3975 

0.8500 

0.0 

3.4653 

COS 

0. 7410 

0.1043 

0.7410 

0.0 

0.8452 

CS2 

0.0018 

0.0003 

0.0013 

0.0 

0.0021 

H2 

5.2941 

0. 7412 

5.2941 

0.0 

6.0353 

CO 

2.3220 

0.3252 

2.3220 

0.0 

2.6473 

S 

0.0 

0.0 

6.9743 

138.2070 

0.0 

TOT.  MOLES 

914.696 

1 30.690 

900.826 

138.207 

1023. 159 

TOT.  LBS. 

3  04  31.2 

4275. 1 

26008.6 

4422.6 

30283.7 

TOT. LB .SIM) 

4907.8 

689.0 

485.2 

4422.6 

1174.2 

TOT. LB. SIR) 

78  39 .5 

1108 . 3 

3466.9 

4422.6 

4575.2 

ENTHALDY 

-38.711 

-4.965 

-41.660 

0.356 

-46.626 

VOLUME 

9651.3 

1735.3 

7388 . 9 

9330.3 

TEMPERATURE 

599.42 

900.39 

364 . 89 

331.40 

450.00 

S.  DEW  PT. 

514.87 

551.37 

364.69 

0.0 

42  5 . 79 

PRESSURE 

17.95 

18.31 

17.84 

17.34 

17.84 

xl/  x*/'  xl*  x*<  »•»  x*^  ■»•*  J/  .O  xV 

^|X  >jX  '|X  >j\  r,X  •*,  X  /jX  /JX  *4  X 

4.  xlx  xl*  4*  xV  4*  xl*  4*  J*  4* 

rf(X  ».,x  *(-x  -*_x  *^x  *,»■  *yx  *,V  y,x  *,x 

if  it  it  ^  i:  if  if  it  if  *■ 

4*  >1*  4*  xl*  xl*  -xl*  xl*  >•*  xl*  xl* 

*/»  *yx  3'  't'  V  >,x  *,x  ^x  *,x 

X**  xl*  -xl*  4*  -xl*  xl*  4*  xl*  xl* 

*|X  *1 X  *jx  *jX  *y.  »|X  -*|X  *jX  *,x  - 

sjs  >)c  if 

\  ' 

!  1 

ft  « 

•  * 
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Of  ♦ 
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■  ’  <  .r 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


**>!;*  *  4: #  :£  %  %  *  s)t  £  ***  #  =fc  ##  #•#  #  #  # #  Vf  ##  #  jje  sjs  #  sfi  #  $  jjc  *  jjt  3{c  #  #  #  *  £  5}:  :{cjjc  aje  #  £  $  £  # 

UNITS  ARE  - 

COMPOSITION  - 

MOLES /HR. 

ENTHALPY  - 

MMBTU./HR. 

VOLUME  -  CU. 

FT. /MIN. 

I  GAS  ONLY) 

TEMPER  AT UR  E 

-  DEG.F. 

PRFSSURE  -  PS  I  A. 

■>',:  *:  %  it  *  ^  *  -*  it 

*  *  *  $  *  #  it  it  it  it  s*t 

#  #  $  *  *3{e  #  it  it  it  it  it  *  *  ###$:  f- 

$  *  ^  ^  if.  #  s’:  ^  ^  *  #  *  #  ^  %  * 

STREAM  NO. 

11 

12 

13 

14 

15 

CH4 

0.0000 

0.0000 

0.0 

0.0000 

0.0000 

C02 

102. 61 90 

102.6190 

0.0 

2.7781 

105.3971 

02 

0.0 

0.0 

0.0 

0.0000 

0.0000 

N  2 

540.2751 

540.2751 

0.0 

17.0180 

557.2930 

H20 

8  L  5 .  2  8  2  5 

315.2825 

0.0 

8.4710 

323.  7  534 

H2S 

21 . 6918 

21.6918 

0.0 

1.5139 

23.2057 

S02 

10.8384 

10. 8384 

0.0 

1 . 2986 

12. 1 370 

S 

0.0 

0.0 

0.0 

0.0001 

0.0 

S2 

0.3042 

0.0002 

0.0 

3.0069 

0.0027 

S6 

8.2606 

0.  1604 

0.0 

0.0000 

0.6544 

. 58 

7. 5332 

0.6328 

0.0 

0.0 

1 . 5  1 65 

COS 

0. 0076 

0.0076 

0.0 

0.0304 

0.0380 

C  S  2 

0. 0000 

0.0000 

0.0 

0.0001 

0.0001 

H2 

0.0056 

0.0056 

0.0 

0.62P6 

0.6353 

CO 

0.0001 

0.0001 

0.0 

0.4240 

0.4241 

S 

0.0 

4.0248 

100. 3872 

0.0 

0.0 

TOT.  MOLES 

1006.817 

995.537 

100.387 

35.171 

1025.056 

TOT.  LBS. 

30233 .7 

27071 . 3 

3212.4 

1093.2 

28164.4 

TOT. LB. SIM) 

3534.0  ' 

321.6 

3212.4 

192.4 

514.0 

TOT. LB. SI E) 

4575.2 

1362. 8 

3212.4 

283.4 

1646.2 

FNTHALPY 

-46.626 

-49.630 

0.247 

-0.792 

-50.422 

VOLUME 

11072.7 

8299 . 2 

839.7 

9403.4 

TEMPER  AT UR E 

609.62 

347. 53 

318.87 

2010.18 

425.00 

S.  DEW  PT. 

488.06 

347.41 

0.0 

611.26 

386.52 

PRESSURE 

1  7.39 

17.25 

17.25 

18.50 

17.25 

*  s[:*  *  ;!r^t  J;  *  ***  $  *  ##  =te 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


UNITS . ARE . - . . . CO M POSITION  -  MOLFS/HR. 

ENTHALPY  -  M  MB  ftJ.  7  HR.  VOLUME  -  CU . FT . 7MI  N .  (GAS  ONLY) 

TEMPERATURE  -  OEG.F.  PRESSURE  -  PSIA. 


*  **  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  ❖  $  *  #  *  *  *  ❖  *  *  *  *  *  *  *  *  *  «  *  *  *  $  *  *  *  *  *  *  *  *  $  $  *  *  $  *  *  *  *  * 


STREAM  NO. 

16 

17 

13 

19 

20 

CH4 

0.0000 

0.0000 

0.0 

27.  1080 

0.0 

CO  2 

10  5.35  33 

105. 85  83 

0.0 

0.0 

1 32. 9672 

02 

0. 0000 

0. 0000 

0.0 

72. 2766 

3.6120 

N2 

557.2930 

557.2930 

0.0 

271 . 8975 

829. 1904 

H20 

340.2476 

340.2476 

0.0 

6.4927 

408. 3020 

H2S 

7.3455 

7.3455 

0.0 

0.0 

0.0 

SOP 

3.6590 

3.65Q0 

0.0 

0.0 

14.4340 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S  2 

0.01 23 

0.0000 

0.0 

0.0 

0.0 

S6 

1.  38  66 

0.0502 

0.0 

0.0 

0.0 

S8 

3.6369 

0.2324 

0.  0 

0.0 

0.0 

COS 

0.0009 

0.0009 

0.0 

0.0 

0.0 

CS2 

0. 0000 

0.0000 

0.0 

0.0 

0.0 

H2 

0. 0007 

0.0007 

0.0 

0.0 

0.0000 

CO 

0.0000 

0.0000 

0.0 

0.0 

0. 0000 

S 

o.o 

1.2680 

37.0106 

0.0 

0.0 

TOT.  MOLFS 

10 1Q .940 

1015.955 

37.011 

377.775 

1388. 505 

TOT.  IBS. 

23164.4 

26980 . 1 

1184.3 

10476.6 

37456.7 

TOT.LB.S(M) 

1294.1 

109.7 

1184.3 

0.0 

0.0 

TOT. LB. S <E) 

1646.2 

461.9 

1184.3 

0.0 

461.9 

ENTHALPY 

-50.4  22 

-52.033 

0.084 

-1.536 

-53. 563 

VOLUME 

10038.1 

8351 .6 

'4  J.  J#  »*y  Jy  jy  Jy 

y(s  /jv  yf. 

2813.7 

25423.3 

TEMPERATURE 

472.93 

308 . 86 

299.42 

8  1. 74 

1250.00 

S.  DEW  PT. 

423. 50 

308.82 

0.0 

0.  0 

0.0 

PRESSURE 

16.36 

16.70 

16.70 

1  3.00 

16 . 70 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


:}c  2|;  if  ^  if  j"t  if  if  #  :Jc 

#  2|c  2}'  3j;  sjc  2);  *  3;;  jJcuJ; 

>!c  3$C  *  2^  3$C  3*;  if  if  if  if 

^  2>C  *  ij;  *  2^  #  #  *  #3*  j|<  -Jc  3{s  #  *  2^  £  if*t  if  if  if  >f  if  if  if 

UNITS  ARE  - 

COMPOSITION  - 

MOLES /HR. 

ENTHALPY  - 

MMBTU  ./HR. 

VOLUME  -  CU. 

FT. /MIN. 

I  GAS  ONLY) 

TEMPERATURE 

-  DEG. F . 

PRESSURE  -  PSIA. 

^  2;:  if  if  3)1  &  3*  3jc  3*c  sjc  ~'fif  if  ;[c^;  3;c  #  3^  2jc  #  3*;  if  J;  £ 

i--  t-  '!<  #  #  if  2:t  2!;  $  i;  if  if  if  if  iz  if  2|c  if  if  *  if  it  2;;  £  3:2 

STREAM  NO. 

21 

22 

30 

31 

32 

CH4 

0.0 

0.0 

0.0 

0.0 

0.0 

C02 

132.9672 

0.0 

0.0 

0.0 

0.0 

02 

3.61 20 

0.0 

0.0 

0.0 

0.0 

N2 

829. 1904 

0.0 

0.0 

0.0 

0.0 

H  20 

408. 3020 

0.  0 

1253. 8987 

1253. 8987 

155 . 2252 

H2S 

0.0 

0.0 

0.0 

0.0 

0.0 

SO  2 

14.4340 

0.0 

0.0 

0.0 

0.  0 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S  2 

0.0 

0.0 

0.0 

0.0 

0.0 

S6 

0.  0 

0.  0 

0.0 

0.0 

0.0 

S  8 

0.0 

0.0 

0.0 

0.  0 

0.0 

COS 

0.  0 

0.0 

0.0 

0.0 

0.0 

CS2 

0.  0 

0.  0 

0.0 

0.0 

0.0 

H2 

0.0000 

0.0 

0.0 

0.0 

0.  0 

CO 

0. 0000 

0.0 

0.0 

0.0 

0.0 

s 

0.0 

27  5.6047 

0.0 

0.0 

0.0 

TOT.  MOLES 

1388.505 

275.605 

1253.899 

1253.899 

155.225 

TOT.  LBS. 

37456.7 

8819.4 

22570. 2 

22570.2 

2794.1 

TOT. LB. SIM) 

0.0 

8819.4 

0.0 

0.0 

0.0 

TOT.LB.SIF) 

461.9 

8819.4 

0.0 

0.0 

0.0 

ENTHALPY 

-54 .487 

0.687 

if  if  3^  3)C  3}j  2jc  it  3jt 

4i-  X  4/  J»  4-»  s1.  sU 

*'<*•  ')’■  'l'  *1*  »j2l  <|V 

•A»  4.  4r  ■A'  4.  «4< 

>l»  •<(.  <)>•  >}*» 

VOLUME 

2  4303.0 

3j<  if  if  %’  i'  *  if 

if  if  if.  if  if  if  if  if 

❖  if  *  if  if  ijf  if 

4.  4^  4/  4*  -4.  4/  4/  4# 

-*jV  Y'  M  -*;»  .(V 

TEMPERATURE 

1  175.00 

322.59 

400. 99 

400.99 

231 .05 

S.  DEW  PT. 

0.0 

0.0 

0.0 

0.0 

0.0 

PRESSURE 

16.70 

16.70 

250.00 

250.00 

50.00 

3j;  if  *  if  if  it  2^  2^:  if  if  if  2^  2^  3;;  if  if  if 

>A/  A*  .l»  «•»  V>«  -J*  V*y  4* 

'V*  'Is  **1"  V  -v  -v 

2";  if  if  if  if  #  if  if  if  if  if  if  if  if  if  if  if  if . 

4^  4'  »*y  4/  »V  4*-  vO  4.  sV  4f 

Y  V^\ 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY • 


«U  vV  >1/  Jy  J<  s*  *  x*»  sl»  vi. 

-*f\  -#jA  X  -*,X  VfX  >1^  <\X  --(X  •  |X  ,rjX  ^x  ^x 

xi»  X  xl .  X  xC  X  X  x*y  J/ 

-,X  <-,X  3jx  -,x  -?(S  /■,•.  -,X  /,>  ^x 

x<y  X  >'»  X  X  x*'  X  X  xi>  X  X  X  X*  »</  X  x<r  xi»  X  X  xt*-  x><  -X  x*v  X  X  J*  Jy  -X-  X  X  X  X  X  X  X  X  X  J'  X 

*,x  -,x  -Jjx  ;*4v  ^  2.x.  l(y.  ^x  y |X  <vx  ^  '»■>  y,v  *y*-  oyx  -,x  y,x  -,x  Y1  «y  -iv  -v  'j'-  -v  '(*  -f'  3r*  x»“  'i'  •N'*  ■*<*  'l'* 

UNITS  ARE  - 

COMPOSITION  - 

MOLFS / HR . 

ENTHALPY  -  MMBTU./HR. 

VOLUME  -  CU. 

FT. /MIN.  (GAS  ONLY) 

TFMPER ATURE 

-  OE  G .  F  . 

PRESSURE  -  PSIA. 

xU  xl/  X*/  x<»  X*»  >#/  V/  x'»  4/  x'<  xtf  xlv  *•<•  X  X  X  X  x**' 

rf*,X  ^fX  ^jX  <*,X  ^*jX  >^X  yfX  yyX  _.fx  ^x  ,'^X  <x  -'(X  #t|*x  >^X  /^x  "(X  #|X  --,  X  /%x  x 

X  X  X  X  X  X  xX  X  X  X  X 

y(x  yjV  .px  Y'*  ^,x  ^x  -  \  -  jV 

X  X  X  x*y  X  X  X  X 

yy>  X  ^x  >^x  ^x  ^x  ^x 

X  X  X  xl»  X  X  X  x*y  «Ay  X 
y.x  yjx  y,x  -»|X  y,x  *,x  AjN  y^\  y,x  >jX 

XXX  X  XX  X  X  X 

y>  >|X  »(»  rjx  y,*  -y(x  /|X  y.x 

STREAM  NO. 

33 

34 

35 

36 

37 

CH4 

0.0 

0.0 

0.0 

0.0 

0.0 

C,  02 

0.0 

0.0 

0.0 

0.0 

0.0 

02 

0.  0 

0.0 

0.0 

0.0 

0.0 

N2 

0.0 

0.0 

0.0 

0.0 

0.0 

H20 

1 55.2252 

16  5.249  8 

165.2498 

91 . 6370 

91.6370 

H2S 

0.  0 

0.0 

0.0 

0.0 

0.0 

S02 

0.0 

0.0 

0.0 

0.0 

0. 0 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S2 

0.0 

0.  0 

0.0 

0.0 

0.0 

S6 

0.0 

0.0 

0.0 

0.0 

0.0 

SB 

0.0 

0.0 

0.0 

0.0 

0.0 

COS 

0.0 

0.0 

0.0 

0.0 

0.0 

CS2 

0.  0 

0.  0 

0.0 

0.0 

0.0 

H2 

0.0 

0.0 

0.0 

0.0 

0.0 

CO 

0.0 

0.0 

0.0 

0.0 

0.0 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

TOT.  MOLES 

155.225 

165.250 

165.250 

91.637 

91 . 637 

TOT.  LBS. 

2704. 1 

2974. 5 

2974.5 

1649.5 

1649.5 

TOT.LB.S(M) 

0  .0 

0.0 

0.0 

0.0 

C.O 

TOT.LB.S(E) 

0  .0 

0.0 

0.0 

0.0 

C.O 

ENTHALPY 

-xJl*  X<*  X  vO  X  X*^  X  xX 

>,X  y,x  *,x  y,x  '(X  y(x 

X  X  -X-  X  X  X  X-  X 
'1-  -■'■  4*  4'  'I-  *>* 

X  X  X  X  "X  X  xV  J/ 

.^x  >,  x  #y»  >|X  ^x  -y^v 

s';  ^  ^ 

X  x*/  X  X  X  X  s1'  •*» 

•V  V  ov  y*r*  ^  -v* 

VOLUME 

xtr  X  X  X  X  X  X 

y-fX  ->|X  »,x  «•-.».  ^X  yyx  y'jX 

-X*  X  X  X  X  X  X  "X 
',■*  ^  'f-  'iS  'C-  T*  V  •'f' 

■Jy  X  X  X  X  X  X 

.yjx  -*,x  ^x.  -y/x  y,-.  -,x  ^  -Y» 

X  x*y  X  X  "X  X  X  X 
'0  'i'  r  r  v  t  t 

X  sly  X  X  X  x  X  X 
'C'  -V  't~  -'f'  •*»*•  4* 

TEMPERATURE 

281 .05 

281.05 

281.05 

281.05 

231.05 

S.  DEW  PT. 

0.0 

0.0 

0.0 

0.0 

0.0 

PRC  SSURE 

5  0.00 

50.00 

50.00 

50.00 

5  0.00 

**  *  #  i'i'  ^  *  #  #  *  *  *  #  *  *  *  *  *  *  £  *  *  # 
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EXAMPLE  2. 


SPECIFICATIONS 


PLANT  FEED  ACID  GAS#  MOLES/HR. 

CH4  10,57 
C02  109.41 
H20  63,67 
H2S  965,65 


COMBUSTION  AIR  PERCENT  OF  STO I C I OMETR I C 

HYDROGEN  SULPHIDE  FEED 

REQUIREMENTS 

33.3 

SPECIFIED  TEMPERATURES  AND  PRESSURES 

DEG. F. 

PSIA. 

ACID  GAS  FEED 

110. 

18.4 

PRIMARY  COMBUSTION  AIR  (R.H.  =  5.72) 

191. 

20. 

INCINERATOR  FUEL  GAS  (METHANE) 

100. 

13. 

BOILER  BYPASS 

1200. 

BOILER  EXIT 

550. 

BOILER  STEAM 

313. 

PRIMARY  (BOILER)  EQUILIBRIUM  CUTOFF 

1800. 

NO.  1.  CONVERTER  INLET 

455. 

NO.  2.  CONVERTER  INLET 

400. 

14.5 

NO.  1  CONDENSER  EXIT 

375. 

NO.  2.  CONDENSER  INLET 

525. 

15.9 

NO.  2  CONDENSER  EXIT 

335. 

NO.  3  CONDENSER  EXIT 

265. 

FIRST  AND  SECOND  CONDENSER  STEAM 

78. 

THIRD  CONDENSER  STEAM 

33. 

INCINERATOR  PROCESS  EXIT 

1100. 

STACK  EXIT 

900. 

MISCELLANEOUS 


2  PASS  BOILER  24  FT.  LONG 

MAXIMUM  ALLOWABLE  PRESSURE  DROPS  IN  2ND  AND  3RD  BOILER 
PASSES  0*6  AND  1.2  PSIA  RESPECTIVELY. 

MIN.  FLAME  REACTION  RESIDENCE  TIME  0.6  SEC. 

AVERAGE  CATALYST  PARTICLE  SIZE  0.20  IN. 

MAXIMUM  ALLOWABLE  FOG  IN  1ST*  2ND*  AND  3RD  CONDENSERS 
5#  3*  AND  1  LB.(S)/100  MOLES  INERT  EXIT  GAS  RESPECTIVELY 


LEGEMD 


NUMBERS  DENOTE  STREAM  OR  EQUIPMENT  NUMBERS 


NUMBERS  IN  BRACKETS  DENOTE  EQUIPMENT  TYPES  - 


1-  WASTE  HEAT  BOILER 

2-  INLINE  BURNER 

3*  CATALYTIC  CONVERTER 

4.  SULPHUR  CONDENSER 

5.  ADIABATIC  COMBINER 


G*  COMBINER/DIVIDER 
7.  AIR  ADDER 
B-  INCINERATOR 

9-  EFFLUENT  STACK 

10-  BLACK  BOX 


FIG-  E-E  EQUIPMENT  MODULE  (PROCESS) 


FLOWSHEET  FOR  EXAMPLE  E- 


PROGR  AM  HAT  A  (CARO  TMAGF) 


C  EXAMPLE  2.  (DESIGN) 

♦PROGRAM  CONTROL  PARAMETERS# 

_ I  1  I  l  l  1  l  1  1  l  OOP  00 _ 

♦end* 

*F LOWS HE E T  DATA# 

1 0 1**2 0 I **3 1 2**4 2 3**5  2  4**6  3  4**7  4  5**8  5  6** 

9  6  7**10  7  0**11  7  8**12  8  9**13  9  10**14 10 0**1 5 10 l 1** 
16  11  12**17  12  0**18  3  0**19  0  11**40  4  2  1  -1** 

*ENr>* _ 

*  STREAM  SPECIFICATIONS* 

1  1  10.57  2  109.41  5  63.67  6  965.65  21  110.  22  18.4** 

9 _ 21 . 525  . . 22  15.9** . 

12  21  400.  22  14.5** 

19  1  20.  21  100.  22  13.** 

40 _ 1  19.** _ 

♦  END* 

♦EQUIPMENT  PARAMETER  SPECIFICATIONS* 

.1 1  rZ 1»3  4,4  5,  5  3,6  10 , 7  4,8  10, 9  3 , 1 0  4,  11  8,1 2  9** 

1  1  2.  2  5.72  3  191.  4  20.  6  0.33333**’ 

2  1  2.  2  24.  9  1200.  10  550.  12  .6  13  1.2  15  .6  19  .1 

_ 2  0  5  .  2  5  18  00.  27  313.  ♦♦ _ 

3  1  1.  5  78.  7  18.  8  375.  10  5.** 

4  1  455.  3  5.** 

5  .  11.  8.2  ** 

7  1  2. . 5 . 78  . . 7  10  .  8  335.  10  3  .”** . 

9  12.  8.2  *  * 

10  _ 1  3  .  5  33.  7  14.  8  26  5.  10  !.♦♦ _ 

11  1  1100.  7  19.** 

12  2  900.** 

»FND*  _ _ 

* M  0  L  E  C U  L  A  R  AND  T  HE  R  MO  D V  N  AM  I C  DATA***” 

»H»  l.,3.7  »C ’  12. ,14. 8  *0’  16. ,7.4  'S’  32. ,25.6 

’N*  14.  15.6  ** _ 

'  CH4  ’ 

+4. 249767 8E +00  -6 . 91 26562E-Q3  +3. 1602 134E-05  -2.97154326-08 
+  9.  5 1  0 3  58  06 -  1 2  -1.01866 32E+ 04  - 9 . 1 7 54  9 9  1 E - 0 1 

+ 1 .  1 7 9574 4 E +00  +1  .0 950 594 E - 0 2 -4.06  221 3  15-06  +7.  1 3  7028 l E- 10 
-4. 7490353E-14  - 9 . 85 5  66 27F +03  + 1 . 2505934E+01  ** 

_ 1  CO 2  1  ,  0.0135,  0.0000205 _ 

+  2.  170100 OE +  00  +1  .03781 1 5E-02  -  1 . 0*339 3 8E-05  +6 . 34 59 1 75E-09 
-1. 628070  IE-12  -4 . 8352602E+04  + 1 . 06643 8 8E+ 0 1 

+  4.41  2 9 2 6 6 E  +  0 0  +3 . 1 922896E-Q3  -  1.2978 23 OF- 06  +  2.  4L47446E-10 
-  1.6 74 29 8 6E -  14  -4. 8944043 E+04  -7 .28757696-01  ** 

*02  G  *  0.02,  0.00002 

+  3 . *  1  89  9466+00  -2 .5 167283E- 03  + 8 . 58 27 3 5 3E -06  -8. 2998716E-C9 

+2. 703218 OE -12  -1 . 0576706E+03  +3 . 9080704P+00 

+3. 5976129E+00  +7 . 8 1 456 03 E -0 4  -2 . 2386670F-07  +4 . 2 490 1 5 9E- 1 1 
-3. 346020 4F -15  - 1  . 1 9279 1  BE +0 3  +3 . 74926 59E+ 00  ** 
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PROGRAM  DAT  l\  (CAPO  IMAGE  ) 


fN2  ’  t  ’  G *  *  t  0.0175  ,0.0000195 
+3.6916143E+00  -1 .33 325 52E-03  +2. 6503100E-06  -9. 76 8834 1 F- 1 0 
-9.9  7  72234F-14  -1 .  06  28  3  36E+0  3  +2 . 28 74980E+ 00 
+  2. 85 4 576 IE +0  0  + 1 . 59 763 16E-03  -6. 2566254E-07  +1 . 13 1 584  9E-10 
-7.6897070E-15  -8 .90 1 7445 E+02  +6.3902879F+00 
. 1  H2  0 . * . '  G 1  ,  0.008,0. 0000  21 

+  4 .  1  5  6 5 0 1 6 E  +  0  0  -  1 . 7  2 4 4 3  34E-  03  +5.69 8 2 3 T 6 E  ‘ - 06" -4 75 930 044E^ 09 
+  1 . 4? 33654F-1 2  -3 .02 8S770E+04  -6 . 86 16246F-01 

+  2.6~707532E+QQ  +3.03171  L5E-03  -  8 . 5  35  15  70E-07  + 1  .  I  79085  3E- 1 0 
-6. 1973568F-1 5  -2 . 9883994E +04  +6 . 883839 1E+00  ** 

*  H2  S  '  '  G  *  ,  0.011  C. 000024 

±3. 91 63 074 E +00 . -3 .5138671E-04 . +4. 219 1312F- 06  -2.7453665E-09 

+  4 .  8 5 3 4 3 6 5 E - 1 3  -3.609 5 5 8 5 E  +  0 3  +2. 3 66 0 04 2 F +  0 0 
+  2. 7657149E +00  +4 .01319 14F-Q3  -  1 . 5044898E-06  +2 . 6807998 F- 10 
-1 .706768  IF - 1 4  -3 . 3  3598C8E+03  4-7 . 9327  1  86F  +  00  ** 

'SO  2  »  '~G'  .0115  . 000017 

+3. 22571 32 F+00  +5. 655 1207F-03  -2 . 4970208E-07  -4. 2206766E-09 
+  2.  1 3  +  2733E-1 2  -3 .69044  76F  +  Q4  +9.817 7036E  +  00 

+5. 1982451E+00  +2.05950 95 E - 03  -8. 6254450 E-07  + 1 . 6636523E-To’ 

-  1.  1847837E-14  -3 .7541457E  +  04  -8 . 305996 3E-01  ** 

_ '  S  '  *  G  * _ _ 

+  2 .913725 3E +  00  +3 . 129406  IE-04  -2. 6092508E-06  +3 . 1 3 8243 9E-09 

-1 . 1708Q88E-12  +3.2568272E+04  +3 . 568 1 1 54E+00 

±Z» 914 5  77 QE +00 . -6 .6619390E -04  +2.349  7584E-07  -5. 186852 OE-il 

+  3 . 2 7 0 9 9 3 2 E - 1  5  +3.26049  40 E  +  0 4  +3.7640 85  OF  +  0 6  "  ~  "* * 

* S2  '  *G» 

+  2. 6999349E+00  +6.2  T4c>549E-03  -9. 2870775F-06  +6.  53  93276F-C9 

-1.7802282F-1 2  +1  .4504935 E  +  04  +  I  . 0534222^  +  01 

+  4.  1896932E+00  +3 . 84697 04E-04  -  1 . 556 6633 E-07  +3 . 03 680 1 OE- 1 1 
-2. 1 795849E -15  +1.4188133E+04  +3.29303006+00  4  * 

' S6  »  •  G » 

+6. 08 92 42 9F +00  + 1 . 88 248 65E-02  -2 . 736 1 23 3E-0 5  + 1 . 96 1 798 3E-08 
-5.34 06 846 E  — 1 2  + 1  .  1 2643  70 E  +  04  +7 . 3202322F+00 

+  1 . 05  585 1 5E  +  01  + 1 .  1 5 409 1 1 E -0 3  -4.6699899E-0  7  +9 . 1  1 04030E-1 1 

-6. 53  37547E-1  5  4- 1 . 03  1  39  64E+ 04  -  1 . 4403344E  +  0 1  ** 

•SB  *  '  G  * 

+  7.783 896 BE  +0 0  +2.50 99 8 20 E- 02  - 3 .  71 4 8 3100-05 . +  ?. 61573101 -03 

-7. 12 09 12 8E -12  + 1 .01 14584E+04  +4. 762 1792E+00 

+  1 . 3742°?6F  +  01  +1 .5387882E-03  -6 . 2266532c-07  +  1 . 2 1 47204E- 10 

-8.  7183396E-1 5  +8 .8473760F  +  03  -2 . 4202 .589E  +  01  +  * 

•  S  L  ’ 

-6.  15  62  59  IE  4-0 1 . +  2 . 8  3  0  0  9  5  1  E  -  0  1  -  6 . 2  1 2  4  6  4  6  E  -  0  4  +5.7917986E-07 

-  1 . 955  0879E  — 10  4-4.4720883F+03  l”~.  7978686E  +  02  3.8716625 

0.  0.  0.  0.  -8 . 46325 3 3E  +02  -  1 . 7492768F  +  0 1  ** 

END  QP  ALL  DATA* 
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SULPHUR  PLANT  DESIGN  AND  SIMULA  FI  ON 


PROGRAM . CONTROL PARAMETERS 

END 

FLOWSHEET  DATA 

END  

STREAM  SPECIFICATIONS 
END 

EQUIPMENT . PARAMETER . SPECIE  IC AT  IONS 

END 

MOLECULAR  AND  THERMODYNAMIC  DATA 
END  OF  ALL  DATA 
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CALCULATION  SEQUENCE  OPTIMIZATION 


*********************  x******************#*#**^*#^^#****** 


. INITIAL  SEQUENCE  IS  - 

1  2  3  4  5  6  7  8  9  10  11  12 


. . . THE  OPTIMIZED  CALC  U  LA  J I  ON  SEQ1 JFNCF  IS  - 

1  2  3  4  5  6  7  8  9101112 


THE  FOLLOWING  STREAMS  MUST  BE  ASSUMED, 
40 


PPJMARY  REACTION  CUT-OFF  TEMPERATURF  (BOILER)  =  1800.  DEG.F 


• '  - 


! 


T 


.  -  1  '  ' 


- 


_ _ COMBUSTION  AIR  ADDER _ 

EQUIPMENT  NUMBER  1 

****** ***»  **  **  * *  **  ***  ***  ****  *  *****  **  **  **  *  *  **  *  *  **  ***  ****  *  *  *  ** 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  110.0  PRESSURE  (PSIA)  =  13.40 

STREAM  ENTHALPY  { B  T  <J .  )  -  -0.3355048F  03 


MOLF  NUMBERS  ARE  - 


CH4  - _ 10.57000 _ C.Q2  _ 109.40095 

□2  0.0  N2  0.0 

H20  -  63.66993  H2  S  -  965.64966 

S02 .  -  . 0.0 . S . - .  0.0 

52  0.0  S6  0.0 . 

53  0.0  S  0.0 


*  *  *  *  *  *  *  *  *  *  *  *  £  *  *  *  *  *  *  *  *  *  ************  ***  *********************** 

I..Q.IAL . MOLES . A I  R . ADOFO . - . 2467.06  (  R  .  H  .  =  5.72  PERCENT) 

MOLES  DRY  AIR  =  2399.31  .  MOLES  WATFR  = .  6  7.25 


TEMPERATURE  [OEG.F.)  =  191.0  PRESSURE  (PSTA.)  =  20.00 


RATIO  OF  ( SPECIFIEO/STOICHIOMETRIC )  AIR  ADDED  - 

-  FOR  OXIDATION  OF  SULPHUR  (ALL  H 2 S )  -  0.3333 

-  FOR  OXIDATION  OF  GARB 0  N  ,  H  Y  DR  0  G  E  N  AND  ABOVE  -  1.0000 


*  *****  *********************  **  *********************  *  *  #  ^  ;£  £  £ 


COMBINED  OUTLET 
STREAM  NUMBER 

STREAM 

3 

TEMPERATURE  (DEG 

.  F)  =  162.1 

PRESSURE 

(PSIA)  =  13.40 

STREAM 

ENTHALPY  (BTU.)  = 

-0 . 3 B 57349E  03 

MOLE  NUMBERS  ARE  - 

CH4  - 

10.57000 

CO  2  - 

1 09.40999 

02 

503.95Q7? 

N? 

1895.84339 

H2  0  - 

130. 921 52 

H2S  - 

965. 64966 

S02  - 

0.0 

S 

0.0 

S2 

0.0 

S6 

0.0 

S3 

0.0 

S 

0.0 

*****************************  ****************************  *** 


. 


’  . 

•  . 


.  ■ 


1 

. 


-  ■ 
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3  !M 

. 

- 

■ 

* 
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- COMBUSTION  REACTION  AND  WASTE  HEAT  3011.  FR . 

EQUIPMENT  NUMBER  2 

* *** ** * *' ** *  *  **»*»»  * »»»»»**  » ********************************* 


EQUIPMENT  PROCESS  FEFO 


TEMPERATURE  (DEG.  F)  =  162.1 

STREAM  ENTHALPY  (BTU.) 

PRESSURE  ( D  S  I  A  )  =  13.40 

-0 • 3857349 E  08 

CH4 

MOLE  NUMBERS 

10.57000 

ARE  - 

C02 

109.40999 

02 

503.95972 

N2 

1895.84839 

M2  n 

130.92152 

H2S 

965.64966 

SO  2 

0 . 0 

S 

0.0 

S2 

0.0 

S6 

0.0 

S  8 

O.o 

S 

0.0 

4c  ****4' 

4c  4?  *  *  4c  *  4*  *  4<  #  4«  #  *  ic  4c  *  *  *  *  #  &  4c  4c  #  4:  4c 

ITERATIVE  ADIABATIC  TEMP FRA TURF 

CALCULATION 

•Jj  ^  -J.  v*;  X  J. 

'V*  ’V*  -*p-  V  ')*■  -v» 

*  '£ *  4-'  i'  4c  -t  ^  ❖  *#£**  **£***#❖## ❖£ 

4c ***❖ 4<#4s  £4= ^t^csfc^c  4<  *4:  4c  4c 4c 

FINAL  CONVERGED  TEMPERATURE  IS 

2414.9  DEG.  F 

PRESSURE  ( P  S I  A . )  =  18.40 

(CRIT 

=  0.10E-03  } 

STREAM  ENTHALPY  IBTU.) 

=  -0.3857352E  08 

MOLE  NUMBERS 

ARE  - 

CH4 

0.00000 

CO  2 

119.97997 

02 

0.00000 

N2 

189  5.  84  83  9 

H2  0 

941.37744 

H2S 

176.33324 

S  02 

88.16147 

S 

0.11131 

S2 

350.52124 

S6 

o.onooo 

S3 

0.0 

S 

o 

• 

o 

1 

MUFFLE  FURNACE 


< OE S I GN ) 


DIAMETER  (IN.)  =  72.0  RESIDENCE  TIME  (SEC.)  =  0.510 

LENGTH  (FT.)  =  30.0  HEAT  RELEASE  18TU/CU.FT.)  =  83348. 


*  *  ^  *  i;c  j;  *  5^  j;  ^  S«C  J£  Jj  3^  J,  J;  ^  J,  Jj  jl,  J.  J,  ^  J,  ,J,  J-  ^  ,J,  Jj  Jj,  J{  Jj  J,  J,  J.  J,  *  J,  ^  ^  .j,  j,  J,  ,J,  J, 


t. 

' 

r 

. 

* 

* 

4 

♦ 

• 

• 

f 

• 

(  .  '  .  '  •  r  ,  r 
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DESIGN  OF  PASS  NO.  1 


ITERATIVE  CALCULATION  OF  TUBF-PASS  TUBF-NUMBER 
DELTP  SPECIFIED,  TO  I  AM  CALCULATED. 


******************  *  *  *  *  *  *  *  *  ********  *  *  *  *  *  *  * * '*^r**  **■*' ^*  ******  *  *** 


CONVERGED  TUBE  NUMBER  IS  104. 
TUBF  DIAMETER  { IN)  IS  4.00 
TUBE  LENGTH  (FT)  IS  24.00 


APPROX.  PRESS.  DROP  (DSI.)  =  0 . 2  3 

APPROX.  TOTAL  HEAT  LOSS  <BTU.)  =  0.4106085E  08 

_ (ENTH.  ERROR  (BTU.)  -  0.740800QF  04  ) 


REVFRT  TO  SIMULATION  FOR  EXACT  CALCULATION 
_ .OF . ACTUAL . OUTLET . TEMP .  AND  PRESS  .  D ROP 

****************** ********** *  ************ ************** ***** 


SIMULATION  OF  TUBF  PASS  NO.  1 


I  T  FR A  T I VF  NON- ADI  A3 ATI C  TEMPERATURE  CALCULATION 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 


**************** ******************************************  *  * 


FINAL  CONVERGED  TEMPERATURE  IS  1200.8  DEG.  F 
PRESSURE  (PS  I  A.)  =  18.17  (CRIT  =  0.10E-03  ) 


\  f  ->  i  •  /  L  •  L  1 

TUBE  DIA.  (IN.)  = 
NUMBER  OF  TUBES 

\  L/Tv  l  |  —  \J  9  i.  L 

4.00 
=  104. 

TUBE  LENGTH  (FT.) 

ii 

. 

O 
O  | 

PR F S SURE  DROP  (PST) 

=  0.23 

TOTAL 

HEAT  LOSS  (BTU.)  = 

0.4102794F 

08 

STREAM 

ENTHALPY  (BTU.)  - 

-0. 7960805E 

08 

MOLE  NUMBERS  ARE  - 

CH4 

— 

0.00000 

C02  - 

I 19.97997 

02 

- 

0.0 

N2 

1895.84839 

H20 

— 

899. 72437 

H2S  - 

217.98630 

S02 

- 

1 08.93799 

S 

0.00000 

S  2 

— 

3  18.2  36  5  7 

S6 

1.33953 

S8 

- 

0.02026 

S 

0.0 

*  * ***  *  ***** ****** ****************************************** 


, 

'  . 

) 

{ . ' 

i  .  -  (  .' 

.  'r 


■  1  ■ 

r.  •  > 
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TOILER  BY-PASS  NO.  1  7  (RATIO  =  O.IOOO) 

_ STREAM  NUMBER  5 


TEMPERATURE  (DEG.  F)  =  1200. 8  PRESSURE  CPS  I A }  =  18.17 

. STREAM . E NT HAL P Y  ( BTU. )  =  -0.7960797E  07 


MOLE  NUMBERS  ARE  - 


CH4  - 

0.00000 

CO  2 

11.99799 

02 

0.  0 

N2 

189.58476 

H20  - 

89.97240 

H2S 

21.79861 

S02  - 

10.89880 

S 

0.00000 

S2 

31. 52364 

S6 

0.13395 

sa 

0.00203 

S 

0.0 

:  >;<  *  2): 

:  j{<  #  2;-'  5|c  jje  %  *  J;  ^  jjc  *  #  sj:  3 

!s  5!;  >Jf  #  3jt  y,;  2,*;  J; 

❖  ■%  ❖  #  £  #  $  A-  #  *  #  ❖  ❖  *  *  *  £  -fi  *  # 

■  ■  ■ .  - 


. 

(  • '  r  ) 


♦V  . 

. 

[ . 

. 

. 

. 
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HE  SIGN  OF  PASS  NO.  2 


ITERATIVE  CALCULATION  Qp  TUBE-PASS  TUBE-NUMBER 
DFLTP  SPECIFIED,  TDIAM  CALCULATED. 


7  *****  *  ##$********************:*:****:********************** 


CQNVFRGEQ  TIJBF  NUMBER  IS  1905. 

TUBE  DIAMETER  (IN)  IS  1.50 
TUBE  LENGTH  (FT)  IS  24.00 


APPROX.  PRESS.  PROP  ( P  S I .  )  =  0.04 

APPROX.  TOTAL  HEAT  LOSS  ( BTU .  )  =  0.2072  165F  08 

_ (ENTH.  ERROR  (BTU.)  =  0.2016000E  04  ) _ 

REVERT  TO  SIMULATION  FOR  EXACT  CALCULATION 
_ OF  ACTUAL  OUTLET  TEMP. . AND  PRESS.  DROP 

*  ***********  ******  ****************************************** 


SIMULATION  OF  TUBE  PASS  NO.  2 

ITERATIVE  NON— AD T  A BAT  I C  TEMPERATURE  CALCULATION 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 


*  .*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******************************************** 


FINAL  CONVERGED  TEMPERATURE  IS  550.0  DEG.  E 
RRFSS  UR  E  <  P  S  I  A  .  3  -  10.13  ( C  R I T  ~  0.10E-03  ) 


TUBE  DIA.  (IN.)  - 


NUMBER  OF  TUBES  = 

T U BE . LENGTH  (  FT.)  = 

PRESSURE  DROP  (PSI)  = 
TOTAL  HEAT  LOSS  (BTU.)  = 


1 . 50 
1 905. 

24.00 

0.04 

0 • 2972304E 


08 


*  *  * * ******************************************************** 


r  ' .  • 

’  { 


'  .  : 
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BOILER  EXIT  STREAM  - 
STREAM  NUMBER  4 

TEMPERATURE  (DEG.  F)  =  550.0  PRESSURE  (PSTA)  =  13.13 

. STREAM  ENTHALPY . ( BTU. )  =  -0.1013 6 93F  09 


MOLE  NUMBERS  ARE  - 


C  H  4  - 

02 

H20  - 

0.00000 

0.00000 

8  10.  04395 

C02  - 

N2 

H2S  - 

107.98196 

1706.26343 

195. 89563 

SOP  - 

97.94.3  18 

S 

0.0 

s?  - 

0.31145 

S6 

30.04912 

S3 

49. 29054 

S 

0.0 

$  *  #  #  5^  jjc  #  ;'c  %  J;  *> 


»  ye  s,c  -4,  yU 


#  3j<  -ijc  jV 


STREAM  SULPHUR  DEW  PT .  (DEG.  F)  ■=  522.2 

STREAM  WATER  DEW  PT.  (OEG.  F)  =  161.4 


-1  <•  -v*.  >*/  »*» 


-»*»•»*»»  ******  *  ***  »#»»»»»»»»  Sjl  *  * 


EQUIP.  HEAT  DUTY  (BTU /HR)  IS 


0. 7075098E  OS 


STEAM 


TEMP. 
PPE SS  . 
LATENT 


(DFG, 


)  = 

(PSIA)  = 

HEAT  (BTU/ LB?  = 


421.3 

313.000 

802.2 


L.H.  CORRECTION  = 

PRODUCTION  ( L 1/HR  )  = 


0.0 

0.8319188E  05 


:  *  *  *  **  *  *  *  *  *  *  *  *  *  *  $  *  *  *  *  *  *  *  *  *  *  3):  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ^  *  *  *  £  *  #  *  *  jjT*  j. 


PERCENT  OF  TOTAL  INLET  SULPHUR 
OUT  AS  ELEM E N T A  L  SULPHUR  =  66.13 


•Xr  -X*  \V 


* 

'  ■  I 

♦ 

• 

. 

<  : 

z'-  ) 


i 


•  (  v  >  ,  ■  !  • » 


. 


.  . 
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CONDENSER  1 


EQUIPMENT  NUMBER  3 

-•ly  Jy  Jy  Jy  jy  Jy  sly  Jy  Jy  Jy  Jy  sjy  Jy  Jy  sly  Jy 

*V*  't'  -'v  ¥  -T  *<-  '|N  yjl  "i'»  v  -Tv 

Jy  jy  Jy  jy  Jy  jy  Jy  Jy  -:Jy  Jy  Jy  jly  sly  Jy  Jy  sly  Jy  Jy 

Jy  Jy  'sly  ’sly  Jy  Jy  Jy  Jy  Jy  sly  Jy 
«j»  y,s  yp  y^s  -*,**  y,\  y,»  y^N  y(s  y(.  - (s 

Jj  Jy  Jy  Jy  JyJyJyJyJyJ^sl^s^.  sly  sly 

EQUIPMENT  PROCESS  FEFD 

TEMPERATURE  (DEG 

.  F)  =  550  .  C 

PRESSURE 

(PSIA)  =  18.13 

STREAM 

ENTHALPY  CBTU.)  = 

-0 . 10136 9 BE  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.00000 

C02  - 

107.98196 

02 

0. 00000 

N2 

1706.26343 

H2  0  - 

8  10.04395 

H2S  - 

195. 39563 

S02  - 

97. 943  18 

S 

0.0 

S2 

0. 311 45 

S6 

30.04912 

S8 

49.29054 

S 

0.0 

*•  "i*-  T  "i"  -v  v  -v 


CONDENSER  DESIGN 

Jl»  ^  »•»  X  J/  s*^  sV  *•/  J»  sV  >•/  Jy  sO  -Jy  -J»  Jy  -<U  s'y  Jy  «(y  «iy  Vy  4y  >iy  v*y  Jy  4y  «*y  Jy  Jy  Jy  s(y  jLy  Jy  «Jy  Jy  Jy  -Oly  sly  sly  sly  >ly  Jy  sly  Jv  Jy  — Ly  sly  sly 

f*  <’*•  ‘'C-  '»*•  -V*  -,iv  "jv  'i'  V  'iv  ■'r*  ^  <*»'  a-'  -*'«'»  y**»  'T  -V-  •'•'  'V'  V  '<*■  -*f»  •'»x  'V*  'O  "i"  >'('■  A'  -’('v  -»»•  ',*»  y|'  -y  -,<»  y,-«  -4v  ?,C  -^-  ^  v  -*!*•  .ys  -»,* 


TUBE  LENGTH  (FT.)  =  11.3 

T  U  BE  n  T  AM  FT  E  R  (I  N  .  )  =  ' . 1.0  00 

NOMRFR  OF  TUBES  =  1253 


MAXIMUM  FLOU  RATE  ( LB/SO. FT. SEC )  =  4.00 
OUTLET  GAS  TEMPERATURE  { DEG . F )  =  375.0 
U  ( OVERALL  )  ( BTU/HR. SQ.FT.  DEG. F)  =  14.11 


Jy  Jy  jy  -Jy  -Jy  Jy  'V  sly  >ly  Jy  sly  Jy  Jy  Jy  Jy  sly  sly  Jy  sly  Jy  Jy  Jy  sly  Jy  >)y  Jy  Jy  Jy  s*y  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  sly  Jy  Jy  Jy  Jy  Jy  Jy  -sly  Jy  Jy  Jy  Jy  Jy  Jy  sly  s*y  Jy  Jy  Jy  sC  Jy 

y,s  y(s  y,s  yjs  y,*s  y'  v  <|'  -»r*  -V*  '/**  *•,-*  -f  5"  -»*  ^  >V*  T  ■*)*  'f*  ^  V  V  'i'  y>"  v  -i-  ^  'i*  T  “’O  **0  "I-'  T  'V'  'Is  T'  T  'i>  V  Tv  T  '»'*■  /ls  *»'  'i'  y,"  -*f'» 


E n U I ° .  MEAT  DUTY  (BTU/HR)  IS 


0.6986898E  07 


STEAM 


TEMP.  (PEG,F.)  = 

PRESS.  (PSTA)  = 
LATENT  HEAT  (8TU/LB) 
L.H.  CORRECTION  = 

P ROD U C T I ON  ( L B / H R  )  = 


_ 310.3 

78.000 

901.6 

_ 0 . 0 

0 .7  749 449 E  04 


sjy  Jy  Jy  Jy  >ty  sl<  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  .ly  Jy  Jy  -sly  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  sly  sly  »*y  Jy  Jy  Jy  Jy  Jy  J»  Jy  Jy  Jy  sly  sly  Jy  Jy 

Tfs  y.s  -,C  -,s  yfs  y^s  y,s  yys  y,s  y,s  y.s  y,s  y,-s  y(.  y,s  y,N  y,s  y,s  yr  y,s  y*,  y,t  y^s  y,s.  y,C  y,s  7fs  y,s  y,s  y,s»  ^  -,s  y.ss  y,s  y,s  y,s.  y,s  y,s  -fs  ^  ^  -y  V  'Y'  -*«'  ^  ¥  'Y'  ■*!*  "V  '<v  ^  T*  -V 


' 

*  ..  f  .. 

1 ' 

(  •  V 

•  '  A  I ) 
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CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  94.10,  PERCENT  RECOVERY  =  37. 52 

. SULPHUR  FOG  -  325.4  7  MOLES,  OR  10415.1  LBS. 

S UL P HU R  L I QU TO  -  2  15.81  ' MOLES, . OR . 690579  LBS. 

(STREAM  NO.  18  ,  TEMPERATURE  =  319.8  DFG.E.) 


V**  NlU  xA«*  ^  X^'  xi#  xV*  ^  xIb*  xO  ^  xO  x^  xl#  x$^  x^  xU 

-,x  r,x  ^x  ,X  -,-x  -.x  ^x  V  -,x  7T  ,,X  -,x.  -v>  Jjx  ye  7X  5T  V  X X  35c 


:  *  *  *  *  *  •}'.  #  &  *  *  ijf.  *  *  5*5  £  ^  £  :\t  *  £  ^  *  * 


SPECIFIED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 
(LBS.  S  / 1 0  0  LB.  M  OLE  S . INERTS) . = . 5 . 00 . 


EXISTENCE  OF  DE-MISTER  PADS  IS  IMPLIED 


. __ . _____ . REVISED . SULPHUR . OUTLET . 

PERCENT  CONDENSATION  =  94.10,  PERCENT  RECOVERY  =  93.30 


SULPHUR  FOG  -  4.56  MOLES,  OR  145.9  LBS. 

SULPHUR  LIQUID  -  536.72  MOLES,  OR  17175.1  LBS. 

( STREAM  no.  18  ,  TEMPERATURE  =  353.0  D E G . F .  ) 


■f*  'i'-  <Y‘  "T* 


if. 


•  s'{  ^  'At  V*  «?r  ^  -A»  x*/  xV  xC  xju  J,  xt. 

»  '(X  '#x  /y»  AX  ■*)>  <>(X  ^x  -*^x  >(x  ^■X  *^X  .jX  -»,X  -yx 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  6 


TEMPERATURE  (DEG.  F)  =  375.0  PRESSURE  (PS  I  A)  =  18.02 

_  STREAM  ENTHALPY  (BTU.)  =  -0.1098730E  09 


MOLE  NUMBERS  APE  - 


CH4  -  0.00000  C02  -  107.98196 

02  -  0.00000  N2  -  1706.26343 

HP  0  -  3 10.04395  H2S  1 95.89563 

SOP  -  97.94318  . S . - .  0.0 

S2  -  0.00156  S6  -  0.99092 

38  3.50132  S  -  4.55957 


■  -V*  't-  *,**  -!*•  -v*  ' 


;  i  ,  •  ? 


, 


i  .  .  « ••  f  ’  I  ’  '  ■  •  *1 0  '  ,  f!  , 


'  v  >  r  "  3  ■.  , 


.  •  r  ir.  f 
{  .  ■ . 


, 


1 

• 

1 - 
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APIA  1  MIC  S  T R F  A M  COMBINFR 


EQUIPMENT  NUMBER  4 


❖  3j<#35s3^  3*t  *  #  #3^;};#  &if  ^  jJc^s  *  ^s>Sc^;^c  3^  3!;  3^  *  #  #  #  3*< :{:  s}c  3>;^ej}; 3;;  if  if  3,';  *  $  ;|c  jJj  #  i-  3^  if  if 


COMBINE  STREAMS  5  AND 


5*r  '^Z  ^  iV  j'j  >4  J/  y»  J#  J1/  J;  Jr  ^  *v  4*  'A'  4*  Or  4*  4*  4/  *i»  4/  Or  4/  JL-  4»  4»  4»  X  J/  >l>  4/  Or  4«  4>  »0  Or  4r  4r  4/  4r  -»V  Or  Or  .l»  Or  Or  -Or 

>  rp.  -*p  rp  rp  rp  rp  -p  rp  -p  rp  rp  S'  rp  >p  ^  V  S  qv  S'  rp  'V'  -p  rp  S'  -(*>  rp  rp  r-p  rp  rp  4,*.  rp  S'  rp  rp  S'  rp  rp  "|'-  S'  S'  S'  s'  rp  r>v  -p  rp  rp  Jji  rp  ?}?  rp  ;(;  T,Z  JJC  S'  3p  rp 


FIND  GIVEN  FEED  STREAM  RESULTANT  TEMPERATURE 


ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


st  ^  ^  ^  ^  >!c  j{c  jJ:  &  a|s  jfc  #  4c  #  t'  #  ^  sfc  %  >Jc  >*?  3j<  jjc  ^  ^  ^  s£c  ?Jc  *  ^  #  jfc  :Jc  ?Jc  ^  &  s'  ^  s*  ♦!'  *  j£  #  #  j$c  £ 


FINAL  CONVERGED  TEMPERATURE  IS  619.9  DFG .  F 
PRESSURE  (PS  I  A.) = IB  .OP  { C  R I T  =  0 . 1 0  F - 0  3  } 


?’<  y?  ^  )A  yc  ?!c  y?  y?  ?*£  ;L  y  V;  J;  J;  4.  Or  y»  4r  Jr  4r  Or  Or  Or  Or  4/  Or  Or  Or  4/  Or  J,  Or  Or  Or  Or  4r  4r  4x  Jr  4#  4r  %V>  4r  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or 

»  I  A '  rp  •<,.  r,*  p  '/-»  '•>  -  (»  '  p  rp  -•,  -  S'  rp  rp  rp  rp  -rp  rp  -rp  rp  rp  rp  »,V  rp  rp  «(*  rp  rp  -p  -rp  ^i,  rp  rp  r,»  rp  /p  rp  rp  rp  rp  rp  rp  rp  »  ,  rp  rp  rp  rp  rp  >p  rp  rp  -p  rp 


PREDICTED  STRFAM  S^LIT  FOR  TEMP.  OF  456.0000  IS  0.0547 
USE  STREAMS  RESULTING  FROM  THIS  PREDICTION 
FOR  PRESENT  EQUIPMENT  OUTLET  STREAM. 


1  Or  Or  Or  Or  Or  O.  Or  Or  Or  Or  Or  Or  -Jr  Or  Or  Or  Or  Or  Or  -Or  Jr  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or  Or 

1  -*|'  r  )  I  >'  f  ■  S  A'  S  6  T  <V'  S'  6“  S'  S'  '«*»  S'  V1  S'  -rp  r-p  »-p  rp  S'  S'  'Is  S'  ""P  ^p  •*-'  •*|'*  -^P  'j'  V*  A'  'p  rp  rp  rp  3,'  -'P  rp  'p  rp  r,s  -,v  r,C  rp  rp  r,-v  r^  rp 


COMBINED  OUTLET  STREAM  (SULPHUR  SHIFT  DONE)  - 

STREAM  NUMBER  7 


TFMPERATURE  (DEG.  F)  =  455.0  PRESSURE  (RSIA)  =  18.02 

STPFAM  ENTHALPY  (BTU.)  =  -0.1197563F  09 


MOLE  NUMBERS  ARE  - 


CH4 

- 

0. ooooo 

r  02  - 

119.97993 

12 

- 

0.00000 

N2 

1  395. 84790 

H20 

- 

900.03076 

H2S  - 

217.67953 

SO? 

- 

1 08.83461 

S 

0.0 

S  2 

— 

0.02050 

S6 

3.44575 

S8 

— 

6. 83763 

S 

o 

» 

o 

Or  Or  Or  Or  Or  Or  Or 

rA  rp  rp  ->jp  rp  rp  -  ‘p 

Or  Or  -Or  Or  Or  Or  Or  Or  Or 

»p  --p  -Tp  rp  rp  rp  rp  rp  r^- 

Or  Or  Or  Jr  -Or  Or  Or  Or  Or  Or  Or  Or  J-  Or  Or  Jr  Or  Or  Or  Or  Or  Or  Or  »<r  Or  Or  -Or  Or  Or 
rp  -r  t  rp  rp  r-p  r,v  r,-K  rp  rp  -p  pv  rp  r,»  r*p  rp  r^x  >p  rp  -  ^  v  rp  px  >p  rp  rp  rp  rp  rp  rp  rp 

Or  Or  Jr  Or  Or  Jr  Or  Or  Or  Or  Jr  Or  Or  Or  Or 

S'  'l'  -p  rp  -p  S'  T  rp  rp  rp  -p  -p  .3p  rp  rp 

STREAM 

SULPHUR  DEW 

PT.  (DEG.  F)  = 

406.2 

ST  RF  AM 

WATER  DEW  PT 

.  (DEG.  F)  = 

162.2 

3jc  -3?c  3^  JjC 

3f-  3[<  3|J  >!c  3^  -^C^C  3^S 

^3 ■;  A  £  j-  jjc  A  y- 

i'.  if.  if  if  if  if  if  if  3»;  if  if  if  if  if  £ 

CALCULATIONS  LOOPED  ON  RECYCLE  LOOP  - 


2  3  4 


•  •  j  j| 


'  •  ■  .  : 


•  !  ' 


. 


r  , 

» 

(  i  ♦  '  ”  '  t'/‘ 


?"  ■  >  i j r 
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COMBUST  ION  REACTION  AMO  WASTE  MEAT  BOILER. 
EQUIPMENT  NUMBER  2 


*  *****$$$$$*$  if if  if  $  *  if  if  if  if  if  if  if  if  *  if  if  if  if  if  if  ***$*$$$$*$$$$*$&* 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  162.1 

STRFAM  ENTHALPY  (8TU.)  = 


PRESSURE  {  PS  I  A ) 
— 0 • 3  857349E  08 


=  18.40 


MOLE  NUMBERS  ARF  - 


CH4 

10.57000 

C02  - 

1 09. 40999 

02 

503.95972 

N2 

1895.84839 

H20 

130.92152 

H2S  - 

965. 64966 

SO  2 

0.0 

C  _ 

o 

0.0 

S2 

0.0 

S6 

0.0 

S8 

0.0 

S 

0.0 

^  -J»  vJ#  »•.  V/  J/  ^  >1.  \L  J,  4#  \l/  X  J.  sl, 

■i'  *▼*  "r  nr  -r*  -V'  v  -v*  'i-  -v-  v  "r*  "'v  "i**  *v  4'  nr  nr  -v  n'  o'  o'  o'  -v- 

ITERATIVE  ADIABATIC 

i*;  oL  tAr  V;  i*c  ^  ^  -a>  y?  iV  *v  -4/  >*»»  -*•-*  »*/  -j.  j.  sir  Jr  -ou  .v.  >*.»  j,  j, 

O'  O’  V  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O' 

TEMPERATURE  CALCULATION 

*»i^  ^  %,i'  >*.  a  «•*  j# 

-O'  O'  **0  o'  o'  **>  -a'  o' 

■**'  ^  iff  i*'  <a>  Oa  j*  <a>  4>  -Ja  J/  ^  j,  ^ 

o’  A'  -0  *•)'  r  'i'  o'  O'  o'  O'  -'r*  o'  o'*  o'  -O'  t  o'  o'  o'  O' 

J;  2*^  »*'  J'  j);  J;  J.  Jr  Jj  %1»  J;  •'»  -»‘-r  Jr  ^  -4/  J.  <A»  vC.  »V  JU  4.  4»  s<r  4r  4. 

O'  O'  >  'I'  O'  0  O'  O'  O'  O'  O'  A  i  O'  O'  O'  'C  O'  O'  ■*<'  O'  O'  O'  O'  O'  Or  >f'  O'  O'  O'  O' 

FINAL  CONVERGED  TEMPERATURE  IS  2414.9  DEG.  F 
PRESSURE  (  P  S I A . )  -  18.40  ICRIT  =  0.10F-03  ) 


STREAM  ENTHALPY  { BTIJ.  )  = 

MOLE  NUMBERS 

-0 . 3857354E 

ARF  - 

08 

CH4 

0.00000 

C02  - 

1 19.9799  8 

02 

0.00000 

N2 

1895.84839 

H20 

941.37695 

H2S  - 

1 76. 33365 

S  02 

88.16170 

S 

0.  11131 

S2 

350.52075 

S6 

0. 00000 

S  8 

0.0 

S 

o 

• 

o 

if  if  it*  if  if  if  sjc  if  3{i  if  j{;  if  if  if  sjs  if  if  if  if  ifizif  if  if  if  it  ifif#  if  if  if  if  if  if  #  if  &ifif  if  3$c  s}=  if  if  if  if  if  if  if 


MUFFLE  FURNACE 


( DESIGN) 


DIAMETER  (IN.)  =  72.0  RESIDENCE  TIME  (SEC.)  =  0.510 

LENGTH  (FT.)  =  30.0  HEAT  RELEASE  (BTU/CU.FT.)  -  83348. 


#  if  it  if  if  if  ic.  a*c  if  it  *  :&  if  #  it  if  if  #  if  if  if  if  if  if  3*.-  ^  if  if  3V  #  if  if  if  if  if  fc  if  5,'c  if  if  if  if  ^  if  i);  if  if  i'~  ^  £  if  if  i!: 


,  I?  3p,  "}  r;-  ifTp 


r  .  : 

. 

* 

r0? 

* 

. 

(< .  r 

'  (  ~ '  1 1  T  ! 


.  '  .  ’ '  ' 

■  ■  } 


- 

.  ''  ; 

‘  .  !  ' 

' 

.  •  E 

J 
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DESIGN  OF  PASS  NO,  1 


ITERATIVE  CALCULATION  CF  TUBE-PASS  TUBE-NUMBER 
TDIAM  SPECIFIED,  DELPC  CALCULATED. 


i1'  ^  y*  y»  y*”  ^  x  >V  «*-  -.v  si/  y»  -x  >A»  X*  y,  y^  J/  <x>  nO  j-  j<-  ^  x-  j/  »o  -•*  j>-  -,o  x  x  >«,  x  j,  j,  j,  4,  v*y 

■v*  Jk  v  4**  'Is-  '■'  Y  f  4'  -*a  v*  '>  "«*•  <{'  ^  *6  -t*  >>»•  "r  -v  *i'  -I'  y v  *v  "*■»  'r'  v  -»(*  -*r-  ^  o**  ~t*  4-  I''  a-  •«-  4*  ^  4\  J,'  3,c  T'  rf.  3JC  i,x  >js 


CONVERGED  TUB r  NUMBER  IS  104, 

TUBE  DIAMETER  (IN)  IS  4.00 
TUBE  LENGTH  (FT)  IS  24.00 


APPROX.  PRESS.  DROR  { P S  I  .  )  =  0.23 

APPROX.  TOTAL  HEAT  LOSS  (  BTU  . )  =  0.4I04162E  08 

(ENTH.  ERROR  (BTU.)  =  -0.2080000E  03  ) 


REVERT  TO  SIMULATION  FOR  EXACT  CALCULATION 
. OF . ACTUAL . OUTLET . TFMP.  AND  PRESS.  DROP 


#  *  >!c  #  ij!  jjs  #  3<c  j!;  3^:  *  5*,J  4  2|«  ;{<  ij:  #  4  4  ^ ; 


:  *  *7|£  %H,<  :f:  #3jc  jJj  if.  3*;  ;<£  3*:  ifcsj; 


A'  A'  'V'  '•r"‘ 


SIMULATION  OE  TUBE  PASS  NO.  I 


ITERATIVE  MIN-ADIABATIC  TFMPERATURE  CALCULATION 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 


y>»  -*•»  4/  J/  >•/  Jf  4*  -Ay  4r  »’r  Jy  4y  v1/  4/  4/  Jy  4y  Jy  >V  Jy  X  "»'/  X  ,l»  X  X  . 

4'  A4  A'  *f*  -yy^  y  <!<•  •»,’*  y,»  V,-»  y,v  >,v  y,,  y(»  y,s  yf»  y,-.  y,'  •*,“*  ^  yjV  -jV  y,x  /,•>  . 


•  X  X  4y  , 


.  yj»  yjv  A'  V>  yj*  'l*  '/» 


FINAL  CONVERGED  TEMPERATURE  IS  1200.8  DEG.  F 
PRESSURE  (PSIA.)  =  18.17  {CR.IT  =  0.10E-03  ) 


TUBE  DIA.  (IN.)  =  4.00 

NUMBER  OF  TUBES  =  104 . 

T UBF  L E N G T H  (FT, )  = ~  24.00 

PRESSURE  DROP  (PSI)  =  0.23 

TOTAL  HEAT  LOSS  (BTU.)  =  0. 41028 18E  08 


STREAM  ENTHALPY  (BTU.)  =  -0.7960774E  08 


MOLE  NUMBERS  ARE  - 


CH4  - 

0.00000 

CO  2 

119.97998 

0? 

0.0 

N2 

1895.84839 

H20  - 

899.77412 

H2S 

217.98624 

SO?  - 

1C8. 98799 

S 

0.00000 

S2 

315. 23682 

S6 

1.33931 

S8 

0.02025 

S 

0.0 

s*y  X  -.*/  X  .*y  J»  Jr  X  4r  X  vV  Jr  X 

yj.  r,>  .-f.  r(%  r . *N  r(\  *(x  r|\  r(x  y,x  y.j  V  rjN 

X  Jy  X  X  X  X  X  X  Jr  X  XXX  Jr  X 

y,v  r,x  Af*.  r,.  yyx  r,v  iyx  >(V  »,*.  --yx  y,-v  y, . 

X  v*r  X  Jr  J-  X  X  J'  Jr  X  ^Xr 

rjv  yijV  r(\  y,x  y,\  yj*  r,x  rj»  rj«  ry> 

Jr  X  X  X  X  Jr  X  X  X  X  X  X  X  X  X  X  -X  X  X  Jr 

r^%  r,\  y^\  r .  \  r^x  y(x  rjx  /,%  y ("»  yj,  rp  »|V  rj\  y.v  r^\  ryx  r,\ 

T  <  ' 


1  -  r: 


! '  ■  : 


. 


. 


, 


* 
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BOILER  BY-PASS  NO.  I 


(RATIO  =  0.0547) 


TEMPERATURE  (PEG. 

STREAM 

o  i  ■  '  i  m  r\  niun  o  c 

F)  ■=  1200.  B 

ENTHALPY  (BTIJ.)  * 

J 

PRESSURE  ( P S I  A )  =  18.17 

-0.43 5775 BE  07 

MGLF  NUMBERS 

ARE  - 

CM  4  - 

0.00000 

C  0  2 

— 

6.56775 

02 

0.0 

N2 

- 

103. 77948 

H2  0  - 

49.25124 

H2S 

— 

11.93265 

SO  2  - 

5.95604 

S 

- 

0.00000 

S2 

17.25618 

S6 

- 

0.07331 

SB 

0.001  11 

S 

- 

0.0 

[  ) 


, 

r 

- 
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DESIGN  nr  PASS  NO.  2 


ITERATIVE  CALCULATION  OF  TUDE-PASS  TUBE-NUMBER 
TDIAM  SPECIFIED,  DELPC  CALCULATED. 


£  ^  *  jjsjJs*  iff:  if  if  if  *  *  ii  if  if  if  *  if  >Jc  sjc  #  if,',  if  ft  if  *  *  if  if  if  if  if  if  if 

_ CONVERGED  TUBE  NUMBER  IS  2000. _ 

TUBE  DIAMETER  UN)  IS  1.50 
TUBE  LENGTH  (FT)  IS  24.00 


APPROX.  PRESS.  DROP  (PSI.)  =  0.04 

APPROX.  TOTAL  HEAT  LOSS  ( 8TU . )  =  0.3121630F  08 

(ENTH.  ERROR  ( 8TU .  )  =  0.1472000E  04  ) 

REVERT  TO  SIMULATION  FOR  EXACT  CALCULATION 
. OF . AC  TUAL . OUTLET . TEMP. . AND . PRESS. . DROP 


if.  s;c^5!r^*  if  if  if  if  if  if  if  if  £  if  if  if  if  if  if  %;  jjc  if  &  #  #  *  %  jjc  %  if  #  if  if  if  if  if  if  if  it  #  if  if  if  #  if  if  if  if  if  if  * 


SIMULATION  OF  TUBE  PASS  NO.  2 

_ ITERATIVE  N  IN-ADI ABAT IC  TFUPE  R ATOP  E  CALCULATION _ 

TDIAM  SPECIFIED,  DELPC  CALCULATED. 

*  ififitif  %ifii$:ififif  if$c  if^  if  if  if  if  if  if  #5je3jj  *  £  ❖  ❖  ❖❖  *  if#  if  if  if  if  if  **  if  if  %$iif 


FINAL  CONVERGED  TEMPERATURE  IS  550.1  DEG.  F 
PRESSURF  ( P  S I A •  )  -  18.13  (CRIT  =  0.10E-03  ) 


TUBE  niA.  (  IN. )  = 
NUMBER  OF  TUBES 

T  U  B  F  L  E  NG  T  H~  (FT.) 

PRESSURE  DROP  (PSI) 
TOTAL  HEAT  LOSS  ( BTU . )  - 


1 . 50 
2000  . 

24.00 

0.04 

0.3  121  72 5F  08 


*  if  *  if  *  if  if  if  if  if  if  if  3$c  *  if  if  if  if  if  3*c  ifiti^icifif.  if  if  if  if  if  if  if  if  if  if  it  if  if  if  it  if  if  if  if  if  if  *  £  >J:  if  if  if 


r  *  -  > 


,  ' 

! 


1<  r  '  ;  u  .(• 

f  ■  "  H 

. 


■ 

♦ 

(  .  U  )  .  '  1 


“  !  .  ■'  ~ ) 

. :  ■■  1 
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BOILER  EXIT 

STREAM  - 

STREAM  NUMBER  4 

TEMPERATURE  (DEG 

.  F )  =  550.  1 

PRESSURF 

( P  S  I  A )  =  18.13 

STREAM 

ENTHALPY  { 8TU . 

)  =  -0 . 1 06466  8 E  09 

MOLE  NUMBERS  ARE  - 

CH4 

- 

0. 00000 

C02  - 

113.41223 

02 

- 

0.00000 

N2 

1792.06885 

H2G 

- 

850. 77930 

H2S  - 

205. 74672 

SO? 

- 

102.86850 

S 

0.0 

S  2 

- 

0.32727 

S6 

31 . 5644  1 

SB 

- 

51 . 76605 

S 

0.0 

O'  'O'  xl'  O'  O'  x*'  O'  O' 

•*p-  -V*  04x  -yx  ',X  >fx 

O'  xi#  O'  x*'  O'  x*'  O'  O' 

'i'  -<•>  Oyx  "i"  *1'  -V 

xl.  xl'  O'  O'  O'  O'  O'  O'  O'  O'  xi'  O'  x*'  O'  O' 

',X  ',X  'jX  -,X  -y,  -,x  -,x  '(X  ZjX  ',X  '<x  ',X  ',X  '.X 

x*'  xi'  xA.  xV»  O'  O'  <A>  O'  O'  O'  O'  O'  O'  0' 
-4*  -'i"  '«■'  ■»*»  '*<*•  4"  v  "f*  "*v  6^  ■*•»'*  'i"  '•»'» 

O'  O'  O'  O'  O'  O'  -O'  O'  xi'  xi'  O'  O'  O'  O'  O' 

-*,x  '(X  'jX  ',x  'jX  'JX  .'jX  'jX  •'/V  >^x  '(X  '^x  'rx  'jX 

STP E AM 

SULPHUR  DEW  PT 

.  (DEG.  E)  = 

5  22.2 

STREAM 

WATER  DEW  PT. 

(DEG.  F)  = 

161.4 

■  vV  J/  O'  J/  O'  4»  x*'  v*'  %i*  O'  O/  O*  0»  sV  Or  O'  0/  O'  0«  O'  O'  O'  O'  vO  »(•  O'  O'  O'  O'  xU  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  >l»  xC  v*"  O'  O'  O'  »*'  x#'  O' 

,  ',x  <-,x  ',x  ^  .-yx  >  x  .'x  '.x  ',.  'yx  -Ojx  -,x  «  -V*  <Y'  V  *r^  •'f  -Y*  -A  'Vs  -Yc’*  ■'«'  -V*  ***>  **f'  4*  -V*  '1'  -V-  ■V'  T  '*<*'  "*r  •*♦**  'Y‘  -»*■»  "»v  T*  o  O,-*  'j*-  V  -v*  -V 


F QU IP.  MEAT  DUTY  ( BTU/HR  )  IS 


0.7224542E  C8 


STEAM  TEMP.  { DE  G»  F  . )  = 
PRESS.  { P S I  A )  = 
_ LATENT  HEAT  (BTU/L6) 

L.H.  CORRECTION  •= 
PRODUCTION  (LB/HR)  = 


421.3 


313.000 

802.2 


0.0 

0.9005469E  05 


,  xl<  O'  O'  -O'  O'  x*'  O'  x*'  O'  x#'  O'  O'  xi'  xV  O'  O'  O'  O'  O'  x*'  O'  O'  «V  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  xtr  O'  O' 

X  ',x  ',x  ',X  ',X  -,X  ',X  -yx  'yx  ',x  'jX  -'jX  '.X  'jX  'JX  ^  -V  ',X  'fx  -,X  >r*  %'  Y"  V  '<*  A*  ■*«*■  *»*  'l  ‘  V  '|V  '  “  ”Y»  Jr 


O'  O'  O'  O'  O'  O'  x*.  xA'  O'  O'  x*' 


'j'x  '.X  'JX  ',X 


x*'  O'  O'  xV  xl/  O'  O'  O'  O'  xC»  J'  xV  O'  x*' 

'jX  ^x  '(x  ^x  >yx  '(x  <,X  'jX  ',X  -yX  ']|X.  '|X  -,x  ',x 


PERCENT  0E  TOTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  66.19 


O'  O'  O'  O'  xU  O'  O'  O'  X*'  O'  O'  xV  O'  O'  O'  xi'  O'  O'  O'  x*'  O'  O'  O'  O'  O'  x»'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  x*'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O' 

'^x  '.x  '|X  'jX  'jx  ',x  ',x  '|X  ',x  '|X  '.X  ',x  'JX  'jX  '.x  'jx  'Vx  'jx  ^x  ',W  '^*x  '(X  '^X  /yx  'j*  ',x  ^x  '(X  ',v  <^x  >,x  rjx  'fx  '|X  -y x  '|X  '^X  'jx  .yx  x  '|X  *^X  '/x  'jx  yx  -*,x  ',x -«/x  »^x  ',x  '^x  '|X  y  X  'fx  'jX  '/X  -,x  'fx  ',X 


!  . 

'  . 

»  .  V  1 

I 

. 

• 

. 

•  ■  -  ■'  '  - 


,  r 

* 

•* 


?  '  -  .r- 


-  (  ie  )  »j»* 

(  : '  ' 

'  1  ) 


=  r  't  <!  !  ) 
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CONDENSER  I 

EQUIPMENT  NUMBER  3 


EQUIPMENT  PROCESS  FFED 


TEMPERATURE  (DEG.  E)  =  550.1  PRESSURE  (PSIA?  =  13.13 

STREAM  ENTHALPY  { BTU . )  =  -0.1064668F  09 


MOLE  NUMBERS  ARE  - 


CH4 


0.00000 


C02  - 


113.41223 


02 

0. 00000 

N2 

l 792.06385 

H2  0  - 

850. 77930 

H2S  - 

205. 74672 

S02  - 

102.36350 

S 

0.0 

S  2 

0. 32727 

$6 

31 . 56441 

S8 

51 . 76605 

S 

0.0 

■xfcy  -xiy  <4/  xV  x*/  v<»  »•/  xl>  xl/  x>#  X*r  J<  ,1^  -J»  -J*-  *•/  <A«  »)'  xlf  Jy  »*y  J/  x#y  x<y  Jy  xl»  >ty  x*y  Jy  vly  -Jy  -X*y  >Ay  Jy  -xiy  x*y  Oy  jy  Jy  -xiy  Jy  Jy  jy  x*y  J»  4y  x*y  Jy  xiy 

y,x  y,v  y,x  -,x  y,\  y,x  y,x  y,v  y  x  y/x  y^x  y,«  y,x>(x  y,x  ',X  yjx  y,x  y,x  yjX  .(x  y,x  yjX  y(x  y^x  i(x  y,x  y,x  y,x  yjx  y|X  yjV  >;x  y^x  y,v  y^x  y,x  y,x  y^.  y^x  >|X  ^x  yjX  yfx  yfx  yjx  -*/x  y^x  y^x  yjx  yjX  >(X  y,x  y.x  y?x  yjV  y,»  y^v 


CONDENSER  DESIGN 


TUBE  LENGTH  {  FT.  )  _= _ _  ___  1 1  ._3 

TUBE  DIAMETER  (IN.)  =  1.000 

NUMBER  OF  TUBES  =  1316 


MAXIMUM  FL ON  RATE  { LB/ SQ . FT . SEC )  =  4.00 
OUTLET  GAS  TEMPERATURE  ( DEG . F }  =  375.0 
U  (OVERALL?  ( BTU /HR. SQ.FT. DEG. F)  =  14.11 


■  xiy  xjyy  x*y  Jy  x*y  xAy  «#y  -Ay  x*y  x*y  xAy  -xiy  -xiy  *iy  xiy  S*y  xiy  xiy  xiy 

■  *1'  '4'  V  y^x  y,x  y,x  y,x  ^  ->x  <,x  ^  y<x  yjx  y,x  -r  yyx  ^  y,- 


EQUIP.  HEAT  DUTY  ( BTU/ HR )  IS 


0.73 3902 4E  07 


STEAM  TEMP.  ( 0 E G t  F .  )  ~ 

PRFSS.  (PSIA)  ■= 
LATENT  HEAT  (BTU/LB) 
L.EU  CORRECTION  = 

PRODUCTION  (LB/HR}  = 


_ 310.3 

78.000 

901.6 

_ 0.0 

0.8  140008E  04 


X»y  -x«y  x<y  Jy  .4  x<y  Jy  x‘y  ^y  -xiy  xiy  Jy-Jy  xiy  x<y  ^y  ^y  ^y  Jy  x»y  ^  ^  ^  4  J»y  x^y  x«;xiy  Jy  Jy  Jy  Jy  J,  Jy  4y  x»y  jjy  J5  Jy  Jy  Jy  4y  Jy  xiy  ^  xj;  jJ;  J*y 


• 

• 

( . 

> 


'  . 


■  f . 


.  0 

*'  !  . 


CALCULATED  SULPHUR  OUTLET 


F-  74 


PFRCENT  CONDENSATION  =  04. LO,  PERCENT  RECOVERY  =  37.5? 

. SULPHUR  FOG  -  341.80  MOLFS,  OR  10937.6  LBS. 

S UL PHU R  L I QU ID  -  72  6.70  MOLES,  0 R  '  7254 .4  LBS . 

(STREAM  NO.  13  ,  TEMPERATURE  =  319.3  DEG. F . ) 


:  #  5";  if  if  if  if  j*;  if  is  if  jje  £  if  ^  if  is  if  if  is  if  if  is  is  if  if  if  if  if  if  ^  ' 


SPECIFIED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 
( L R  S .  S  7 1 C  0  LB.  MO LF S  INFRTS )  =  5.0 0 


EXISTENCE  OF  DE-MISTER  PAPS  IS  IMPLIED 


REVISED  S U L D H U R  OUTLET 


PERCENT  CONDENSATION  =  94.10,  PFRCENT  RECOVERY  =  93.30 


SULPHUR  FOG  -  4.79  MOLES,  OR  153.3  LBS. 

SULPHUR  LIQUID  -  563.71  MOLES,  OR  18033.8  LBS. 

(STREAM  NO.  13  ,  TEMPERATURE  =  353.0  DEG.F . 3 


•  nV/  J/  xtr  xU  J/  x*-  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  -Jr-  Jr 

•  r^»  r(x  r(x  rjv  r,*  rfx  r^x  ryx  rjx  r|X  r,x  r- x  rjv  r^v  rjV  ,-XjX  rjs  r,x  ryx  rjx  r, V  rjX  r(x  r,x  ryx  rjX  >,*  rjx  -X.X  r. V 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  6 


TEMPERATURE  (DEG.  F)  =  375.0  PRESSURE  (PSIA)  =  13.02 

STREAM  ENTHALPY  (BTU.  )  =  -0.U53934F  09 


MOLF  NUMBERS  ARE  - 


CH4  - 

0.00000 

CO  2  - 

113.41223 

02 

0.00000 

N2 

1792.06885 

H20  - 

850. 77930 

H2S  - 

205.74672 

SO  2  - 

1 02.86850 

S 

0.0 

S2 

0.00164 

S  6 

1.04076 

S3 

3.67744 

S 

4.78906 

Jr  Jr  Jr  Jr  Jr  Jr  X*r  Jr  Jr  Jr 

4*'  •'f'  "T*  T  4^  V  4**  V 

x*r  x<r  Jr  xlr  Jr  x*r  Jr  x*.  Jr  Jr  Jr  Jr  >V  -x*r  Jr  xJr  Jr  xtr  xV 
r,x  .-(x  r,x  ryx  JjX  ryX  r,x  >,x  r,X  r,x  ^  -jX  r<x  r, x  r,x  rp  »,x  r,x  r,x 

sj<  ;!<  is  if  if  if.  if  if  if  if  if  is.  if  if  if  if 

if  is  sjt  #^5  if  if  is 

"  .!/ 


.  1.  .  r  f 


t  •  r  ‘  . 


<  - 


’  . 

. 

i ' 


S'  ■  '  •••  ••  '•  •  '  ’  '*1  .. 


. 

- 

. 

.  . 
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ADIABATIC  STREAM  COMBINFR 

EQUIPMENT  NUMBER  4 


*r  &  5)0}:  >!£  *  *  sjc  sj:  sjojc  *  sj<  j*c  ;*£  s)c  3^  ;J;  3jc  $  2jf  #:  ^  s<  #  ^  sc  ^  #  '!<  >}c  *  *  sfc  ;Jc 


COMBINE  STREAMS  5  AND 


F I  NO  GIVEN  FEED  STREAM  RESULTANT  TEMPERATURE 


ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


^£^jj£  #  jjs  %c$c  #  -if.  -if.  %  jfc  j>«  $  £  ^5jc£?£  *  ?|;  >|£  %  ^  ix  jfc  3>:  ^£  :;■--  :*c  =*c  *  f-  #  3<  *  ❖  s£  *  if.  i,x  i\c  *  *  #  #  ##$  #  =J;* 


FINAL  CONVERGED  TEMPERATURE  IS  455.0  DEG.  F 
PRESSURE . (PS  I  A. ) . = . 18.02  (CRIT  =  0.  10F-Q3 ) 


'V  -J'  *4  .V  V-  vO  -Jk  J/  -»t>  ></  Or  si.  J.  J.  <A»  O.  «>.  si.  »*.  O.  J.  O.  J.  J.  sV  J- 

"(*»  ~  •('■  't'  "  -,•'  '■'('•  V  -1V  »,'••'('  •'i'*  -'!*•  ^1V  T  *■,»  V  V*  ■'>' 


J»  j.  j.  -V*.  s*.  sO  v1.  J.  j.  si.  sir  sir  si.  Jr  si.  Jr  J.  J.  Jr  sir  J.  si.  sir  sir  Jr  -J.  Jr  sir 

.jS  .j‘  r,s  r,l  r(s  ryv  r,s  r(s  .(s  r^s  S  .rjS  •*,'  >^s  rjs  r,s  ^s  -,s  rjs  rji,  ,,s  rys  .^s  ^s  .jv  rjS  ^s 


si,  si.  s 

-Y-  •■ 


PREDICTED  STREAM  SPLIT  FOR  TEMP.  OF  455.0000  IS  0.0547 
use  STREAMS  RESULTING  FROM  THIS  PREDICTION 
_  FOR  PRESENT  EQUIPMENT  OUTLET  STREAM. 


S  -J|s  -TjS  ,jS  - 


COMBINED  OUTLET  STREAM  (SULPHUR  SHIFT  DONE)  - 

STREAM  NUMBER  7 


TEMPERATURE  (DEG 
STREAM 

.  F)  =  455.0 

ENTHALPY  ( 3TU 

.  ) 

PRESSURE  (PSIA)  =  13.02 

=  — 0. I 197562F  09 

MOLE  NUMBERS  ARE  - 

C  H  4  - 

0.00000 

C02  - 

119.97998 

0? 

0.00000 

N2 

1395.84814 

H2  0  - 

900.03052 

H2S  - 

217.67937 

SO  2  - 

1 08.83453 

S 

0.0 

S2 

0.02053 

S6 

3.44720 

S8 

6.83664 

S 

0.0 

■%  jJ:  t'  A  A  A  =|£  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  ^sjjc  AAA  A  A  A  A  A  A  A  A  *  A  A  A  AAA 

J,  J,  sV  Jr-  ^  sV  si.  sir  J,  sir  sir  J.  J,  Jr  sir  J. 

Y*  Y  Y  <V'  V  -Y  Y  "('■  ■V'  Y  'r  Y'  *C" 

STREAM 

SULPHUR  DEW  PT . 

( DEG.  E  )  = 

406.2 

STREAM 

WATER  DEW  PT. 

(DEG.  F)  - 

16  2.2 

A  A  A  A  A  *  A  A  if. 

•J,  sir  Jr  Jr  sir  si,  si.  s*.  s*.  si.  s*r  Jr  si.  si. 
r,s  ,,s  ,,S  r,s  ,(S  s  ,fS  _»|S  rys  ,-S  r,s  ,jS  ^|S 

si,  sir  si,  si.  sir  s*.  si.  sir  s*.  J,  sir  Jr  s*.  J, 

,,s  ^s  r,s  r,s  -^s  r,\  JJs  *ys  '|'  J,s  ^s 

s*,  si.  *J,  sir  Jr  sir  s*,  Jr  sir  si*  J.  s*.  Jr  J.  s*.  -Ar 
r*,s  -(s  ryS  r/S  r(s  .^s  r^s  r^s  r»,s  rfs  r,«  ,jS  ^s  r|S  ,f%  ,vs 

)  ’■  . 


!  =■■(.*?  1 


, 


(  . T 


:  ’•  ’ 
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_ CONVERTER  1 _ 

EQUIPMENT  NUMBER  5 

*  ❖  t  *  *  ❖  *  *  *  %  *  *!:  s*c  #  *  £  #  #  #  >!;  '&5fc  #3$:  jft  #  £  *  #  #  #  #3{«  #  jfc  #  ^  #  ■#:  j{e  #  #  4!  jjj  j}s  ^  j{c  £  4s  #  s{t  £  4s  4c  # 

EQUIPMENT  PROCESS  FEED 

TFMPERATUPE  (DEG.  F)  =  455 . 0  PRESSURE  (PSIA)  =  13.0? 

STREAM  ENTHALPY  { BTU . )  =  -0.1197562E  09 


MOLE  NUMBERS  ARE  - 


CH4  - 

0.00000 

C02 

119.97998 

02 

0. 00000 

N2 

1895.84814 

H2  0  - 

900.03052 

H2S 

217.67937 

SO?  - 

108.83453 

S 

0.0 

S2 

0.  02053 

S6 

3.44720 

SB 

6. 83664 

S 

0.0 

X  X  X  y*y  X  X  X  X  X  v*y  X  Jy  y*y  X  X  X 

y^y  yjV  y(y  y,y  y.y  y(y  -*.yy  y|y  y^y  y^y  y,y  yj v  y,x  yjX  y,x  y  jX 

CONVERTER  BED 

X  X  X  X  yly  y*y  X  X  Jy  X  Jy  X  X 

O'  -y,x  y^.  y,x  yjX  y,'  O'  O'  ^  y,x  yyy  y,y  J,x 

Jy  -Jy  Jy  Jy  Jy  Jy  Jy  Jy  Jy  -Jy  X 

O'  -Tjy  y,x  -^x  yfy  y^x  y^y  y,x  y,x  y,x 

Jy  Jy  Jy  Jy  -Jy  Jy  Jy  Jy  Jy  Jy  Jy  X  Jy  Jy  Jy  Jy  Jy  Jy  X  Jy 

y,x  -*jx  y.x  yp.  y^x  y,x  y^x  y,x  y^x  y,x  <^x  *.y  yyx  -f.  y^x 

( DESIGN) 

CPUS  SECT  TONAL  AREA  (SQ.FT)  =  511.34 

THICKNESS  (FT.)  = _ 3. 00 

VOLUME  (CU.FT.)  =  1534.03 

LINEAR.  GAS  VELOCITY  (FT. /SEC.)  =  1.00 

MOJLAL  FLOW  RAJE  (MOLE /HR  .SQ.FT.  )  =  2.1? 

A V ER AGE  P A R T  I C L F  DIAMETER  (IN.)  =  0.20 

PRESSURE  DROP  (P SI.)  =  0.307 


•JU  nO  -»ly  *1y  Jy  -Jy  Jy  N*y  Jy  yly  Jy  xl/  Jy  yly  ><y  s(y  nO  <A>  yly  yly  vly  yly  y|y  y|y  y*y  -X  X  X  X  Jy  X  X  X  X  -»*y  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X 

y,»  »,%  y,y  y,'  y|^  y/x  y,»  y,»  y/y  y,y  yjy  y-jV  >,»  .-,y  y,-.  yjy  y>  y,y  y,y  y,-.  y(*  /|\  •<{-.  yjy  y,v  y,y  yyv  y,s  yyv  y,y  yp  y,v  y^y  y^y  y.y  ';v  y^>  yjX  y(y  y,»  >)»  yjy  yjx  #fy  yjy  yj»  yjy  y,y 


ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


X  X  X  Jy  X  Jy  X  X  X  «Xy  X  X  X  X  X  X  *V  X  X  X  X  X  X  X  X  X  X  X  X  X  J*  X  X  X  X  X  X  X  X  X  X  X  X  X  A-  X  X  X  X  X  X  X  X  X  X  Jy  X  X  x  x 
-/v  yr  -»>'  “o  'i-  ■'**■  'X  *b  *•"  v  ■'*«■  ■,t*>  -'A  -r-  ^>v  'X  v  -i'  -x v  o'  '»*•  'A  *>'  o*«  o'  o'  o^  V  T  ov  -v-  o'  -iv  --v  o'  V  o'  *r*  O'  A-  v  o'  v  'i'  A"*  v  O'  -v*  o'  ov  v  'c  •'■*'  -<*  K* 

FINAL  CONVERGED  TEMPERATURE  IS  584.3  DEG.  F 
PRESSURE  (PSIA.)  =  17.71  (GRIT  =  0.  10F-03  ) 

4c  4:  4s  Sje  4:  #  4*  *  4J  4«  aje  4*  -if.  4s  4s  4c  4*  4s  #  4«  4c  jJs  j}s  4s  4c  4c  4*  4c  #  4c  4c  4c  #  4c  4  4  4  4c  4«  4*  4*  4c  4c  4«  4c  4c  4*  4c  4c  4c  4c  4c  &  4«  4s  41  4c 
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CONVERTER  dfu. point  check  - 


BED 

OEM  POINT 

TEMPERATURE 

BED 

TEMPERATURE 

TEMPERATURE 

DIFFERENCE 

PRESSURE 

480. 863 

420.555 

51.308 

17.955 

506.726 

446.422 

60.304 

17.893 

532. 5^0 

459.021 

72.669 

1 7.832 

558.453 

471.347 

87.105 

17.  770 

584.316 

481 .370 

102.937 

17.709 

-k  -£:£*  sk#  #  =k  &  %  ^  *>£  1?.  sk*  #  #  #  #3}c  *  ^  a}c  $$  sjc$ 


. PERCEN T  . Of..  TOTAL  INLET  SULPHUR 

OUT  AS  ELEMENTAL  SULPHUR  =  77.81 


PERCENT  OF  NON -ELEMENTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  72 .68 


*  *  *  *  *  *  *  *  5k  5k  *  *  *  *  *  *  *  #  *  *  *  5k  *  5k  5k  *  *  ❖  5k  5k  'k  $  $  5k  5k  5k  5k  *  *  *  *  *  *  *  *  *  *  *  ^  *  5*1  *  *  #  5$C  5*C  * 


CONVERTER  EXIT  STRFAM  - 


STREAM  NUMBER 

8 

TEMPER  AT! 

JR E  (DEG.  F)  =  584.3 

PRESSURE  CPSIA)  =  17.71 

STREAM  ENTHALPY  ( 8 T U . )  = 

-0.11O7562F  09 

MOLE  NUMBERS  ARE  - 

CH4 

02 

0.00000 

0.00000 

C02  -  119.97908 

N2  -  1895.84814 

(120 

S02 

S2 

1058.24731 

29.72585 

0.56853 

H2S  -  50.46198 

S  -  0.0 

S6  -  21.55560 

O  Z _ ~ _ vj  ♦  D  J  O  13  .*> _ u  O _ i  •  ? 

S3  -  27.78401  S  -  0.0 


5k  5k  5k  '-k5k  -k  *  *5k  *  ^s^k  *  =*<  t~  k  sk  #  5k sk  $  *  #  *  sk  ^  5k  s{c  sk  *  sk  £  £  sk  =k  5k  sk  >k  *  sk^k  #  *  sk  *  =k  sk  =k  sk  sk  =k  5k  ❖  ❖  >k  sk  ❖  =k 


MV  < 
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_ BLACK  BOX _ 

EQUIPMENT  NUMBER  6 


###=!«  sfc##*##  Jfcsjc##  $  #  $  s{c  #  Sjc  *  5?;  #  -s[£  :£  sjt  &  #  ;»c  *sjc,-*: 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG 

.  F)  =  584.3 

PRESSURE 

(PSIA)  =  17.71 

STREAM 

ENTHALPY  { B  T  U . )  = 

-0.1197562F  09 

MOLE  NUMBERS 

ARE  - 

CM  4  - 

0. 00000 

C02  - 

1  19.97993 

02 

0. 00000 

N2 

1895. 84814 

H2  0  - 

1058.24731 

H2S  - 

59.46198 

S02  - 

29. 725  85 

S 

0.0 

S2 

0. 56853 

S6 

21.5556C 

S3 

22.78401 

S 

0 . 0 

^  y#  'E  »*j  >e  *•'  -jj  y<  y#  -v  a-  y»  y^  j/  y>  jr  . 


■  >v  J;  y*  y-  y*  y#  y-  »v  y»  ^  »*-•  •»*«•  »v  *»v  <-v  ■j*-  ^  vv  -a>  %*«  st/  j*  j»  j*  j»  ->•»  ^  -*v 

'  A'  ■'('  'J'  ^  •A'*  /^s  ~^s  J-.-»  Av  AS  >(H  .»J-V  »^\  ^  i>(S  -/,S  ^,S  -4>  V  ^s  /,*  .'.  V  <,5  >(-V  AS  *,S  A,S  »,S  >(S  <jS.  >|S  4(s 


TEMPERATURE  CHANGED  FROM  534.3  TO  575.0  DEG.F, 


(ENTHALPY  DIFFERENCE  IS  -0.L62323E  07  BTU/HR . ) 


«V  si*  J/  \V  si. 

A.ls  //.  /.s  AS  //* 


'-.-■S  AjV  »/>  -jS  AjS  4 


:❖#  >{s  jjs.#a$c  sjc  jJ;  #  J$t3jc  $£$$:  #  a{£  # sj: 5*c  j*c  ;Jt  *  sjc * 


STREAM  NUMBER  0 


TEMPERATURE  (DEG 
STREAM 

.  F )  =  5  2  5.0 

ENTHALPY  (  B  FIJ.  )  = 

PRESSURE  (PSIA)  =  15.90 

-0. 1213795E  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.00000 

CO  2  - 

119.97998 

02 

0. 00000 

N2 

1895.84814 

H20  - 

1058.24731 

H2S  - 

59 . 46 198 

SOP  - 

29.  725  85 

S 

0.0 

S  2 

0. 17664 

S6 

16.69316 

S3 

26.52879 

S 

0.0 

•A/  si/  s^  J/  S(/  si/  »•/  si»  >•/  si/  si»  x*/  sl/  sA»  si/  s*/  si/  si/  y»  »!/  -si/  si/  S*/  %!/  s 1/  \i/  J/  si/  si/  J/  si/  si/  sl/ 

/,s  /,s  /S  /(S  /|S  »,S  /(S  /|S  /j-s  I,s  /,«.  /,s  Jfs  /,s  /j-s  »,s  /jS  /  s  -(s  /,S  /(s  /,s  z,V  jys  /,v  ^s  /,4s  Y>  'fS  •'V*  V  '|4  3' 

sl/  sl/  sl/  >1/  si/  si/  S.I/  ss*/  -sl/  sl/  sl/  -sl/  sl/  sl/ 
»tN  /,s  /,s  /|S  /jS  Z,s  ,-js  /(S  /|S  >,S  /,s  /j\  /|S  /|S 

Ssl/  sl/  sl/  sl/  sl/  sl/  s|/  »•/  S*/  sl/  s*/  si/ 

/(S  /fS  /jS  /(s  /,».  »(s  /,s  /,s  /,s  /,S  /,*  /^S 

,  r 

: . 


. 

• 

r  <  ♦  .*  -  1 

, 

* 


. 

.  !  .  e 

. 

- 

- 
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CONDENSER  2 

EQUIPMENT  NUMBER  7 


vO  ^  -J/  Jv 


*  ^s^jjc&sljs  ^ sj;  $  #  5;:  :£  ;>;  :Js s{e  * #  j{; # * it  A* ^ ^  #  sjc  #  j}c  #  j$c  s{s  ^ ij;  j{e s|c *  :£ jjc sj< 


equipment  process  feed 


TEMPERATURE  (DEG.  F)  =  525.0  PRESSURF  (PSIA)  =  15.90 

STREAM  ENTHALPY  (BTU.)  =  -0.1213795E  09 


MOLE  NUMBERS  ARE  - 


CH4  - 

o. ooooo 

€02  - 

119.97998 

02 

0. ooooo 

N2 

1895.84314 

H20  - 

1058.24731 

H2S  - 

59.46198 

SO  2  - 

29. 725  85 

S 

0.0 

S2 

0.1 7664 

S6 

16.69316 

SB 

26. 52879 

S 

0.0 

Jy  -A»  Jy  x'y  Jy  xJy  J/ Jy  Jy  Jy  xU  x<y  -Jy  xly  Jy  Jy 

yjx  -p  px  y,x  ->  y  x  y^x  yp  y,x  yp  .y^ x  yp  y(x  yp  y.x 

*5j:  £  *  t»c  *  *  #  *  #  * 

%###  ijl  #  if:  # 

CONDENSER  DESIGN 


'*'■  j'  A  O/  >A»  «ly  >0  O/  *'/  Jy  Jy  Jy  J'  jy  >>.  -A-  jy  •%<»  Jy  vt/  Jy  Jy  Jy  -Jy  v'y  ^  9?  v'y  Jy  wty  Jy  Jy  Jy  Jy  J'  N*y  tly  <Jy  -,ly  V*y  xty  Vy  Jy  nV  \*y  vAy  Jy  «>y  »<y  x(y  Jy  v*y  4y  Jy  Jy  ^y 

y(^  y,*  y,v  y  >  -fx  -•'»  *j'-y|‘  'i*  -./»  6 ■  '.'  -yj'  yj*  -*>x  y(v  y, «-  yj*  >*('*  yjv  <(»  y|'  y,v  y  '  >j*  y<%  Jp  yyx  yj*  »j»  y^  yjv  y(»  y^x  yp  y,».  yj\  y(v  yj\  y^,  y,-»  y(s  y/%  y,»  y^>  yjv  ./>  y.x  yj.  yp  —,x  »4-,  pK 


IUBE  LENGTH  (FT.)  =  16.0 

T  UB  E  DIAMETER  (IN.)  =  ~ . . 1 . 00  0 

NUMBER  0E  TUBES  =  1167 


MAXIMUM  FLOW  RATE  ( LR/ SQ . F T . SEC )  =  4.00 
OUTLET  GAS  TEMPERATURE  (DFG.F)  =  335.0 
U_  (OVER A 1 L )  ( BTU /HR . SQ. F  T  .DEG .F)  -  14.79 


s(y  -Jy  %'y  -Jy  »ly  -Jy  Jy  %ly  Jy  Jy  Jy  xO  Jy  Jy  xV  Jy  Jy  -Jy  Jy  -Ay  Jy  -Jy  xV  Jy  -Jy 

'i'  Jp  yp  -*6  '•('  '(*■  *)'■  ',••  6*-  "«H  ^  ■'f'  '»•*  -"j**  6V  -*i"  -'•v  ”1'  yy*  v  V  -'(* 


-yx  yp  y,v  • 


-  yp  yp  -|X  yp  y,x  yjx  y,v 


EQUIP. 

STEAM 

HEAT  DUTY  ( BTU /HR  )  IS 

TEMP.  (DEG,F.)  = 

0.6325072E  C7 

310.3 

PRESS.  (PSIA)  - 

78.000 

LATENT  HF  AT  ( BTU/ LB  )  = 

901.6 

L.H.  CORRECTION  = 

0.0 

PRODUCTION  (LB/ HR)  = 


0.7015395F  04 


-  ■' 


. 


, 

. 

•• 


.  . 

e-  so 


CALCULATED  SULPHUR  OIJTLFT 


PERCENT  CONDEN  SAT I  ON  =  95.17,  PERCENT  RECOVERY  -  42.96 

. SULPHUR . FOG. . -  163. 2 A  MOLES,  OR  5224.4  LBS. 

SULPHUR  LIQUID  -  134.37  MOLES,  OR  4299.8  LBS. 

(STREAM  NO.  10  ,  TEMPERATURE  =  314.8  DEG.F.) 


>•/  vt-  yJ*-  >/-'  -A*  \V  ’A*  JU  -A/  Aj-  >J»  X  ->*»  X  X  X  X  X  X  X  X  vV-  X  X  X  X  yl#  X  X  A/  X  O,.  X  >*■>  X  X  X  X  X 

>VV  *1^  A,,  ^  ^  ^  ^  <*jS  -'('  r,.  '1 '  '  '  -*j.  /|\  rj'~  yj>  -*,v  /jt  'jV  —,*■  •''I  •  ^ v  ^,V  r^\  ^  '|X  -•(% 

SPECIFIED  MAXIMUM  ALLOWABLE  EOG  FORMATION, 

(  LBS  .  S /  ICO  LB. . MOLES . INERT S  ) . = . 3.00 

 EXISTENCE  OF  COALESCER  IS  IMPLIED  


REVISED . SULPHUR . OUTLET 


PERCENT  CONDENSATION  =  95.17,  PERCENT  RECOVERY  =  94.22 


SULPHUR  FOG  -  2.97  MOLES,  OR  94.9  LBS. 
SULPHUR  LIQUID  -  294.67  MOLES,  OR  9429.3  LBS. 
. (STREAM  NO. . 10  ,  TFMPF  RAT  UR  E  -  325,8  DEG.F.) 


j)c  if.  5^5^  ;;;  ^  i\c  •)£.  >‘t  i;. i'f.  y,;  sjc  t.%  3$c  #  ijc  ^  ^  : 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  11 


TEMPERATURE  (DEG 
STREAM 

.  F)  =  335.0 

ENTHALPY  (BTU.)  = 

PRESSURE  (PSIA)  =  15.69 

— 0. 1 284636E  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C02  - 

1 19.97998 

02 

0. 00000 

N2 

1395.84814 

H20  - 

1058.24731 

H2S  - 

59.46198 

SO  2  - 

29.  ?25  85 

S 

0.0 

S2 

0.00040 

S6 

0. 38528 

S8 

l . 599  74 

S 

2.96556 

:  sjt  *  jc  #  ;Jc  *  *  £  #  :Jc  ^  $:$e  *  s^t  -if.  Of.  5j;  s|:  *  3^  #  *  #  >fc  sjc  Jjs  #  &  $:  sfi  #  'It  £  sjc  5|c  ^  # 


V  . 


-  .  '  •  -i  ■! 


.  t  ,  I  . 


V  . 


I  J 


t 
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_ BLACK  box _ 

EQUIPMENT  NUMBER  8 


sO  >X»  4/ 


Ax  4/  J/  4i>  4/  4/  *t*  4»  4^  4y  4x  4»  4y  si/  4/  4y  >4'  4^  -J#  4«  Ax  4/  *l#  4y  4y  4/  »♦»  »(/  4<  4y  4^  4y  -4»  vV  vU  Ay  4*  4y  4'  4y  4y  4»  >1/  4r  4/  4/  Ax 

y,»i  >|\  ^  yjS  '|\  ^  *^v  •(>  .*('*  >fv  yfx  ^|V  X|V  x,W  /jS  x^v  ',V  y,v  >|i  yjX  r,v  -*,v  Xj  v  - ,V 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  335.  C 

STREAM  ENTHALPY  (BTU.)  = 

PRESSURE  (RSIA)  =  15.69 

-0.1284636F  09 

CH4  - 

MOLE  NUMBERS 

0. 00000 

ARF  - 

CO 2  -  119.97098 

02 

0.00000 

M2  -  1805.84314 

H20  - 

1058.24731 

H2S  -  59.46198 

SO  2  - 

20.725  85 

S  0.0 

S2 

0. 00040 

S6  -  0.38528 

S8 

1 . 50974 

S  -  2.96556 

4y  4y  4y  4»  4y  4y  4/  4tf  4y  4y  4'  \(y  4y  4y  4>  4»  4>  -Ay  4y  Ay  Ax  4y  4/  4y  Ay  4y  4/  4y  Ax  Ax  4y  si*  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax 

'l'  "C-  V  "V*  'I'  '/s  v  -v*  *V*  '■•  ■*,»  -'f  'f<  *V-  x,-  -.V  X,-  ','  x}%  xyv  *,■»  -,<  X,-  -,-  x,-.  y,%  ^  yj'-  X^»  x,\.  X(%  *jv  V  yl»  V  V  '•)">  -4*-  '<v  ■'(*  ■'I*  ')*  'i"  •o^.  *r  y,»  *-.*•  «,»  xj%  y,^  x^»  ->,»  y,'  *y*  *p  V  T  4s- 

TFMPER ATURE  CHANGED  FROM . 335.0 TO  400. 0  DEG.F. 

(ENTHALPY  DIFFERENCE  IS  0.159610E  07  BTU/HR . ) 

Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  \i*  Ax  4*  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ay  *«»  Ax  -Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ay  Ax  Ay  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  Ax  J»  Ax 

x.v  x^x  x,s  /,.  - x,C  'jN  xrv  >,»  x,^  X,x  xj*  x,v  Xj*.  x,«-  x,v  X,v  X.-.  -y*  x,-»  x^  X,'  x,v  X(».  y,-  x(^  Xj'-  x^  *>>•  »jx  x,-v  x,-»  X,~  -/»  y,-»  x,v  x,v  x(-.  x,v  .-*{%  *Y*  x^v  X^  X^H.  x^v  X^-S  x,-  x,«  x^  X,-  *(N  x,t  Xy% 


STREAM  NUMBER  12 


TEMPERATURE  (DEG.  F)  •=:  400.0  PRFSS'JRE  (  f»  S I A  5  =  14.50 


STREAM  ENTHALRv  (BTU.)  =  -0.12S8675F  09 


MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

CO  2  - 

119.97008 

02 

0. ooooo 

N2 

1 895. 84814 

H2.0  - 

1058.24731 

H2S  - 

59.46198 

S02  - 

29. 72585 

S 

0.0 

S  2  - 

0.00351 

S6 

0. 77929 

S3 

1.67415 

S 

0.0 

■  • 

* 

• 

• 

.  \  ■  f  ’•  \,  r  j  ,  ■ 


(  J  * 
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« 
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_ CONVERTER  2 _ 

EQUIPMENT  DUMBER  9 

44444444  *  VC  *  4444444444  *  4  *  *  4  3C6  *  *  4444444444444444444444444444  *  *  * 


EQUIPMENT  PROCESS  FEFD 


TEMPERATURE  (DEG.  F)  =  400.0  PRESSURE  (PSTA)  =  14.50 

STREAM  ENTHALPY  (BTU.)  =  -0.1268675E  09 


MOLE  NUMBERS 

ARE  - 

CH4  - 

0.00000 

C02  - 

119.97098 

02 

0.00000 

N2 

1895.84814 

H2  0  - 

1058 . 24731 

H2S  - 

59.46198 

SO  2  - 

29. 72585 

S 

o 

• 

o 

S2 

0.00351 

S6 

0.77929 

SB 

1.67415 

S 

0.0 

'■  *  *44444  Vc  4  *  *  *  4  4  *  4  4  4  4  4  4  4  4  Vc  V'-  *  4  4  44  44  44  4  4  4  4  4  4  4  44  4  4  4  44  4  4  4  4  44  4  *  *  4£ 


CONVERTER BED . . . . . . . .  . .  _  (  QF S  I  G N  > 


CROSSECT IONAL  AREA  (SQ.FT)  =  583.  75 

THICKNESS  (FT.)  = _ i.qq 

VOLUMF  (CU.FT.)  =  1 751 .24 

LINEAR  GAS  VELOCITY  (FT. /SEC.)  =  1.00 

MOLAL . FLOW . RATF  (MOLE/ HR. SQ.FT.)  =  1.81 

AVERAGE  PARTICLE  DIAMETER  UN.)  =  ”  0.20 

PRESSURE  DROP  (d$i.)  =  0.190 


444444444444  44  44  44  4  4  4  44  4  44  4  44  4444*  4  44  4  44  4  44  44  4  444  44  44  4  4  4  4  4  *  * 


I TERATI VE . ADIABATIC  TEMPERATURE  CALCULATION 


444444444444*44444444444444444444444444444444444444444444 


FINAL  CONVERGED  TEMPERATURE  is  438.3  DEG.  F 

PRESSURE  (PSIA.)  =  14.31  (GRIT  =  0.10F-03  ) 


* *  * 4 * *  * * 4  * *  4  44  444 4 444  4  44  4  444  4  4444444 4  44444444 444 4  444 4444444 4 


- 


'  T 


( 


(  . 


•  . 

• 

'  •  * 

*  .  J 

i 
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CONVERTER  DEW  POINT  CHECK  - 


BED 

TEMPERATURE 

DEW  POINT 
TEMPERATURE 

TEMPERATURE 

DIFFERENCE 

BED 

PRESSURE 

407.656 

359.868 

47.788 

14.462 

415. 3 1 2 

373.696 

41.616 

14.424 

422.968 

334.405 

38.563 

14.386 

430.624 

393. 181 

37.443 

14.348 

433.280 

400.676 

37.604 

14.310 

****:*****£***£:**£❖*£***#;::*#  &  *  ^  $  £  *  £  *  i!;#  *  £  *  #  *  *  *^(*$**  #  *  *  * 


. PERCENT . OF . TOTAL  INLET  SUL P H U R 

OUT  A S  EL E M E NT  A L  S UL PHUR . = . 76.51 


PERCENT  OF  NON -ELEMENTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  71.75 


£  *  t  %c  -I:  *  £4=#  4e  j}c  #  #  4c  a{e  #3jc:fc#  4c  4c  4c  44  4=:  4*  4c# 4c  4: 4c  $#$##  4c  4c  4c##  ##  #4c  ###  #  4«## 


_ CONVERTER  FXIT  STREAM  - _ 

STREAM  NUMBER  13 

TEMPERA T  UR E  { DEG.  F )  =  438.3  PRESSURE  ( PS  I A )  =  14.31 

ST R E A M  E NTH AL P  Y '  Tb T U .  )  •=  ~-0.1268675F~ 09 

 MOLE  NUMBERS  ARE  - 


CH4  - 
02 

0. ooooo 
0.00000 

CO  2  - 

N2 

119.97998 

1895.84814 

H20  - 

1 1 00. 90796 

H2S  - 

16. 80060 

SO?  - 

8 . 3  q5  17 

S 

0.0 

$2 

0.01558 

S6 

3.4365  1 

S  8 

7.67722 

S 

0.0 

4c  4c4c#####4c  ############  4c  ###########  ###4e  #######  #4c####4c  #4c####  ##4c 


-  -1 

. 

. '  . 

, 

I  . r 


I  1  • 


.  ■  ‘  J  -  t  /!?■):'  1  ?  _•  .  v  (  '  . 

'  T  *  *  -- ■  f  . 


. 

■  I  •  r . 
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_ CONDENSER.  3 _ 

EQUIPMENT  NUMBER  10 

»»»*»*  * .*  p***********^*******************************  *  *  *  $  **** 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  ( DEG 
STREAM 

.  F)  =  438.3 

ENTHALPY  (BTU.) 

PRESSURE  (PSIA)  ■=  14.31 

=  -0.1268675E  09 

CH4  - 

MOLE  NUMBERS 

0.00000 

ARE  - 

C  02  - 

1 1 9.9799 8 

02 

0.00000 

N2 

1895.84314 

H20  - 

1100.90796 

H2S  - 

16.80060 

SO  2  - 

8.39517 

S 

0.0 

S2 

0.01553 

S6 

3.4365  1 

SB 

7.67722 

S 

0.0 

*****  %********  **  pJc#:p!cp;<p?:#p{; *  $-$$**$$$  #£#  **  j!c^?;i 


CONDENSER  DESIGN 


&  3j;  pjc3|{  p£:  pj;  p{c  p|c : 


-  ^*v  .. 


TUBE . LENGTH  (FT.)  =  13.8 

T  U  B  F  D I  A  M  E  T  E  R  (IN.)  -  . ~ . ’ . ~ . " . " . I  .0  00 

NUMBER  OF  TUBES  -  1043 


M  AXIMUM  FLOW  RATE  I  LB/SQ.FT. SEC )  =  4.00 
OUTLET  GAS  TEMPERATURE  (DEG.F)  =  265.0 
U  (OVERALL)  (  BT1J/HR  .SQ.FT  .DEG.F)  =  15.05 


*  ;J;  pV  *p‘:  *  p»;  pj<  ■%  #  ^  *  *  pjc  p£  p>c  p|;  p*e  #  pj:  5*c  &  p>c  p*c  p*c  p»c  p*c  *  -*  p’j  *  p*c  p»c  #:£:}:  pfcpfcpjjpjt:*:#  p£ 


E  01 )  J  °  .  HEAT  DUTY  (BTU/HR)  IS 


0.4585 5 6IE  07 


STEAM  TEMQ.  (DFG,F.)  = _ 

PRESS.  { P  S I  A )  = 

LATENT  HF  AT  (BTU/LB)  = 
L.H.  CORRECTION  = 

PRO  DU C,  f  I  ON  (  LB  /  H R  )  =  ‘ 


_ 2  5  5.9 

33.000 
943.8 
__  0.0 
0.48 58 68 OF  04 


#  %  #  &  #  #  p^;  pJcpCc  ##  pJc  #  p»t  #  #  &  #  ❖  &  ❖  #  ❖  &  *  $  #  X  af:  sjc  #  sfc  sje  p}:  #  pjs  # 3{t  if.  % #  pje  #  £  #  #  :$:  a{c  *  *  3jc  p{: 


) 


.  FT 

. 

.  \ 

• 

"  ! 

* 

•  ■'  •  •'  •:  ■ 


* 

*  ' 
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C.  ALCULA  TED  SULPHUR  OUTLET 


PERCENT  CONDENSATIGN  =  97.56,  PFRC EN T  RECOVERY  =  34.3  1 

. SULPHUR . FOG . - . 51.91  MOLES,  OR  1661.2  IRS. 

SULPHUR  LIQUID  -  23.15  MOLES, . OR . 900.9 LBS. 

(STREAM  NO.  14  ,  TEMPERATURE  =  253.1  DEG.F.) 


*  ***❖  £  #  t-  ❖  ^  if.  *;§;  j*=  *t  #  #  %  sjc  #  jjc  *:  ##  sjs##  : 


5}c  #  jJejje 


SPECIE I  ED  MAX T MU M  ALLOWABLE  FOG  F  0  R  NATION , 
(LBS.  S/ICO  LB.  MOLES . INERTS") . = . 1 .00 . 

rX  T  STENCE  OF  CO  ALES  CER  IS  IMPLIED 


REVISED  SULP HUR  OUTLET 


PERCENT  CONDENSATION  =  97.56,  PERCENT  RECOVERY  =  96.37 


SULPHUR  FOG  -  0.93  MOLES,  OR  31.4  LBS. 
SULPHUR  LIQUID  -  79.09  MOLES,  OR  2530.8  LBS. 
. (STREAM  NO.  14  ,  TEMPERATURE  =  263.1  DEG.F.) 


#  ^  >!'  ^  y;  #  *  SJ;  Jjt  *  Jf;  i;  jjc  *  £  )*c  %  jjs  j{c  #  #  J;  j*c  #  3}:  *  #  #  %  : 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  15 


TEMPERATURE  (DEG.  F)  •=  265.9  PRESSURE  (PSIA)  =  14.04 


STREAM  ENTHALPY  { BTU . )  =  -0.I316107F  09 


MOLE  NUMBERS 

ARE  - 

CH4 

0.00000 

C02  - 

119.97998 

02 

0.00000 

N2 

1  895. 8481  4 

H20 

1100.90796 

H2S  - 

16. 80060 

SO? 

8.39517 

S 

0.0 

S2 

0.00002 

S6 

0.03952 

SB 

0.22032 

S 

0.98186 

❖  'I-  #  ajt  ^  #  ❖❖  sfc  #  #  >!<  #  -ir-  #  $  #  Jj!**  %  : 


* 


, 

.  f 


T 

,  £  f  .  ‘  ’  ‘  > 

*  l 


-  *  '  '  (  '  '  •'  .  •••'  (  :  , 
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FXHAUST  GAS  ! MC  INFPATQQ 

EQUIPMENT  NUMBER  11 


♦  if  if  if  ##  ##  =Je  s^:  ^  *  *  *  if  #  if  *  *:  jjssjc  if  *  if  ->t  £  ^  *  j,  j,  j.  j,  ^  j- ^  j,  ^  j-  j; 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  {DEG.  F)  =  265.9  PRFSSURF  {PSIA)  =  14.04 

STREAM  FNTHALP Y  ( 8 T U . )  =  -0.1316107E  09 


MOLE  NUMBERS 

ARE  - 

C  H  4  - 

0.00000 

C02  - 

119.97998 

02 

0. 00000 

N2  -  - 

1895.84814 

H2  0  - 

1100.90796 

H2S  - 

16.80060 

S02  - 

8.39517 

S 

0.0 

S2 

0. 00002 

S6 

0.03952 

SB 

0.22032 

S 

0.98186 

•  '(*'  *>*■  Jn 


.  -*VX  ^  . 


:  ^  if  #  sjt  jJc  5[c  #  if  if  ^  s|:  :$:  #  if  *  ^  sjc  ^  3j;  :*j  3^  tJ;  if  *  ^  £ 


COMBUSTION  a  I  R_  - 

T  EMPERA”  TURF  (  D  EG.F) . =  . 70.  0 

PRESSURE  (PSIA.)  =  14.04 

RELATIVE  HUMIDITY  (PERCENT)  =  50.00 


RATIO  {SPECI FI  ED/ STOICHIOMETRIC)  AIR  ADDED  - 
_ FOR  COMBUSTION  OF  PROCESS  GAS  -  __  1.750 

FOR  COMBUSTION  OF  FUEL  GAS  - . ” . ~ .  . 1.2  50 


Yf  Y?  5*'  Yf  Y?  'Y  vY  Y'  »V  ^  ^  »>»  Yf  y.  \<#  -a.  a  »•#  a  a  a  a>  a  ^  a  «.«-  a  -j*  -ju  • 

-'f*-  -S'"  'l'  -'•>  '|'  «'»*  ■'('  V  -^,X  J,s  .p  #(■»  >1'*  •-(»  --,v  -.x.  /)»  ^  >»-  »)X  ",  V  '(X  >)X  <,x  /\x  ^x  /^x  . 


FUEL  AND  AIR  STREAM 
STREAM  NUMBER  19 


TEMPERATURE  (DEG.  F)  =  72.4  PRFSSURF  (PSIA)  =  13.00 

STREAM  ENTHALPY  { 8 T U . )  =  -0.3886507E  07 


MOLE  NUMBERS  ARE  - 


CM  4  - 

74 . 8  96  82 

C02 

O 

• 

o 

! 

□  2 

222.47003 

N2 

836.91089 

H2  0  - 

13.81532 

H2S 

c 

• 

o 

1 

SO  3  - 

0.0 

s 

0.0 

S  2 

0.  0 

S6 

0.0 

SB  .  - 

0.0 

S 

9.0 

if  if  if  if  if  *  if  if  ij;  if  sje  s’£  if  ajf  5,1?  if 

■if  if  if  if  if  if  if  if  if  if  it  >|f  i, 

f  if  if  it  fz  if  if  if  iz  :f  if  if 

*A»  A  J/1  x1*  >*j*  A  x>/  xV  x'/  -»V  A  A  >6  ■A.  x^  x*. 

<*?X  .'(X  -*^X  >,*>  *,X  "|X  ».(X  •’yX  *,x  «|X  aijV  »,X 

.V 

-  ( £ 

5 

. 

•  ■.  ■■  ■ 

' 

. ! 

*  ! 


'  r  , 

• 

. 
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INCINERATOR  EXHAUST  STREAM 
STREAM  NUMBER  16 


TEMPERATURE  (DEG 
STREAM 

.  F)  =  1100.0 

ENTHALPY  ( BTU • )  = 

PRESSURE  (  P  S I  A )  = 
-0 . 1 354969F  09 

14.04 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.0 

C02  - 

194. 

87679 

02 

44.49391 

M2 

2732. 

75  90  3 

H20  - 

1281.31689 

H  2  S  - 

0. 

0 

SO?  - 

?8 . 17735 

S 

0. 

0 

S2 

0.0 

S6 

0. 

0 

SB 

0.0 

s 

0. 

0 

.  I  -  f  •  *  » 


« 

. 
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_ _ SULPHUR  PLANT  STACK 

EQUIPMENT  NUMBER  12 

*  *  *  *  *  $  *  *  ###»##*##  s»c  ❖  #  **  j>;~!«  s|<;*£*  *:*;}£  ?*£:*:  £  * 

EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  1100. 0  PRESSURE  (PSIA)  =  14.04 

STREAM  ENTHALPY  { BTU . )  =  -0.1354969F  09 


MOLE  NUMBERS  ARE  - 


CH4  -  0.0 

CO?  - 

194.37679 

02  -  44.49391 

H20  -  1231.31689 

SO 2  -  28.17735 

N2 

H2S  - 
S 

2732.75903 

0.0 

0.0 

52  -  0.0 

53  -  0.0 

S6 

S 

0.0 

0.0 

;M£*&  *  $#*#.:{£  ***  ifc#*#**  *  *  *  #  #  *  *  *  £  *  *  !»£  *  5*£  #  £  !*£  £  #  *  *  3*£  i!<  ^£  *  *  i>£  ^£  £  *  *C  ^£  =*£  J<£  £  £ 

SULPHUR  °L ANT  STACK 

DESIGN 

AMBIENT  TEMPERATURE  (DFG.F)  = 

70.0 

EQUIVALENT  STACK  TEMPERATURE  (OFG.E) 
TOTAL  GASEOUS  STACK  FLOWRATE  CC.F.S. 
POLLUTANT  ( S 02 )  FLOWRATE  (C.F.S.  AT 

AT  TEQIV) 
TFQIV)  = 

62.8 

47  5.3 

3.  123 

STACK  OUTLET  TFMPERATURE  (OEG.F)  = 

90  0.0 

❖  #  £  *  £  *  *  *  =<£  *  *  #  *  *  #  *  ❖  ❖  ❖  #  ❖  *  5?£  £  *  *  *  J,'£  >:-'  ^  *  5|£  *  #  #  #  *  *  #  *  *  *  #  &  #  *  2*£  $  £  *  ^£  :|£  ^*;)£  £  £  *  %  ^ 

STACK  DIAMETER  (FT.  AT  TOP)  = 

3.18 

STACK  VELOCITY  (FT /SEC.  AT  TOP)  = 

60.00 

ATMOSPHERIC  CONDITIONS 

STABLE 

UNSTABLE 

STACK  HEIGHT  (FT.)  = 

144. 4 

116.9 

MAX.  GROUND  CONCENTRATION  (PPM)  = 
WIND  S°FED  AT  MAX.  (FT/SEC)  = 
DISTANCE  (SOURCE  TO  MAX.,  FT .  )  = 

0.2000 
14.67 
70  70. 

0.2000 

20.00 

2425  . 

EFFECTIVE  STACK  HEIGHT  (FT.)  = 

353.5 

242 . 5 

J*£  ^£  5$c * *  *  j£  < t  3jc 


)  V  :  !  ' 


’  •  .  f 

— 

i  r  ■ 

. 

•  . 

■  ■ . 

, 

.  0 

0 


.  ■  .  «  1 
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EXAMPLE  3. 


SPECIFICATIONS 


PLANT  FEED  (MOLES/HR#)  BOILER 


INCINERATOR 


CH4 

3 

C02 

310 

H20 

163 

H2S 

1604 

02 

761 

N  2 

2864 

•958  107.62 

.208 

•151  19.87 

.5 

•548  386.64 

•9  1454.49 


SPECIFIED  TEMPERATURES  AND  PRESSURES 

AMBIENT 
BOILER  FEED 
BOILER  STEAM 

PRIMARY  (BOILER)  EQUILIBRIUM  CUTOFF 

SECONDARY  (MASKING)  CUTOFF 

NO.  3.  CONVERTER  INLET 

NO.  2.  CONDENSER  INLET 

1ST*  2ND*  AND  3RD  CONDENSER  STEAM 

4TH  CONDENSER  STEAM 

INCINERATOR  FUEL  PLUS  AIR 

MISCELLANEOUS 


DEG. F . 

PSIA. 

80. 

127.9 

19.1 

250. 

1850. 

1850. 

388. 

71.2 

383. 

17.7 

68.2 

30. 

72. 

15. 

BOILER 


CONDENSERS 


CONVERTERS 


STACK  DIA. 


3  PASS  27  FT.  LONG 

FIRST  PASS  41  8  IN.  TUBES 

SECOND  PASS  42  8  IN.  TUBES 

THIRD  PASS  1106  1.5  IN.  TUBES 

MUFFLE  FURNACE  72  IN.  DIA.  X  40  FT.  LONG 

1ST  AND  2ND  BYPASSES  .104682  AND  .08958  RESP. 

-  TUBE  DIA.  1.282  IN.  FOR  ALL  FOUR 

-  NUMBER  OF  TUBES  1025  FOR  ALL  FOUR 

-  TUBE  LENGTHS  20*  20*  16  AND  20  FT.  RESP. 

~  MAX.  FOG  10*  10*  10*  AND  8  LB*(S)/100  MOLES 
INERT  EXIT  GAS  RESPECTIVELY 

-  1ST*  2ND*  AND  3RD  CONVERTER  CROSS-SECTIONAL 
AREAS  750*  800*  AND  760  SQ.FT.  RESPECTIVELY 

-  BED  DEPTH  3  FT.  FOR  ALL  THREE 

-  AVERAGE  PARTICLE  SIZE  0.15  IN. 

3.7  FT.  (AT  TOP),  HEIGHT  130.  FT. 


E  —  9  0 


LEGEND 


NUMBERS  DENOTE  STREAM  DR  EQUIPMENT  NUMBERS 
NUMBERS  IN  BRACKETS  DENOTE  EQUIPMENT  TYPES  - 


1-  WASTE  HEAT  BOILER 

2-  INLINE  BURNER 

3-  CATALYTIC  CONVERTER 

4.  SULPHUR  CONDENSER 

5.  ADIABATIC  COMBINER 


6-  COMBINER/DIVIDER 

7-  AIR  ADDER 
B*  INCINERATOR 

9.  EFFLUENT  STACK 
10-  BLACK  BOX 


FIG-  E-3  EQUIPMENT  MODULE  (PROCESS) 


FLOWSHEET  FOR  EXAMPLE  3- 


E-  91 


PROGRAM  HAT  A  (CARP  IMAGE  ) 


C  EXAMPLE  3.  (SIMULATION) 

C 

C _ MOLECULAR  AND  THERMODYNAMIC  data  SAME  AS  EXAMPLE  1. 

C  (TERMINATED  BY  *ENO*  RATHER  THAN  *ENDOFALLDATA* ) 

♦  PROGRAM  CONTROL  PARAMETERS-' 

i . 1  1 . 1  .1  1  1  1  1  1  0  0  0  2  0 

♦  END* 

♦  FLOWSHEET  DATA-' 

_ 4  0  l**6  I  2**7  ?  0 ♦ ♦ 8  2  3**  9  1  3**  10  3  4*» 

II  4  5 ♦  ♦  1 2  5  0 ♦  ♦  1 3  5  6**  14  I  6**15  4  7**16  7  8**3  0  8  9** 

31  9  10**1 7  9  0**18  10  11**19  11  12**20  12  0**21  12  13** 

27  0 . 1  3**2  3 . 13  14**29  l 4  0* * 

♦  END* 

♦STREAM  SPECIFICATIONS* 

4 _ l  3.998  2  310.203  3  761.9476  4  2364.8694  5  163.  151  1 

6  1604.5  21  127.87  22  19.1  ** 

30  21  383.  22  17.7** 

1.8 . 21  38  8.  2  2  17,2** 


27  i  107.62  3  386.64  4  i 4  54. 49  5  19.  87”  21 . 72.  22  15.  ** 

*  END* 

♦EQUIPMENT  PARAMETER  SPECIFICATIONS* 


l  It  2  4,  8  5 

»  4  3, 

5  4,  6 

5 »  7  3, 

8  10 

t  9  4, 

10  10t 

11  7, 

12  4,  13  8,  14  9 

'V 

l 

l  3.  2  27. 

3  41. 

4  42. 

5  1106. 

6  8 

.  7  8. 

8  1.5 

17  40.  18  72 

19 

. 104682 

20  9. 

21  . 

8958E-1 

2  2  14. 

25  1850.  27 

2  5  0. 

** 

2 

1  1.  2  20.  3 

1.282 

4  1025. 

5  68.2 

7 

7. 

10  10.** 

5 

1  2.  ?  20.  3 

1.282 

4  1025. 

5  68.2 

7 

12. 

10  10. 

5^  WU 
**r*  v 

g 

1  3.  2  16.  8 

1.282 

4  1025. 

5  68.2 

7 

17. 

10  10 

.  ** 

12 

1  4.  2  20.  3 

1.282 

4  1025. 

5  30. 

7 

20. 

10  8. 

*  * 

4 

1  1.  2  750. 

3  3. 

8  0.15 

T 

1  2.  2  80  0. 

3  3. 

8  0.15 

❖  # 

11 

13.  2  760. 

3  3. 

8  0.15 

'll'  “V 

13 

7  2  7.  ** 

14 

1  80.  3  130 

4  3 

7 

♦END  OF  ALL  DATA* 


rJ 

■ 

.  1  .  r  .  .  * ' 


.p  v 

.  ••  •  ? 

.£  1 

. 

.  ••  ’ 

. 

■  .J 

. 
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SULPHUR  PLANT  DFSIGN  AND  SIMULATION 


MOLECULAR  AND  THERMODYNAMIC  DATA 


END 

PROGRAM  CONTROL  PARAMETERS 
END 
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FLOWSHEET  DA T A 


ECHO  CHECK  OF  FLOWSHEET  DATA 


STREAM  source  destination  stream  stream 

NUMBER  EQUIP.  NO.  EQUIP,  NO.  UNKNOWNS  FLAG 


4 

0 

1 

1 

0 

6 

1 

2 

1 

0 

7 

2 

0 

1 

0 

R 

p 

3 

1 

0 

9 

1 

3 

1 

0 

10 

3 

4 

1 

0 

11 

4 

5 

1 

0 

12 

5 

0 

1 

0 

1  3 

5 

6 

l 

0 

14 

1 

6 

1 

0 

15 

6 

7 

1 

0 

16 

7 

8 

1 

0 

30 

8 

9 

1 

0 

31 

9 

10 

1 

0 

17 

9 

0 

1 

0 

18 

I  0 

1  1 

1 

0 

19 

1  1 

12 

1 

0 

20 

12 

0 

1 

0 

21 

12 

13 

1 

0 

27 

0 

13 

1 

0 

23 

13 

14 

l 

0 

29 

14 

0 

1 

0 

END 


. 
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STREAM  SPEC  I  FI  CAT  TENS 


ECHO  CHECK  OF  STREAM  SPECIFICATION  DATA 


STREAM  - 

' { PARAMETER 

NO. ) PARAMETER 

VALUE  * 

REPFATFO 

-  4  - 

(  I) 

Q.39580E 

01 

(  2) 

0 . 3 1 02 1 E 

03  ( 

:  3  ) 

0. 76155E 

03 

{  4) 

0 . 2  8649 F 

04 

(  5) 

0. 1631 5E 

03  ( 

:  6) 

0. 1 604 5 E 

04 

(21) 

0.12737- 

03 

{  22  ) 

0.  19100E 

02 

-  30  - 

(21  ) 

0 .38300E 

03 

{  22  ) 

0. 17700F 

02 

-  18  - 

(21) 

0 .38800E 

03 

(  22) 

0. 17200E 

02 

-  27  - 

(  1  ) 

0. 1C762E 

03 

(  3) 

0. 3 8 6 6 4 F 

0  3  ( 

:  4) 

0. 14545E 

04 

(  5) 

0 . 19870E 

02 

(2  1) 

0. 72000E 

02  (22) 

0. 15000E 

02 

!  T 


u 

' 

:  . 

. 

'  >.  ' 

^  r  ( 

i 

* 

f  . '  U  ) 

. 
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EQUIPMENT  PARAMETER  SPECIFICATIONS 


ECHO  CHECK  OF  EQUIPMENT  PARAMETER . S  PEC  I  Ffc AT ION . DATA' 


EQUIP.  NO. 

— 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1  3 

14 

EQUIP.  Tvpe 

— 

1 

4 

5 

3 

4 

5 

3 

10 

4 

10 

3 

4 

8 

9 

EQUIP.  INDEX 

- 

0 

28 

40 

43 

51 

63 

66 

74 

75 

37 

88 

96 

108 

115 

EQUIPMENT _ ■  PARAMETER _ PARAMETER 

NUMBER  NUMBER  VALUE 


I  1 

_ 2 

3 

4 

_ 5 

6 

7 

_ 8 

17 

18 
1 9 

2  0 

21 

_ 22. 

25 

27 


0.3 0000 00 E  01 
0.2 7000 OOF  0  2 
0.41 OOOOOE  02 
0. 42 000 OOP  02 
9. I  1 0  6  0  0  0  F  04 
6. 8 0000 OOF 01 
0 . 8000000F  01 
0. 1500 POPE  01 

0. 4000000E  02 
0. 7200000E  02 
0. 1046816E  00 
0.9 00 00 OOF 01 
0. 8957994E-01 
0 . 1 4 00 POPE  02 

0.18  50000E  04 
0 . 2500000E  03 


2  1  . . ’  ”  0.10 OOOOOE  01 

2  0.2 0000 OOF  02 

_ 3 _ 0 . 1  2  82000E  01 

4  0.1025000E  04 

5  0 .682  00 OOF  02 

_  7  0.7000000E  01 


10 


0.1 0000 OOE  02 


r 

. 

:■ ;  1  . 

. 


. 


i 


. 


♦ 

•  ■  . 

. 
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FQUIPMENT 

PARAMETER 

parameter 

NUMBER 

NUMBER 

VALUE 

5 

1 

0. 2000000E 

01 

2 

0.2  OOOOOOE 

02 

3 

0. 1282000F 

01 

4 

0. 1 02 5000 E 

04 

5 

0 • 68200  OOF 

02 

7 

0. 1 2  OOOOOE 

02 

10 

0. 1000000E 

02 

q 

1 

0. 3000000F 

01 

2 

0. 16 000  OOF 

02 

3 

0. 1282000E 

01 

4 

0. 1025000F 

04 

5 

0.6820000E 

02 

7 

0. 1 7000 00 E 

02 

10 

0. 1 OOOOOOE 

02 

12 

1 

0 . 4000000E 

01 

7 

0. 2000000F 

02 

3 

0. 1282000F 

01 

4 

0. i 02  5000 F 

04 

5 

0.3 OOOOOOE 

02 

7 

0. 2000000E 

02 

10 

0. 8000000F 

01 

4 

1 

0. 1 OOOOOOE 

01 

2 

0. 7500000E 

0  3 

3 

0 . 3  OOOOOOE 

01 

8 

0. 1499999E 

00 

7 

1 

0. 2  OOOOOOE 

01 

2 

0. 8000000F 

03 

3 

0, 3  OOOOOOE 

01 

8 

0. 1499999E 

0  0 

1  1 

1 

0 . 3  0000  OOF 

01 

2 

0. 7600000E 

03 

3 

0.3 OOOOOOE 

01 

8 

0. 1499999F 

00 

13 

7 

0. 2700000E 

02 

14 

1 

0.8 OOOOOOE 

02 

3 

0. 1300000F 

03 

4 

0. 37000C0E 

01 

END  OF  ALT  DATA 


i . 


<  . 

. 

. 

, 

. 

. 

. 


' 
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CALCULATION  SEQUENCE  OPTIMIZATION 

*  * *  *  *  *  #  **  *  *  *  *  *  *  *  *  *  **  ***  *****  $  *  **************  ***  * *  *  *  *  *  jc  *  *** 

. INI  T!  AL SECUFNCF IS  - 

I  2  3  4  5  6  7  8  9  10  II  12  13  14 


. THE  OPTIMIZED  C  ALCULAT  I  ON  SE  QUENCE  IS  - 

1  2  3  4  5  6  7  8  9  10  11  12  13  14 


MO  STREAMS  NEED  BE  ASSUMED 

***********  ********************  *  *  *  ********###,;,  ######],£££#  j.  j. 


PRIMARY  REACTION  CUT-OFF  TEMPFRATURE  (BOILER ) =  1850.  OEgTf 

SFCONDAPV  REACTION  CUT-OFF  TEMPERATURE  =  135Q..  OEG.F 

(BELOW  THIS  TEMPERATURE,  THE  LAST  4  GASEOUS 

. _ . MOLECULAR . SPEC! FS  ARE  MASKED  FOR  THE  ROILFR 

A  NO  T  H  E  C  ON  V  E  R  T  ER  C0MD0  S  I  T  ION  "c  A  L  C  U  L  A  T  IONS  .  )  “ 

- » *** 7  * * ** * * * *****  ****************************************** 


r  --  ■  '  • 
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COMBUSTION  REACTION  AND  WASTE  HEAT  BOILER. 
EQUIPMENT  NUMBER  l 


;*r  Vr  3*?  ^  j1;  ^  y?  ^  y;  ^  ^  -a.  a.  ^  ,*>  j.  st, 

*  4  "C  '  >  *'»  •  <  t  V  >  4**  '1'  4*  ',•*  ^.v  'J'  *,*•  -y- 

y*  *L  y»  'Y  y#  y^  yj  y<  y/  -a-  o.  j.  ^  -jo 

*')'  'i*  •'(»  ')*  -•('  y  y  y  »,*  ',s 

J"  A<  O#-  iV  ■»*/  \*»  J» 

'V  -v  4^  4v  'f'  'r-  4>  'c*  ->  'r  4*  4* 

EQUIPMENT  PROCESS  FEED 

TEMPERATURE  (DEG.  F)  =  127.9  PRFSSURE  (PSIA)  =  IP.  10 

STREAM  ENTHALPY 

( 8TU . )  =  -0.8 1 367 10E 

08 

MOLE 

NUMBERS  ARE  - 

CH4 

3.95800 

cn?  - 

310.20776 

0? 

761.54712 

N? 

2  864.86865 

H2D 

163.15106 

H?S  - 

1604. 5000C 

SO  2 

0.0 

S 

0.0 

S2 

0.0 

S6 

0.0 

S  8 

0.0 

CDS  - 

0.0 

CS2 

0.0 

H2 

0.0 

CO 

1 

o 

• 

o 

S 

o 

* 

e 

'Jj-  »*/  ■«!<  J/  >jl. 

"f»  ',•»  ^  -•{*  #,s  4V 

A AAA A  A A  A  A A A  A AAA  A A  A  A AAA  A A A A  A  A AAA  A A  A  A A A A  A A 

A  A  A  A  A  A  A  A  A  A  A  A  A 

ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 

NfX  **-»  »//  J*  J. 

^  V  *'>  .*1% 

A AAA A  A A AAA  A  A  A A A  A A  A  A A A  AAA  AAA A AAA A A  A* A A A  A  A 

»*>  %•»  %•»<•  y#  -A»  -vl»  »*/  iA* 

4  44  4"  4'  4-»  v  "T*  4”*  4^  4^  y  -,v 

FINAL  CONVERGED  TEMPERATURE  IS  2119.3 

DEG.  F 

PRESSURE  (PSIA.)  = 

19.10  (CRIT  =  0.10E-03  ) 

STREAM  ENTHALPY 

( B  T  U . )  =  -0 .81 36757E 

08 

MOLE 

NUMBERS  ARE  - 

CH4 

0.00000 

CD2  - 

250.38078 

02 

0.00000 

N2 

2864.86865 

H  2  0 

1363.45630 

H2S  - 

269.49438 

SO? 

189.33513 

S 

0.02687 

S? 

571.08691 

S6 

0. 00001 

S8 

0.00000 

CDS  - 

3.44270 

CS2 

0.0 130? 

H2 

1 42.61536 

CO 

60.32903 

S 

0.0 

A  A A AAA  AAA A  A A A A  A AAA  A A A  A A A  A AAA A  A A A A A  A A  A  A A A  A A A A A  A AAA A A  A A A A  A  A A A A 

MUFFLE  FURNACE  - 


DIAMETER  (IN.)  =  7? .0 

LENGTH  (FT.)  =  40.0  HEAT 


A  AAA’! :*  ^  A  A  A  A  *  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 


(SIMULATION) 


RESIDENCE  TIME  (SEC.)  =  0.492 

RELEASE  ( BTU/CU . FT . )  =  87143. 


vl<  -A"  >l«  A*  J/  4/  O, 

V  «V*  V*  ‘,i%  *i'  ^  <•(*  *•,%  /,%  >ts 


;  ' 


, 


. 

:  '  . 

. 

J 

♦ 

4 

. 

* 

r  r 

■  .  t  <  3 

• 
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SIMULATION  OP  TUBE  PASS  NO.  1 


ITFRATIVF  NON- ADIABATIC  TEMPERATURE  CALCULATION 
TO  I  AM  SPECIFIED,  DFLPC  CALCULATED. 


******  **************  *  *  ip  ****** *  *  *  *  if.  if  if  *  if  if  if  if  if  if  if  if  if  if  if  if  ip  ^  J-5  ~jf '*  if  if  ip  if  If  if 


FINAL  CONVERGED  TEMPERATURE 

IS  1486.0 

DEG.  E 

PRESSURE  (PS  I  A.)  =  18.92 

( CRI T  =  0.  I0F-03  ) 

TUBE  DIA.  ( IN. )  = 

8.00 

NUMBER  OF  TUBES 

TUBE  LENGTH  (FT.) 
PRESSURE  DROP  (PSI) 

=  41  . 

=  27.00 

=  0.18 

TOTAL  HEAT  LOSS  ( 8 T U . )  = 

0.3792261 E 

08 

. .  STREAM  ENTHALPY  { BTU. )  = 

-0. 1 1 9  3  3  3  5  E 

09 

MOLE  NUMBERS  ARE  - 


CH4  - 

0? 

H20  - 

0. ooooo 

0. ooooo 

1362. 64 L 60 

C02  - 

N2 

H2S  - 

284. L3989 
2864.86865 

337. 79688 

SO  2  - 

172.86217 

S 

0.00007 

S  2 

548 . 12085 

S6 

0.01327 

SB 

0. 00002 

COS  - 

3.49270 

C  S  2  - 

0.01214 

H  2 

75.12698 

CO 

26.52049 

S 

0.0 

************  ************************  **  *  *  *  *********  *  ***  ***  **"* 


I 

. 


.s 

. 
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SIMULATION  OF  TUBE  PASS  NO.  2 


ITERATIVE  NON-ADI ABATIC  TEMPERATURE  CALCULATION 
TO  I  AM  SPECIFIED,  DELPC  CALCULATED. 


###  *z  #  #  ❖  ❖  #  ❖  #  $  *  £  it  i<  i<  it  it  it  it  it  it it  it  it  it  ❖  ❖  it*  ##  •%.  if.  it 


FINAL  CONVERGED  TEMPERATURE  IS  I  III.?  DEG.  F 

PRESSURE  (PSIA.)  =  18.79  (CRIT  =  0.10E-03  ) 


TUBE  01  A.  UN.)  5  8.00 

NUMBER  OF  TUBES . = . 42. 

TUBE  LENGTH  (FT.)  =  27.00 

_ PRESSURE  DP  OP  I  PS  I)  =  0.13 _ 

TOTAL  HEAT  LOSS  ( B T U . )  =  0.2138989E  08 


STREAM . ENTHALPY . (BTtJ.  )  = -0. 1407077E  09 


MOLE  NUMBERS 

ARE  - 

CM4 

0.00000 

CO  2  - 

284.13989 

02 

0.00000 

N2 

2364.86865 

H20 

1362.64160 

H2S  - 

337. 79688 

SO? 

172.86217 

S 

0.00000 

S2 

488.04150 

S6 

18.0006  1 

S3 

0.77900 

COS  - 

3.49270 

C S  2  -  0.01214  H2  -  75.  12698 

CO  -  26.52049  S  -  0.0 


^  \f/  nO  j, 


V'  > 

■  '  'l*  ‘ 


*  '•/'  'l'  V  'I'- 


. 

. 

'  *  1  *  :  .  ;  -  '  '  . 


■  '  ■  ' . 

,  1 

'  ■  t '  .  • 

.  f 

.  f  ! 
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BOILFR  BY-PASS  NO.  2  r  (RATIO  =  0.0896) 


TEMPERATURE  (DEG 

I  A  LHH  IN’ Hi  i  .  ■> 

•  E )  =  1111.2 

L-  f\  I  -t 

PRESSURE  (PSIA)  =  13.79 

STP FAM 

ENTHALPY  ( BTU. ) 

=  -0.1260457F  08 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.00000 

CO 2  -  25.45323 

02 

0.00000 

N2  -  256.63452 

H20  - 

122. 06634 

H2S  -  30.25981 

SO  2  - 

15.4  84  98 

S  -  0.00900 

S  2 

43. 71872 

S6  -  1.61249 

SB 

0. G6978 

COS  -  0.31288 

C  S  2  - 

0. 00109 

H2  -  6.72987 

CO 

2.3  75  70 

S  0.0 

BOILER  BY-PASS  NO. . I  , (  R  A TIG  =  0.1047) 


t  iiw.  l  i  \  r\  m  i  iii  u . 

STREAM  NUMBER  9 

i  =  ) '+  M 

T  F  M  P  E  R AT  UR E  (DEG. 

F )  =  1111.2 

PRES  SURF 

(PSIA)  =  18.79 

STREAM 

ENTHALPY  (BTU.) 

=  -0 . 134 100 3E  08 

MOLE  NUMBERS 

ARE  - 

CM  4  - 

0. 00000 

C02  - 

27.07977 

02 

o. ooooo 

N2 

273.0346 7 

H20  - 

1 29.365  30 

H2S  - 

32. 19353 

SO?  - 

16.47453 

S 

0.00000 

S  2 

46. 51253 

S6 

1.71554 

SB 

0.07424 

COS  - 

0.33287 

CS  2  - 

0.00116 

H  2 

7.  15994 

CO 

2 . 52752 

S 

0.0 

&  %  jf!  s!t  ijz  jjc  ;Jc  3$:  *  *  *  ;)t  J;  V;  *  3*;  ; 


■  . 


' 

. 

.  ■ f 

. 

:  . 

. 

I  - 

<  .  .  f 

• 

* 

- 

* 

— 

.  ' 
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S  I  MULAT ION  OF  TUBE  PASS  NO.  3 


ITERATIVE  NON-ADI ABATIC  TEMPERATURE  CALCULATION 
TO  I  AM  SPECIFIED,  DEL PC  CALCULATED. 


i*  ❖  ❖  =~  ❖  *  *  *  *  3jc  ;*c  if.  if  if  if  &  *  ❖  if  if  'I'  if if  *  *  if  if  if  if  #  '!<  $  #  if  if  $  *  ❖  %  if  ❖  *  if  ❖  if  if  if  *  if 

_ FINAL  CONVERGED  TEMPERATURE  IS  552.0  DEG.  F _ 

PRESSURE  { p  S I  A . )  =  18.59  (CRIT  =  0.10F-03  ) 

TUBE  DI  A.  (IN.)  =  1.50 

N! J MB E R  OF . TUBES . = . 110  6. 

TUBE  LENGTH  (FT.)  =  27.00 

_ PRESSURE  PROP  (PST)  =  0.21 _ 

TOTAL  HEAT  LOSS  { BTU . )  -  0.3893232F  03 

if  if  if  if  if  ^ if  if  if  if  if  $  if  if  $  I*#*#:*#'*  jjt  #  #  *  *  $  *  **  #  # 


{ , T  ) 

{'.  r  1  ' 
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BOILER  EXIT  STREAM 
STREAM  NUMBER  6 


TEMPERATUPF  {DEG 
STREAM 

.  F)  =  552.0 

ENTHALPY  (BTU.l  = 

PRESSURE  (PSI A)  =  13.59 

-0.1536236E  09 

MOLE  NUMBERS 

ARE  - 

CH4 

— 

0. 00000 

C02  - 

231.60674 

02 

- 

0. 00000 

N2 

2335. 19897 

H2G 

— 

1111. 24437 

H2S  - 

274.80835 

SO  2 

- 

140.63519 

S 

0.  0 

S2 

- 

0.46069 

S6 

45.90483 

SB 

— 

76. 64828 

COS  - 

2 . 84696 

CS  9 

- 

0.00990 

H2 

61.23717 

CO 

— 

21.61725 

S 

0.0 

J/  >iy  **y  «I,I  %*/  J#*  \l»  J/  «l«  Jr  Jr  Jr  »lr  sU  »<r  Jr  Jr  Jr  Jr  Jr  %tr  Or  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Or  Jr  Or  Jr  Jr  Jr  Or  Jr  Jr  Jr  Jr  Or  -Jr  Jr  Jr  Jr  Jr  Jr 

r(s  r,N  r ( x  rtx  -  -x  r,x  r,%  r^x  r?x  r^x  v  .-j\  r^x  r  %  r^v  r,S  r,\  r^x  rfx  '(X  rj\  r^x  r^x  r^x  r-|X  ryx  r^\  x  r^x  r/v  r,  x  -jX  -Tj v  r^x  r(x  r^x  rjx  -yx  r^x  r^x  '^x  ryx  r^x  ryx  r^x  rjX  r\,x  r^x  r^x 


r  xCr  Jr 
►  yx  r,x 


STRFAM  SULPHUR  DEW  PT  .  {DEG.  F)  =  528.7 

STREAM  WATER  DEW  PT  .  (DEG.  FJ =  160.6 


*  *  it  it  it  i:  a  it  a  *  *  *  it  a  it  A  A  *  it  a  A  -it  it  it  it  A  A  i-.  *  A  A  A  A  it  it  it  it  a  it  it  it  it  A  a  A  j,  j,  ^  j,  j,  ^  ^ ...  ^  j,  *.  y. 


Jr  x*r  Jr  Jr 


EQUIP.  HEAT  DUTY  (  BTIJ/HR  )  TS 


0.98  24482  E  C8 


STEAM  TEMP.  ( OF  G»  E .  )  - _ 

PRESS.  (PSI A)  = 

LATENT  HEAT  { BTU/LB )  - 
L.H.  CORRECT  ION  = 

PRO n U C  T ION  ( LB /HR  )  = 


_ API  .0 

250.000 

822.1 

_ _ 0_.0 

0.1 19  5080E  06 


Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  x'r  xlr  x*r  Jr  Jr  Jr  Jr 

rj.  *,x  r,x  r^x  r,x  -r,x  -{%  rjx  r^xr^x  r^vr,x  '|xr,x  r,x  r}x 


•  Jr  Jr  Jr  Jr  Jr  x*r  v<»  Jr  Jr  Jr 
r,x  r^x  r,x  r,1.  ryx  -yV  -r>|x  r,x  r^.  yx 


Jr  -Jr  Jr  Jr  Jr  Jr  Jr  x*r  Jr  Jr  Jr  Jr  Jr  xir  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr 
^  r,x  r,~  rjx  r-,X  TJi  r(«  r,x  -yx  r,x  r.x  rjx  ryx  r,x  A,-.  r,x  -r,x  r,x  y  r,x  r}>  r,x  r/x  r,v  r^x  r,x  r,x  r,x  r,X  '<-»  r,x 


PERCENT  OF  TOTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  68.00 


,  ■  ' 

■  ' . 

-  ( . 

. 

► 

, 
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_ CONDENSER  1 _ 

EQUIPMENT  NUMBER  2 

#  afe  #  t-  >!'  #  ❖  #  #  *  si;  sjt  #  *  s*;  .-{t  #  #  sj;  £  #  *  #  >*t  $  s£  s}«  s?;  *  *  #  #  *$«:^3lcsH' r  *  ❖  a!-'  #  ❖  sjcs^^^tsfcsjc^^csfc^:  *  sjs  #  :?; 


EQUIPMENT  PROCESS  FEED 


TEMPER  AT  UP. c  (DEG 
STREAM 

.  F)  -  552. C 

ENTHALPY  { 3TU . )  = 

PRESSURE  (PSIA)  =  18.59 

-0 . 1 5  36236E  09 

MOLE  NUMBERS 

ARF  - 

CH4  - 

0. 00000 

C02  -  231.60674 

02 

H2  0  - 

SO  2 . - . 

0. 00000 
1111.24487 
140.63519 

N2  -  2335.19897 

H2S  -  274.80835 

S  0.0 

S2 

S  8 

C  S  2  - 

0.46069 

76.64828 

0. 00990 

S  6  -  45.90483 

COS  -  2.34696 

H2  -  61.23717 

CO 

21.61725 

S  0.0 

*  $£*$$:$$$$$$  ##  ##  fc**-***  sj;  #$*$  #  :{c  #  *  #  ^c^csjtajt  s{c  *  sjc^:  ####*:{«##  * 


CONDENSER  SIMULATION 


S*S 3?e  s*s  ijt s';  s*c  *  jjt  sj; ^  ##  ^  #  #  sk  if  #  ft  jfcsjc  s>  s’:  sfc 3®c  s>:  s';  sic  £#❖  ~sj;  ❖  #*:*:$«  a$c  #  ■*'*-# 


TUBE  LENGTH  (FT.)  =  20.0 

TUBE  DIAMETER  (IN.)  = _ I  .282 

NUMBER  OF  TUBES  -  1025 

MAXIMUM  FLOW  RATE  C  LB/  SQ  .  FT  .  SEC  I  = _ 4.33 

OUTLET  GAS  TEMPERATURE  <  DEG.F )  =  346.3 

U  (OVERALL)  ( BTU/HR. SQ.FT. DEG.F)  =  14.09 


EQUIP.  HF AT  DUTY  (BTU/HR)  IS_ Q.1162Q30E  08 


STEAM  TEMP.  (DEG,F.)  = 

PRESS.  (PSIA)  = 

301.2 

68.200 

LATENT  HEAT  (BTU/LB)  = 

908.9 

L.H.  CORRECTION  = 

0.0 

PRODUCTION  (LB/HR)  = 

0.12  7 8 543 E  05 

*****  *?!;**;*;  *3*  ***  *  **  **  sjc*  *  ****  *  *  *.*  *  *  *  *  * *  *  *  *  ❖  #  *  *  *  ❖  ❖  £  ❖  £  ❖  ❖  *  * 


* : 

<  . 


•» 

• 

,  .  1 
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CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  97.33,  PERCENT  RECOVERY  =  38.39 

. SULPHUR FOG  - 522.37  MOLES,  OR  16722.3  LBS. 

S  UL  P  \  1U  R  L  I Q  U  l  D  -  343.2  5  MO  L  E  S ,  OR 10983.9 L  8  S '. 

(STREAM  NO.  7  ,  TEMPERATURE  =  306.3  DEG.F. ) 


SPECIFIED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 
(LBS.  S/100  UrT  MOLES . INERTS’) . = . 10. 00 . 


EXISTENCE  of  OF-MISTER  PADS  IS  IMPLIED 


REVISED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  97.33,  PERCENT  RECOVERY  =  95.87 


SULPHUR  FOG  -  13.06  MOLES,  OR  417.9  L8S. 

SULPHUR  LIQUID  -  852.76  MOLES,  OR  27288.2  LBS. 

(STREAM  N 0 .  7  ^  [F MPJE RAT  UR F  =  330. 3  DEG.F. ) 


'  5*;  )V  3*  vV  >.V  J.  xO  O'  -A»  ^  .O  J'  jV  A-  A-  A  A  A  A  A  A  s*x  A  A  A  A  A  J.  A  A  -vV  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 

■  4fx  -  ’T*  -V>  /*-  '1‘  -J*»  3'  'A  'V'  '4"  '**  I  'A  -'F-  O'  *r  4'  '1'  6'  -"i*-  T-  -V-  -V  -V  'r  -,*>  •*/*•  -Y*  -yC  -V-  ^  r'  5^  I*C  3JC  ?,£ 


CONDENSER  GASEOUS 

EXIT  STREAM 

STREAM  NUMBER  8 

TEMPERATURE  (DEG.  F)  =  346.3 

PRESSURE 

(PSIA)  =  18.43 

STREAM  ENTHALPY  (BTU.) 

-  — 0 .1675 52 4 E  09 

MOLE  NUMBERS 

ARE  - 

C  H  4 

0.09000 

C02  - 

231.60674 

02 

0.00000 

M2 

2335.19897 

H2Q 

1111.24487 

H  ?  S  - 

274.80835 

S02 

140.63519 

S 

0.0 

S2 

0.00083 

S6  - 

0  •  64  9  6  0 

SB 

2.47703 

COS  - 

2.84696 

C  S  2 

0.00990 

H2 

61.2371 7 

CO 

21.61725 

S 

13.06006 

A  J»  A  A  A  A 

»^S  C,>  ',V  '£% 

if  A  if  if  if  if.  ^  if  V,;  if  5^  if  jjs  if  if  sjc  y,c  :Jc  if  if  #  if  s*c  sj:  ^  jjs  if  if  if  *  £  *  sj:  # 

A  A  A  A  A  A  A  A  A  A  A  A  A  A 

*■  -y1*.  *(\  »\,V  XyV 

. 


.  ' 

. .  . 


.  \ 


1  ’  ,  ’ 


'  •  "  1.  ’ 

'  ' 
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\  H  T  A  P  A  T  f  f,  STREAM  C  0  M  B  I N  ER 


EQUIPMENT  NUMBER  3 


COMBINE  STREAMS  8  AND  9 


'  5*r  ^  J*'  3**  5*^  }*;  ;'{  **{•  *V  ^  -V  5V  »X>  -Jj  >J^  J<  ^  ^  Jf  vV  -X-  »V  -vV  sO  J<  J-  -X-  J»  X  X  X  -X  X  J„  X  x  x 

')  '  *V*  i  -*A  A-  'A  ><v  'A  ■'(''  'A  '1'  X"  *V»  'A  v  a  X**  'A  -'A  ‘A  -'A  Xs  X**  V  V  -y*  *A  "A  *A  'A  -»A  'A  T  -"A  -A  <A  -a  ■‘V’*  X"  -V>  —A  -A  'A  'A  'A  'A 


.  FIND . GI VEN . FEED . S  TR  F  A  M  RESULTANT  TEMPERATURE 

I T ER A f I  V E  A 0 1  A 8 A f I C . TEMPERATURE . CALCULA tToKT 


*  #  s}e  4*  sA&st  sje ^.sjcajs  jJcjSc  ##  ijcifssjt  afc  jj«  ajc  $  :}t#->JcsSojc  jfcsJcjJeaJcjJsjJc^:  £:^:{c  jjcajt 


FINAL  CONVERGED  TEMPERATURE  IS  490.0  DEG.  F 
PRESSURE  { PS  I  A .  )  =  18.43  ( CR I T  =  0 .  I  OF- 03  ) 


#  *  *  *  *  £  ❖  *  #  :{e  sjcajcjjc  #  #::5c  £  £  *  :£ 


COMBINED  OUTLET  STREAM  I  SULPHUR  SHIFT 

STRFAM  NUMBER  10 

DONE)  - 

TFMPERATURE  (DEG. 

STREAM 

.  n  =  490.0 

ENTHALPY  { BTU . ) 

PRESSURE  (PSIA)  =  18.43 

=  -0. 18 096 30 E  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C.02  - 

2  58.68628 

02 

0.00000 

N2 

2608.23364 

1120  -  1241.  11060 

H2S  - 

307. 001  7  1 

SO 3  - 

157.1 0973 

S 

0.0 

S2 

0.07465 

S6 

7.51174 

SB 

1 1 .93349 

COS  - 

3.17983 

CS2  - 

0.01105 

H2 

68.39709 

CO 

24. 14476 

S 

c 

. 

c 

X  X  X  X  X  X  X  X  J/  X  J/  X  X  X  X  X  '* 

>,  •  yf\  -»;  V  -^v  ^  ^  -  V  -'A  ✓jS  *,*.  /A  /,»  X,  -  -, 

U  X  X  X  X  xl»  X  X  X  X  si/  X  >»/  X  X  »0  v*<  X  X  X  X  »*/  X  X  X  J/  X  X 

■»  -/'A  ,"A  X~  •'A  A  J"A  'V'  "A  'A  ""A  'A  -oA  O'  ■'A  '“A  */'  O'  “A  <*a  O'  6V  'A  -'A  Av  'A  rr  'A 

»*-  X  X  X/  X  X  X/  X  X  X  sX  J/  >4/  »t/  s*» 

X'  'A  'A  "*A  *A  'A  AA  -0A  'A  -A  -A  'A  "A  *A  'A 

STREAM 

SULPHUR  DEW  PT. 

(DEG.  F)  - 

42  0.0 

STREAM 

WATER  DEW  PT.  (DEG.  F)  = 

161.3 

X  •)*  X*  X  -»*«'  X  X  X  X  X  X  v(<  X  X  X  X  X  X  X>»  X  X  X  X  X  X  X  X  X  X  X  >•/  X  X 

•V  'A  'A  'A  **A  'A  A  -  A  ■'f-  ''A  "A  X'  -A  *A  6V  "A  'V*  -'A  6'  A  "A  "'A  "A  -'A  -*¥»  -"A  XT'  'A  "A  Av  6'  'A  6' 

#  sj:  if.  &  ■%  ajc  :&  ^  -fy  Jj;  jjt  sjc  ■%.  j{s  sjc  ^  &  ft  ft 

r  '  '■ 


’ 

« 

1  ' 

■s 

— 

• 

• 

* 

» 

* 

• 

( 
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_ _ CONVERTER  1 _ 

EQUIPMENT  NUMBER  4 

*  *  ^  *  *  *  ❖  7  *  *  ❖  *  *  *  *  $  *  *  *  *  *  *  *  *  >1;  *  *  %  4;  *  *  *  *  #  *  *  *  3?;  *  *  ^  %  #  #  J;  *  *  sfc  #  £  £  *  *:  *  *  £  $  * 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  490.0  PRESSURE  f  PS  I A )  =  13.43 

STREAM  ENTHALPY  (BTU.)  =  -0.1309630E  09 


MOLE  NUMBERS  ARE  - 


CH4  - 

0. oonoo 

C  0  2  - 

2  58. 6862  8 

02 

0. 00000 

M2 

2608.23364 

H  2  0  - 

1241. 11060 

H2S  - 

307.00171 

SO  2 . - . 

. 157.10973 

S 

0.0 

S2 

0.07465 

S6 

7.51 1 74 

S3 

1 1 . 93349 

COS  - 

3.17933 

CS  2  - 

0.01105 

H2 

68.39709 

CO 

24. 14476 

S 

0 

0 

0 

*  ***  **  -It*  **  *  *  *  *  *  *  *  *  *  **  *  *  *  *  *  *  *  *  *  A  *  *  *  sfc  *  *  **  *  *  sjc  *  jfc  $  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


CONVERTER  BED 


(SIMULATION) 


CROSSECT TONAL  AREA  (SQ.FT)  =  750.00 

THICKNESS  (FT.)  =  3.00 

VOLUM E  (  C!J .  FT  .  )  ~  2250.00 

L  I  NE  AR  GAS  VELOCITY  (  FT. 7  S  E  C  .1 .  =  . 1 .0  0 

MOLAL  FLOW  RATE  ( MOL F /HR . SQ . F T . )  =  2.03 

AVERAGE  PARTICLF  DIAMETER  (IN.)  = _ 0.15 

PRESSURE  DROP  (PSI.)  =  0.402 


❖  *  ****  ****  **  **  *  ***  ***  *  ***  ****  *  ***  **  ***  *  *  ****  *  **  ****  *  ***  *  *  *** 


ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 

*  ****  *  **  :^e  s(c  *  *  jjc*  *  **  **  *  #  *  #  ^  #  s*t  *  *  *  £  *  *:$::***  *  *  * 

FINAL  CONVERGED  TEMPERATURE  IS  607.9  DEG.  F  _ _ 

PR ESS UR E~7p SI  A  .1  "  =  18.03  .  (CRIT  = . 0. 10E-03  5 

******************  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ** 
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RED  . 

TEMPERATURE 

v,  u  i  n  v  r%  i  c  rs  u  c  vn 

DEW  POINT 
TEMPERATURE 

ruii'ii  incur,  — 

TEMPERATURE 

OIOFE^FNCE 

RED 

PRESSURE 

513.548 

537.120 

438.620 

453.013 

74.928 

34. 117 

18.351 

18.271 

560. 710 

46  4.  945 

95.765 

18.190 

584.292 

475.252 

109.039 

18.110 

60  7. 873 

484.459 

123. 413 

18.029 

*  *****  **************  *  *  *  *  *  *  *  **********************  *  *  *  *  *  ****  *  * 


. PERCENT . OF. JO TAL  INLET  SULPHUR 

OUT  AS  ELEMENTAL  SULPHUR  =  75.68 


PERCENT  OF  NON-EL EMENTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  68.36 


****** ****** ***************** ******************************* 


CONVERTER  EXIT  STREAM  - 


STREAM 

L_  L  i  J  » 

NUMBER  11 

TEMPERA 

TORE  (DEG 

.  F )  =  607 

.9  PRESSURE 

(PS  I  A)  -  18.03 

STREAM 

ENTHALPY  { 8  T  U . )  =  -0.1809604E  09 

MOLE  NUMBERS  ARE  - 

CH4 

0.00000 

CO  2  - 

2  5  8.6  862  8 

02 

— 

0.0 

N2 

2608.23364 

H20 

— 

1454.07959 

H2S  - 

94.03189 

SO  2 

- 

50.62482 

S 

0.0 

S2 

- 

1.23281 

S6 

34.52592 

S3 

— 

81.30252 

COS  - 

3. 17933 

CS2 

- 

0.01105 

H2 

68.39  709 

CO 

— 

24. 14476 

S 

0.0 

* ***** ************ ****** ******************** *********** ** *** 
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* 
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, 
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_ CON  DENSER  2 _ 

EQUIPMENT  NUMBER  5 

* *  ***** * * *  *.  * *  * ****** * ****************  *  ********************** 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  607.9  PRESSURE  (PSIA)  =  IB.  03 

STREAM  ENTHALPY  (BTU.J  =  -0.1809604E  09 


MOLE  NUMBERS  ARE  - 

CH4  - _ 0.  00000 _ CO?  - _ ?  58.68638 

02  -  0.0  M2  2608.23364 

H  ?  0  -  1454.07959  H2S  -  94.03189 

SO  2 . - . 50.62482 . S  -  0.0 

S  2  -  1.23281  . S6~  - . ’34.52592" 

SB  -  31.30252  COS  -  3.17983 

C  S  2  - _ 0.01 1  0  5 _ H?  _ 68.39709 

CO  24.14476  S  -  0.0 


*  *  *  *  *  **************  **  ******  *  *  *  *  **  ******  *  ************  *  *:*  ***** 


CONDENSER  SIMULATION 

* ***** **** ** **** ***  *****  ***************** ***  **************** 


TUBE  LENGTH  (FT.)  =  20.0 

TUBE  D I  AM  FT  ER  (IN.)  = _ 1.282 

NUMBER  OF  TUBES  =  1025 

MAXI  MUM  FLOW  RATE  (  LB  /  S  Q  .  F  T  .SEC  )  j= _ 4 . 01 

0  U  TIE  I  GAS  T  E  M  P  E  R  AT  UR  E  (DEG.F)  = . ” . 342.2 

U  (OVERALL)  ( RTU /HR. SQ.FT.  DEG.F)  =  13.46 


**************  *  *** *  **  ******  **  *******  *********  ******  *****  * *** 


EQUIP. 

HEAT  DUTY  (BTU/HR)  IS 

0.12231 56 E  CB 

STEAM 

TEMP.  ( DEGt  F . )  = 

°RE  SS .  (PSIA)  = 

301.2 

68.200 

LATENT  HE  4T  (BTU/LB)  = 

L.H.  CORRECTION  - 
PRODUCTION  (LB /HR)  = 

908.9 

0.0 

0 . 1 345740E  05 

*  *  ***  ********** *** *  **  *  *********  ***  * **********************  * ** 

{  I . 
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CALCULATED  SULPHUR  OUTLET 


PFRCENT  CONDENSATION  =  04.70,  PERCENT  RECOVERY  =  50.69 


SULPHUR  FOG  -  202.51  MOLES,  OR  6480.3  LBS. 

S IJL  PHU  R ' ' L  I  QU I  D  -  233 . 24  '"'moTf’S  , OR 7463. 7  L  B  S  . 

[STREAM  NO.  12  ,  TEMPERATURE  =  307.1  DEG.F.) 


Yj  A.*/  J/  S*J>  ^  1,V«  A* 


^  y»  ^  ^  J/  Jj  • 


SPECIFIED  MAXIMUM  ALLOWABLE  FOG 

. iTbs. . sTio'o'TT . moles . inert's] . 

EXISTENCE  OF  DE-MT  STER  PADS  IS 


^  j{s  sjc  :};  if.  #  sjc  >}:  ^  ^  ■%.  ■%.  if. 

FORMATION, 

= . " . 10. 00 . 

IMPLIED 


REVISED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  = 

94.70, 

PERCENT 

RECOVERY  =  91.60 

SULPHUR  FOG  - 

14.25 

MOLES,  OR 

456.1  LBS. 

SULPHUR  LIQUID  - 

421 . 50 

MOLES,  OR 

13487.9  LBS. 

[  STREAM  NO.  12.  , 

TEMPER AT 

URE  =  322 

.9  DEG.F .  ) 

y.  y#  y#  y^ 


vlr  vJU  \*#  Jy  sly  V*y  sV  '*/  J '  %iy  4>  «.*y  v*<  -Ay  4y 

..A  y,\  -«,V  y-jt  »,s  »JV  -y,-k  -y*>  -"{s.  yp  y-jV  *,»  yp  'j*  yp  yp 


* 


-Jy  4y  Jy  Jy  Jy  «?y  -\V  s*y  \V  Jy  Jy  Jy  »4y  »<y  wty  »*y 

•>}-.  y^-k  yijV  yp  .yy-  ypv  yp  •>,*  y,*>  y,"»  ^  yyv  -yv  y^*. 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  13 


TEMPERATURE  (DEG.  F)  =  342.2  PRFSSURE  (PSIA)  =  17.85 

STREAM  ENTHALPY  { B T U . }  -  -0.1943174E  09 


MOLE  NUMBERS  ARE  - 


CH4  -  0.  00000  C  02  -  258.68623 

0?  -  0.0  N2  -  2608.23364 

H20  -  1454.07959  H2S  -  94.03189 

SO  2 1 .  50.6  2432  “  S  -  .  0.0 

S  2  -  0.00087  S6  -  0.67331 

S 8  _ 2.  54327 _ COS  - _ 3.17983 

CS2  -  0.01105  H2  -  68.39709 

CO  -  24.14476  S  -  14.25429 


tc’’  . 
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f  ,  • , 
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ADIABATIC  STREAM  COMBINER 

EQUIPMFNT  NUMBER  6 


*  *  A  *  -  *  *  *  »  **  ******  *  *  *  *  *  ********  3is  *  *  *  *  *  *  sjs  *  *  *  *  *  *  *  *  *  *  *  *  *  ;jc  * * *  *  *  $  * 


COMBINE  STREAMS  13  AND  14 


x1.-  -vO-  x*-«  WV  < 

^  ^  AjN  ^1%  4 


•  *  ?,<  *  jjs  *  ; 


'  >>V  J-r  V  /  « 

‘  -A**  ^r*  •'i"  - 


•V*  ■»¥»  -yx  '>'  » 


FIND . GIVEN  FEED  STREAM  RESULTANT  TEMPERATURE 

I  TER  A  t  I  VE . AD'Ta  B  ATIC . TEMPERATURE . CALCULATION 


•V  xO  »!/  \<i-  sO  >1.  -A.  J- 


!:*****  *********  * *  ******  ****  ****  **  ****  ****  * *jjs*  ****  *: ^s  : 


FINAL  CONVERGED  TEMPERATURE  IS  470.0  DEG.  F 
PRESSURE . (PSTA ... . . ) . f . 1  7.85 . (GRIT  =  0 . 10E-03  ) 


****  *  *  *  *****  *****************  *  Sis  *  *  ******  *  ******  4s  *  *  *  *  ******  *  *  * 


COMBINED  OUTLET  STREAM  (SULPHUR  SHIFT  DONE)  - 

STREAM  NUMBER  15 


TEMPERATUR E  ( DEG  .  F )  =  470 . 0  PRFS  SURF  ( PSI A )  =  17.85 

STREAM  ENTHALPY  1BTU.)  =  -0.2069217E  09 


MOLE  NUMBERS 

ARE  - 

C  H  4  - 

0.00000 

CO 2  -  284.13940 

02 

0. 00000 

N2  -  2864.86816 

H20  - 

15  76.  144  78 

H2S  -  124.29170 

S02  - 

66. 10979 

s  -  0.0 

S  2 

0.04836 

S6  -  6.64509 

S3 

12.04237 

COS  -  3.49270 

C  S  2  - 

0.012  14 

H2  -  75.12695 

CO 

26. 52046 

S  0.0 

A  «A»  \V  -«l»  A  A  vV  A 

•'(■-.  -»jX  ->,x  -jx  ^x  -^,x  yyx  -yx  VjX  <j.X  <•)%  r'jX 

*  *  *  *  *  *  *  A  sk  *  *  **  >;c  *  &  **  **  j 

;  jY  A  A  W'  J,  A  A  x<j»  A  >V  -A-  >*v  j,  vl.  x»v  J,  -J,  xO  -A*  **»  v'y 

>  -*|x  '•jX  'y-  yx  -»JX  <-yx  .yx  -»jX  #».jX  --jX  yx  T1  Afx  '^X  ^  -y.  .»JX  -XX  <J-  -«yx  y^x  -*(X  '(«  /-,% 

STREAM  SULPHUR  DEW  PT .  {DEG.  F)  =  413.2 

STRE A M  WATER  DEW  P  T  .  (DEG.  F)  =  167.0 


'ff  'V  i1;  7;  2V  'E  ■>l'  2V  ■J'  'V  -a*  a  »v  »E  «a>  a  j.  »<»  a  a  vi»  a  a  -a-  a  a  a  a  %*y  %v  A  >0 

-  »x  ■if*  lv  •>  «  >"X  1'  *!'•  ^  -(X  ',-x  -yx  .yx  -yx  -*jx  ^yx  *jx  x-jV  ^jV  -yx  "jX  v  *jX  <»4x  *,x  *.jX  *"yX  - , v  ,-p  <^v  -fx  *fx  r^v  3yx  >yx 


x*f  -xV  > 
V*  - 


*  jy-  ^  .-[X  -yx  ■ 


■  !  - 


1 

■  ' 


♦  ■ 

( 

f . 1 

• 

. 

* 

T 

'  r 

* 

E-112 


_ CONVERTER  2 _ 

EQUIPMENT  NUMBER  7 

%  ifr**:**#*#:**#  $$$*:$  *$$3!  *  =(es{t  ■*  #  **  t*t*  **$:*:{£  *#£****#*  ###  ##*£*'$  sjesjt* 


EQUIPMENT  PROCESS  FEE n 


TEMPERATURE  (DEG 

.  F)  =  4  70.0 

PRESSURE 

(  PS  T  A )  =  17.85 

STREAM 

ENTHALPY  ( BTU . )  = 

-0.20697] 7E  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C02  - 

284. 13940 

0  2 

0.00000 

N2 

2864.86816 

H20  - 

1576.14478 

H2S  - 

124.29170 

S  02  - . 

66.10979 

S 

0.0 

S2 

0.04886 

$6 

6.64599 

SB 

12.04237 

COS  - 

3.49270 

CS2  - 

0.01214 

H2 

75. 12695 

CO 

26.52046 

S 

0.0 

#  $-£)}::£#  *  %%  $  ^c-sjesjesje  :jc  £  4s  ***$  fc#  &$$&$$  4*4^ 


CONVERTER  BED  (SIMULATION) 


CROSSECTIQNAL  AREA  (SQ.FT)  =  800.00 

THICKNESS  .(FT.)  =  3.00 

VOLUME  ( CU  .FT .  )  = _  _  __  2400. 00._ _ 

LINEAR  GAS  VELOCITY  (FT. ’/SEC.)  =  1.02 

MOLAL  FLOW  RATE  ( MOL  E/HR. SQ, FT . J  -  2.10 

_ AVERAGE  PART  I  CLP  DIAMETER  (IN.)  ■= _ 0.15 _ 

PRESSURE  DROP  (PS  I.)  =  0.366 

4s sjesjc **£***#**  4s  4s  *  4s  4s*s  4c  4s4s4e  4s4ssMt  *  ❖❖❖❖  *4s  4s4s*4s*4«fc*#* 


ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


j,  ^  *.*£  ^  >X-  jij  Jj  ^  ^  Jj  JU  -J/  Jj  J;  ^  -Jj  ^  ^  5(<  5j?  ^  3^  ^  ^  2$C  3y£  ^|c  3*C  5y£  5*< 

FINAL  CONVERGED  TEMPERATURE  IS  51 1 .4  DEG.  F 

"  P R ESSU R E~Tp S I  A . 7  = . 17.49  { C R I T  =  0 . 1 0 E- 0 3  ) 

4c4c4c4c4c4s  4s  4c  4e  4s 4s  4c  4c  4c  ^J^^cjjcsjcsfs  4c4s4s4c4s4<4c4<4s4s4t4s4s4s4e4s4s4s4c4<4t4'#*4<4<4'4'4'4«4c4s4t4s4'4« 


,  -  . 


. 


. 

. 

. 

E-l  13 


C  INVERTER  HFW  POINT  CHFCK  - 


BED  . 

DEW  POINT 

TEMPERATURE 

BED 

TEMP  ERA TURF 

TEMPERATURE 

DIFFERENCE 

PRESSURE 

47  3. 

263 

420.483 

57.781 

17.781 

486. 

552 

426.946 

59.607 

1 7. 708 

494. 

842 

432.762 

62.030 

1 7.635 

50  7. 

131 

438.0 59 

65.072 

1 7.562 

511. 

42  0 

442,930 

68.489 

1 7.488 

s*y  s*y  A  vV  A  sly  A  sly 

y,s  y,v  y,-s  yp.  y,x  T,V  yp 

A  A  A  A  A  A 

A  s<y  A  A  A  sly  v*y  sly  A  A  >ly  A  sly  sly 
<r*  i  4  ■'A  >j-s  y>x  y*,s.  y,s  y}N  >,'■  y'p  -*(s  /-(-s 

if  if  if  s|;  sj;  if  if  *  if  if  X:  #  *  if  if  if 

i'  ❖  if  if  if  if  if  if  if  if  if  if  if  if  if 

. . . _ .  PERCENT  OE  TOTAL  INLET  SULPHUR 

OUT  AS  ELEMENTAL  SULPHUR  =  76. 

13 

PERCENT  OF  NON-ELEMENT AL  INLET  SULPHUR 

OUT  AS  ELEMENTAL  SULPHUR  =  59. 

43 

*  *********#*******£  ****£**#*#****£*:**##*:#;£*£*£*;$;* *  *  *  5*e * $ 

CONVERTER 

EXIT  STREAM  - 

stream 

NUMBER  16 

TEMPERATURE  (DEG.  F  )  =  511 

.4  PRESSURE 

(PSIA1  =  17.49 

STRE 

AM  ENTHALPY  I8T1J.)  =  -0 . 20692 12F 

09 

MOLE  NUMBERS  ARE  - 

C  LI  4 

— 

0. 00000 

C02  - 

284.13940 

02 

— 

0.00000 

N2 

2864. 86816 

H2  0 

— 

1652.97705 

H2S  - 

47.45825 

S02 

- 

2  7. 6  93  04 

S 

0.0 

S? 

— 

0.  15809 

S6 

13.87646 

S3 

— 

20. 99840 

COS  - 

3.49270 

CS  2 

- 

0. 012  14 

H2 

75. 12695 

CO 

- 

26.52046 

s 

0.0 

O/  \1/  -Jy  x*y  Jy 

y,v  y(s  y(j-  yp  s 


'  Vy  »*y  s'y  »Jy  Jy  >#y  '■•y 


<  >Jy  v*y  Jy  J- 


iV  ?*\  ;!c  )'{  J*£  V'  5^  ’(V  A*  sty  Jy  viy  V*y  Jy  sly  *‘y  sJy  Jy  sly  s&y  <^y  «A«  Jy  -A  A  A  -A*  sly  sly  sly  sly  sly  s’y 

'.*»  y^  'jv-  ■'(•’•  'j>-  yj<  »*p  yy*  y*fs  -ys  yy*  y;x  -y,v  y^s.  ',s  y^  y,s  y,x  yp  yjs  yp  yp  ^s.  ?ts  <^s  y-s  _>p  y.x  yys  _*p  J,X  yp.  yp  y,-x  -yys.  3..X 


•'.V  (  T‘.’~  -k. 


t  .  ! 


.  I  ' 


- 

♦ 

'  »  •; 

“  <r 

. 

. 

, t'  [ 

f 

♦ 

..V 

E-114 


_ BLACK  BOX _ 

EQUIPMENT  NUMBER  8 


Ox  J,  Ox  Ox 


'  Ox  Ox  J* 


Ox  Ox  jV  • 


'  XX  -s'  x  nV  V/  s*Jx  .V  i«V  Vx  .V  v'/  ««x 

»  -'f'  <)'  xp  xp  Xp  Xp  xp  xp  >p 


EQUIPMENT  PROCESS  FEED 


T  F  M  P  E  R  A  T  UR E  (DEG 

.  E )  -  511.4 

PRESSURE 

(PSIA)  =  17.49 

STREAM 

ENTHALPY  ( BTU. ) 

=  -0.2069212E  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C  02  - 

284.13940 

02 

0. 00000 

N2 

2864. 86816 

H  2  0  - 

16  52. 9  77  C5 

H2S  - 

47.45825 

S02  - 

27.60304 

S 

0.0 

S2 

0. 15809 

S6 

13.87646 

S8 

20.  09840 

COS  - 

3.49270 

CS2  - 

0.01214 

H2 

75. 12695 

CO  -  26.52046 

vV  nO  vlx  Jx  Jx  v*x  4/  -Jx  »4x  Ox  -»<x  sAx  ■J'x  Ox  ■A'  \*x  4x  Vx  N^X  Jx  Ox  Jx  jx  4x  lA«  Ox  «lx  >Jx  Jx  Vx 

xp  xp  xp  xp  x,».  x,s,  xp  -'/V  xp  x.-s.  x*p  '  X  xp  xp  xp  xp  x,x  xp  x^  XjV  -p  xp  xp  xp  xp  xp  xp  xp  xp  x,  v  xp  xp 

S 

jx  Jx  »V  >?x  Ox  Ox  Jx  4x  Vx  v*x  ^tx  -^<x 
xp  xp  xp  xp  xp  xp  xp  xp  xp  xp  .-p 

0.0 

Ox  Ox  Jx  six  s>x  Ox  sV  Ox  six  six  six  Ox  Ox  Ox  Ox 

-"C*  V  'T*  “r-  -V  *c-  V*  *YV  T  T  'V*  •*<"  V* 

TEMPER  AT UR 

E  CHANGED  FROM  511.4  TO  383 

.0  DEG.F. 

(ENTHALPY  DIFFERENCE  IS  -0 

.ix  %V  *<X  ijx  »*/  -*X  -.V  V*X  \>X  Jx  >>x  sV  »V  Ox  Jx  Jx  Jx  -?x  s*x  >*x  Ox  *<x  xU  -Jx  *Jx  Jx  Jx  O.x  Ox  ■Jx  Jx  x^x 

XJ*»  xp  xp  3p  xp  xp  xp  xp  xp  XA  X,S  Xp  X^.  >p  Xp  -»p  xp  Xp  xp  xp  X/  -p  xp  xp  xp  xp  XA  x(,  -p  xp  x(>  Xp 

.520341 F  07 

Jx  ^X  H*X  Jx  ><x  six  S*X  sV  s.tx  Jx  Jx  Ox 
xp  -xp  xp  xp  Xp  X|S  xp  xp  -',S  »|S  xp  xp 

BTU /HR  .  ) 

Ox  Ox  Ox  Ox  Ox  -Ox  Ox  Ox  \lx  -Ox  Ox  Ox  Ox  Ox  Ox 

xp  xp  xp  x:s  Xp  J^S  xp  xp  xp  xp  xp  xp  xp  xp  xp 

STREAM  NUMBER  30 

TEMPERATURE  (DEG 

.  F )  =  383.0 

PRE  S SURE 

(PSIA)  =  17.70 

ST  REAM 

ENTHALPY  (BTU.) 

-  -0.212 1246E  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.00000 

CO  2  - 

284.13940 

02 

0. 00000 

N2 

2864. 86816 

M2  0  - 

1652.97705 

H2S  - 

47.45825 

SO  2  - 

27.69304 

S 

c 

• 

o 

S2 

0.00510 

S6 

5. 7265  3 

S8 

27.14906 

COS  - 

3.49270 

C  S  2  - 

0.01214 

H2 

75.12695 

CO 

26. 52046 

S 

o 

• 

o 

5j«  *  ijc  ;'<  :$<  £  4,c  7%t  *  4:  4'.  4c  >lc  jjj  4c  ij; 

4c  4c  4c  sj<  4c  sj:  if.  4<  ^  4,c  4,c  4jc  4c  if.  i|c  sjc  4jt  sjc  $/:  Y  #  n*  #  4< 

•  ' r  .  \ 

. 

. 

<  ■ 

E  - 1 1  5 


_ _ CONDENSER  1 _ 

EQU I PMFNT  NUMBER  9 

»  *  *  *  *  *  *  *  »  *  *  * *  *  **********  *  *  **********  *  *  **************  *  *  *  *  *  * 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  E)  =  383.0  PRESSURE  (PSTA)  =  17.70 

STREAM  ENTHALPY  (BTU.)  =  -0.2121246E  09 


CH4  - 

MOLE  NUMBERS 

0. 00000 

ARE  - 

C02  - 

284.13940 

02 

0.00000 

M2 

2864.86816 

H20  - 

1652.97705 

H2S  - 

47.45825 

SO?  - 

2  7.  693  04 

S 

0.0 

s? 

0. 00510 

S6 

5.72653 

SB 

27. 14906 

COS  - 

3.49270 

CS2  - 

0.012  14 

H2 

75. 12695 

CO 

26.52046 

S 

0.0 

*..*  r.  r.  *5  *  *  *  *  *  *  T-  *****  *  *  *  ********************  *  **********  *  *  *  *  *  *  * 


CQNDFNJSC-P  simulation 

*  * * * * *****  *  ************************** * ************ * ********  * 


TUBE  LENGTH  (FT.)  •=  16. 0 

TUBE  DIAMETER  UN.)  =  1.282 

NUMBER  OF  TUBES  =  102~5 

MAXIMUM  CLOU  RATE  (L8/SQ.ET.SEC)  -  4.08 

OUTLET  GAS  TEMPERAT U R E  (  DEG  .F  ) . = . . . . . 320. 7 

U  (OVERALL)  ( BTU/HR.SO.FT.DEG.F)  =  14.6? 


*  * *  *  *  *  *  *  * * * ****** *  ***************************** *  *********** * 


EQUIP.  HEAT  duty  (BTU /HR)  IS 


0.3491 473E  07 


STEAM  TEN  ^ .  (DFG,p.)  = 
PRESS.  I  PS  I  A)  = 

L  A  T  E  M  f  H  EAT" . (  B  T  U  71 3  ) 

L.H.  CORRECTION  = 
PRODUCTION  (LB/HR)  = 


301.2 
68.200 
908 . 9 
0.0 

0.3841387E  04 


Jr  'lr  -Jr  nU  -J.  Ji-  O/  •Jr  O r  -Jr  -Jr  Jr 


******  *  *  *  *  *  *  *  *  *  *  *  *  *  *  :*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


T  r 

* 

! 

.0 

'■ 

. 

— 

« 

!  « 

•» 

■  .  •  ■ 

*  - 

' 


, 


E-l  16 


CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  -  64.06,  PERCENT  RECOVERY  =  3?. 58 

. SULPHUR . FOG . - .  154.60  MOLE  St  OR  4947.4  LRS. 

S UL P HU R  L I QU I D  -  81.95 . MOLES, . OR . 2 6227? . LBS . 

(STREAM  NO.  17  ,  TEMPERATURE  =  303.6  DEG.F.) 


:  5jc  ^ 


7'  'R  ^  A'  'V  ■'*'  ■A'  J'  sl^  -X>  Ax  sV  Ax  A>  A  A*  %•/  A>  A*  Jy  .*»  jy  ^y  six 

t '  t'  -  r*  <)V  "r'  ■'('  -rr'-  A'  -‘c  JV'  “'I  -*6  A'-  *>v  -<w  -yf'  v  x^v  x,s  x^  ^  ?/*  *"<*  'jv  xys  T'>  yp  '!'■  *¥*  -V*  '<‘v  ■,»  *y»  yj» 


S  p  F  C  I  FT  ED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 
(  LB  S  .  S  7 1 0  0  LB. . MOLES . INERTS) . ' . 10. 00 . 


EXISTENCE  OP  OF  — M  I  STF  R  13  ADS  IS  IMPLIED 


REVISED  SULPHUR  OUTiPT 

PERCENT  CONDENSATION  = 

94.04,  PERCENT 

RECOVERY  =  37.85 

SULPHUR  FOG  - 
SULPHUR  LIQUID  - 
(STREAM  NO.  17  f 

15.5^  MOLES,  OR 

2 20.99  MOLES,  OR 
TEMPERATURE  •=  314 

498.2  L  3  S . 

7071.6  LBS. 

.4  DEG.F . ) 

N*y  Ay  Ay  vV  Jy  v*y  Ay  Ay  Ay  Ay  v*y  sty  Ay  Ay  Ay  Ay  Ay  -six  Ay  Ay  A**  Ay  Ay  Ay  -Ax  Ay  s*y  A. 

■V»  -p  -v  y>v  -yp  ';N  x,-s  -y»  'f>  ')'■  *t~  -"6  -v*  xp  -sv  x,s  xp  x,s  x,s  ^  xj»  -p.  y,s 


Ay  Ax  Ay  Ay  Ay  Ay  Ax  -Ax  Ay  Ax  sty  Ax  Ax  »4y  Ay  sty  Ax  s*x  Ax  Ax 

x,s  yys  yys  Xp  y,s  x,s  yjs  y,s  y,\  x.v  xxs  yyv  xp  xp  y-s  xp  y.s  y,s 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  3  1 


TEMPERATURE  (DEG.  F )  =  320.7  PRESSURE  (PSIA)  =  17.56 

. STPFAM . ENTHALPY .  ( BTU.  ) . - . -0.2161872E  09 

MOLE  NUMBERS  ARE  - 


CH4  - 

0. 00000 

CO  2  - 

284. 13940 

02 

0. 00000 

N2 

2864.86816 

H  2  0  - 

1652.97705 

H2S  - 

4  7.45  82  5 

S02  - 

27.69304 

S 

0.0 

S  2 

0.00039 

S  6 

0.38483 

S  8 

1. 58685 

COS  - 

3.49270 

CS2  - 

0.01214 

H  2 

75.12695 

CO 

26.52046 

S 

15.56963 

sty  Ay  Ay  -six  Ay  Ax  Ay  six  -Ax  Ay  six  Ay  -Ax  six  -Ax 

xp  xp  xp  y-p  -y,s  xp  y,s  yys  .xp  x,-%  -j s  x,S  p  y^s  xp 

six  six  Ay  Ax  six  sty  Ay  Ax  Ax  Ay  Ay  Ax  six  -A> 

xp  -|S  X|%  xp  y,s  x,«.  y,v  -jS  >jV  xp  <jS  X|V  pyv 

Ax  si»  Ay  Ax  Ax  six  six  Ax  six  Ax'  six  six  six  Ax 

XjV  Xp  Xp  xvs  ,Xp  XjS  Xp  pv  Xp  xp  Xp  xp  Xp 

six  Ay  Ax  Ax  Ax  six  six  six  Ax  six  Ax  six  six  Ax  six  Ax  Ay 

xp  y,v  >,S,  Xp  Xp  xp  xp  Xp  Xp  Xp  X.(S  xp  Xp  xp  xp  Xp  *p 

t 

. 


.  ‘  . 


, 


.  i  ' 

, 

. 


F  - 1 1  7 


BLACK 

BOX 

EQUIPMENT  NUMBER  10 

*  *  *  *  *  *  *  it  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  A  *  *  *  *  *  *  *  *  *  *  *  *  * 

EQUIPMENT  PROCESS  FEED 

TEMPERATURE  (DEG.  F)  =  320.7 

STREAM  ENTHALPY  (BTU. 

PRESSURE  (PSTA)  =  17.56 

)  =  -0.2 161872E  09 

MOLE  NUMBERS  ARE  - 

CH4  - 

0.00000 

C02  - 

284.13940 

02 

H20  - 

.so  2  . -. . 

0.00000 

1652.97705 

27.69304 

N2 

H2S  - 
S 

2864. 86816 
47.45825 

0.0 

S2 

SR 

CS2  - 

0.00039 

1. 58635 
0.01214 

S6 

cos 

H2 

0.38483 

3.49270 

75. 12695 

cn 

26.52046 

S 

15.56963 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  At  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

TEMPERATURE  CHANGED  FROM 

320.7  TO  388 

.0  DEG.F. 

(ENTHALPY  DIFFERENCE  IS 

0.265 944 E  07 

BTU /HR . ) 

•A*  '*'  *£r  Yr  -4  7»  <A  -J#  Jy  xiV 

-}-  -^V  >(X  JJX  ^»j\  r.x  Jjx  rf(\  ^|>  .»,.•  *f-  «*(x 

iV  7'  Y'  Y"  >v  sfl>  .1/  xl»  A  vV  J#  J.  Y  -A-  \V  >Y  *>/•  X*—  *.1  f 

'>'■  >|V  -r^  >p-  '•j*  ■»!*■  «*(*'  <;v  .,v  ^-,-x  ^X  y,.x  i|X  »yx  yjX  -»>•- 

Y  ■A'  Ai>  A>  A^  A/  xV  A/  »V  «'»  -A.-  »l, 

■V  ‘V*  "iv  ''Y  -v  <iv  'i'  '?•  '>■*  «■* 

A#  -A#  xV  A/  A/  «V  xV  -YU  4/  -x*^  -A>  xV  Ao  xV 

t'-  •'j’x  ',x  i,X  --^X.  ^x  A,X  _»yx  •',X.  ^x  y(x  ."-yX 

STREAM  NUMBER  18 

TEMPERATURE 

ST 

(DEG.  F)  =  388.0 

REAM  ENTHALPY  (BTU. 

PRESSURE  { PS  I  A )  =  17.20 

)  =  -0.21352  77F  09 

MOLE  NUMBERS  ARE  - 

CH4  - 

0. ooooo 

C02  - 

284.13940 

02 

H2  0  - 

SO  2  - 

0. ooooo 

1652.97705 

27. 69304 

N2 

H2S  - 
S 

2864.86816 

47.45825 

0.0 

S? 

S8 

CS1  - 

0.00348 

2.96111 

0.01214 

S6 

COS  - 
H2 

1.  14639 
3.49270 

75. 12695 

CO 

26.52046 

S 

0.0 

***$*-$  *********  j{c  *  *  Sjc  *  *#*s*$*##*#^#*  ******  *##;{£#$:*  *  *  ************ 


.  ■ 

. 


.  . 


E-118 


_ CONVERTER  3 _ 

~  EQUIPMENT  NUMBER  FT 

*****  *  *  *  *  *  *  *  *  ❖  ❖  ❖  *  *  *  *  *  *  *  ❖  4=  **4«*4:4c  *  *  *  *  4c  ajc  *  *  4c  ****4e4e4c4c*4e***4c4:4<  4t  ❖  *  * 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  E)  =  388.0  PRESSURE  f  P  S I A  3  ■=  17.70 

STREAM  ENTHALPY  ( BTU. )  =  -0.2I35277F  09 


MOLE  NUMBERS  ARE  - 


CH4 

0.00000 

C02  - 

284. 13940 

02 

0.00000 

N2 

2864. 86816 

H20 

1652.97705 

H2S 

47.45825 

SO  2 

27.69304 

S 

0.0 

S2 

0.00348 

S6 

1 . 14639 

SB 

2.96111 

COS  - 

3.49270 

C  S  2 

0.01214 

H2 

75.12695 

cn 

26.52046 

S 

0 

• 

0 

*  *  *  *  *  *  4=  4=  4?  ❖  *  4c  4: 4<  4*  '*  £  4=  4«  4*  4?  $  4*  4<  *  4<  4«  4=  4<  $  *  4c  #  #  *  *  4c  4: 4c  4c  4<  ❖  4'  ❖  4c  4*  4<  *  ❖  4c  4c  4c  4c  4c  4<  4c  4c  4c  4c  4c 

CONVERTER  bed 

(SIMULATION) 

CROSSECT IONAL  AREA  (SQ.FT? 

- 

760.00 

THICKNESS  (TT.)  - 

3 . 00 

VOLUME  CCU. FT.)  = 

2280.00 

LINEAR  GAS  VELOCITY  (FT. /SEC.)  = 

1. 00 

MOLAL  FLOW  RATE  (MOLE /HR. S 

Q.FT.)  = 

2. 19 

AVERAGE  PARTICLE  DIAMETER 

(IN.)  = 

0.15 

PRESSURE  DROP  (PSI.)  = 

0 . 3  64 

4c4c4c4c*4c4c4c4c4<4c4c4c  4c4c4c4c4c  4c 4c 4c  4c  4c 4c  4c 4c  4c 4c  4c  4c 4e  4c 4«  4c 4c 4c 4c  4c  4c 4t  4*  4c  4c 4c 4c  4c*  4*4' 4c#  4c  4c  4c  4c  4c  4c  4<  4c  4c 

ITERATIVE  ADIABATIC  TEMPERATURE  CALCULATION 


4<  it;  t'  *  *  *  4c  4c  4e#  4c  4c  4c  4'#*  #4:*  4c  4c  4c  $4:  4csje4c  4<4c  ❖  4c4'4<4c  fc##  *  ❖  4*  4*  £  *  #  4=  4=  4«  4*  4c 

. FJNAL  CONVERGED  TEMPERATURE  IS  406,6  DEG.  F 

P  R ESS  UR E ' " ( P SI  A.  ) = 16 .84  {  C  R I T  =  0 .10 E -0 3 f 

*❖#**❖❖❖*****  4c$****  * 4c 4s 4c 4c 4c 4c 4s 4s 4c 4c 4c 4c 4c  #4c 4c  #4c4c 4c  4«  &❖*********  *** 


r  , 

, 

. 

!  '  .r 

,  r 


E  —  1 1 9 


CONVERTER  DEW  POINT  CHECK  - 


RED 

TEMPERATURE 

DEN  POINT 
TEMPERATURE 

TEMPERATURE 

DIFFERENCE 

B5D 

PRESSURE 

391.711 

358. 339 

32.872 

17. 127 

395.422 

367. 167 

28.254 

17.054 

TEMPERATURE 

IS  LESS  THAN 

25  OEG.F  A80VF  DEN  POINT. 

399 .132 

374.226 

24.906 

16.982 

TEMPERATURE 

IS  LESS  THAN 

25  DEG.F  ABOVE  DEW  POINT. 

402.843 

330.834 

22.509 

16.909 

TEMPERATURE 

IS  LESS  THAN 

25  DEG.F  ABOVE  DEW  POINT. 

406. 554 

385.727 

20.827 

16.836 

*  *****  ***************  **************************************;£ 


PERCENT  OF  TOT  M  f  N  L  E  T  SIJLPH()R 
OUT  AS  ELEMENTAL  SULPHUR  =  72.50 


PERCENT  OF  NGN-ELEMENTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  61.81 


*  *******************************************  ****^^****^^^  ^^^ 

. CONVERTEP  EXIT  STREAM  - 

S T RE AM  NU M 8 E R . 19 


TEMPERATURE  (DEG 

.  E)  —  406.6 

PRESSURE 

(PS  I  A)  =  16.84 

STREAM 

ENTHALPY  { BTU . ) 

MOLE  NUMBERS 

=  -0.2 

ARE  - 

1 35 2  74 E  09 

CH4  - 

0.00000 

C02 

. 

284.13940 

02 

0. 00000 

N2 

— 

2  864.868  16 

H2Q  - 

1685.  3^473 

H2S 

— 

15.03993 

SO  2  - 

1 1 . 43389 

S 

- 

0.0 

S2 

0. 00783 

S6 

— 

2. 82569 

S8 

7. 77897 

COS 

— 

3.49270 

CS  2  - 

0.01214 

H2 

- 

75. 12695 

CO 

26.52046 

S 

- 

0.  0 

*  * **  ******  **  *******  ** *  ****** *  ********** *  *  ******************  * 


- 

'  .  ■  ’ 

. 

. 

1 

.  .  . 


-  .  ' 


• 

.  ■ 

. 

• 

-  5  IP 

’  .T 

!  I  . 

* 

' 

E-120 


CONDENSER  4 


EQUIPMENT  NUMBER  1? 

♦  ❖  *  *  4<  4c  *  4=  4<  4«  4c*  *  *  *  5,'t  3*C  35c 4s  *  *  *  *  4c  *  4<  *  *  sje  4c  4:  4s  4s  4c  4s  4c  4c  4c  *  4c  4c  4c  4c  4c  4;  4c  4c  4c  4c  4c  4c 

EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  F)  =  406.6 

STREAM  ENTHALPY  { B  T  U . )  - 


PRESSURE  (PSIA) 
-0.2135274E  09 


16.84 


MOLE  NUMBERS  ARE 


CH4  - 

0. 00000 

CG2 

284.13940 

02 

0. 00000 

N2 

2864.36816 

H  2  0  - 

1685.39473 

H2.S 

15.03993 

SO  2  - 

1! .43389 

S 

0.0 

S  2 

0.00738 

S6 

2.8256  9 

S3 

7. 7 7897 

COS 

3.49270 

CS?  - 

0.01214 

H2 

75.12695 

CO 

26. 52046 

S 

I 

o 

• 

o 

V'  A  A  A  A  -A-  V  A  Jr  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 
i'  o'  A'  o'  o'  ->•  '  -v*  -*{■'  o'  o'  sv  o'  Or  ■  ""6  -o'  o'  o'  O'  O'  -o'  -o'  o'  O'  o'  ^  o'  o'  o' 

4c  4c  4c  4c  4c  *  4c  4c  4c  4c  4e  4c 

A  Jr  A  -A-  A  A  *A  A  -A-  -A-  Jr  -A  Jr  A  A  A  A  A  A 

O'  S'  O'  O'  O'  O'  O'  O'  ''-'O'  O'  O'  O'  o'  O'  O'  V'  O'  O' 

CONDENSER 

SIMULATION 

4c  4c  4c  4c  4c  4c  4:  *  4c  4c  4c  4:  * 4c  * 

A  A  A  A  A  A  A  A-  A  A  -Jr  J>  A 
-r'  O'  o'  S'  O'  O'  O'  O'  o'  O'  O'  O'  O' 

A  A  y*r  A  A  A  A  A  A  A  A  A  -A>  A  A  A  A  A  A  A  A  'A  A  A  A  vir  A  <V  A  A  A 

O'  -O'  O'  O'  O'  o'  O'  o'  O'  O'  O'  Ov  O'  O'  O'  O'  O'  o'  o'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O'  O' 

TUBE  LENGTH 

{ ET. )  = 

20.0 

TUBE  DIAMETFR  (IN.)  = 

1.282 

NUMBER  OF  TUBES  = 

1025 

MAXIMUM  FLOW  RATE  ( LB/ SQ  .  FT . SEC )  = 


3.8  7 


OUTLET  GAS  TEMPERATURE  (DEG.E)  = 
U  (OVERALL)  ( BTU/HR. SQ.FT. DEG.E) 


268.5 

12.82 


'  7;  'Y  jV  iff  Y/  -Ar-  »'/  -A  A»  >V  A  -yO  -A  A  A  A  A  A  A  A  A  A  J»  -A*  A  A  A  A  A  A  A  -A  A  A  A  A  A  ■ 

'  o'  o'  o'  O'  O'  o'  t  O'  o'  o'  o'  o'  vv  A**  o'  t  o'  o'  -v*  36  'Vs  t  6'  t-  o'  v  v  o'  ov  o'  t  o**  v  <6  O'  ov  O'  '3'  -v  o'  36  v  o'  -a  t*-  o'  o'  o'  S'  O'  • 


EQUIP. 

HEAT  DUTv  (BTU/HR)  IS 

0.5656767E  07 

STEAM 

TEMP.  (DEG,F.)  = 

PRESS.  (PS  I  A)  = 

2  50.4 

30.000 

LATENT  HEAT  (BT1J/LB)  = 

L.H.  CORRECTION  = 

PRODUCTION  (LB /HR)  = 

94  7.9 

0.0 

0. 5  96  791 0E  04 

~J '  A  A  -A-  A  A  A  A  >V  A  A  -A  A  A  A  A  A  A  A 

o'  o'  'C'  -<■'  o'  *i'-  o5-  o'  S'  -v-  o'  -v  o'  o'  S'  S'  a' 


A  A  A  J*  Jr  -'.♦r  A  Jr  A  A  A  A  A  A  A  A  A  A  A  A 
•Y*  O'  S'  v»  Is  -S'  O'  O'  -S'  'i'  **'  T  O'  S'  S'  O'  "i'  -o'  o'  O' 


A  A  A  A  -A  A  A  A 

-|V  ^  rj^  rj\  ryr.  r^ 


4c  4c  4c  4c  4< *  4c  4c  4c  4c  4c 


‘  ft 

( . 

.  ' 

,v , 

- 

'  l 

♦  ■ 

;  .  5 

. 

,  .  H'l  '  !  ' 


* 

*  ’ 

*  ' ♦  •"  r  i\i 


E-121 


CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  96.01,  PERCENT  RECOVERY  =  32.21 

. . SUL  ^  HUP FOG - .  50.53  MOLES,  OR  1616.9  LBS. 

S  UL  P  HU  R  L  I  OU  ID-  25.51  MOL  E  S  ,  O  R . 816. 5 IBS. 

(STREAM  NO.  20  ,  TEMPERATURE  •=  252.4  DFG.F.3 


^4  ^r»  .V  >V*  -.4  \4  Jy  \l>  4>-  .4 

"»'•  -r('  -!>“■  -y.  -*,■*  yy* 


V»y  -A*  -Jv  »A»  Jy  J,.  ^4  >4 


*  ❖  *  ❖  *  *  *  *  *  *  if  *  *  *  %  *  *  if  *  S<c  ^  *  *  #  *  *  *  *  $  ,;t  J-  *  .o  5v  *  ;;; 


SPECIFIED . MAX  I  M!  i  M  A  L.  L  OW  ABLE  FOG  FOR  M  A  T I  ON  , 

(LBS.  S / 1 0 0  LB.  MOLES INERTSl =  “ 8 . 00 


EXISTENCE  OF  DE-MISTER  PADS  IS  IMPLIED 


REVISED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  •=  96.01,  PERCENT  RECOVERY  =  80.34 


SULPHUR  FOG  -  12.42  MOLES,  OR  397.3  LBS. 
SULPHUR  LIQUID  -  63.63  MOLES,  OR  2036.1  LBS. 
. (STREAM  NO.  20  ,  TEMP E R A T UR E  =  262.  1  DFG.F.3 


#  #***  *  ft##-############: 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  21 


TEMPERATURE  (DEG.  E3  =  268.5  PRESSURE  (PSIA)  =  16.66 

_ _  STREAM  ENTHALPY  { BTU . 3  =  -0.2193183F  09 


MOLE  NUMBERS 

ARE  - 

CH4  - 

0.00000 

CO?  - 

284. 13940 

02 

0.00000 

N2 

2864.86816 

H20  - 

1 685.39478 

H2S  - 

15.03993 

SO?  - 

1 1. 48389 

S 

0.0 

S2 

0.00004 

S6 

0.06724 

S8 

0.34488 

COS  - 

3.49270 

C  S  2  - 

0.01214 

H2 

75. 12695 

CO 

26. 52046 

S 

12.41518 

:  jfcjJrsJe  sS<  ###  ^  sjc  ^  i{  if  if  #  #  if  if  jJc  %  %  if  if  i<  j{e  if  if  if  if  #  if  #  if  ##  ififif  if  if  if-%.  if  if  ifififir&if 


*  «  t  _  , 


.  '  r  .  1  ■  . 

•  * .  »  , 

f  r  *  ' 

I  ■  -  •  ■ 

*  f  f 


(  .  - 


•  ?  ) 


.  ,  ■  #  _ 


■  0  . 

4  i 

'  . r  ! 

» 

* 

■  T  . 

r-  ►  j 


E-  122 


EXHAUST  GAS  I  NC,  I  N  FRA  TOR 
EQUIPMENT  NUMBER  13 


*  *  *  *  *  *  **********  *  ****************  *  *  ****************  * 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  E)  =  268.5  PRESSURE  (PSIA)  =  16.66 

STREAM  ENTHALPY  (BTU.)  =  -0.2L93183E  09 


MOLE  NUMBERS  ARE 


CH4 


0. 00000 


02 
H20 
SO  2 


0. 00000 
1685.39478 
U.  43389 


CO  2 


M2 

H2S 

S 


52 

53 

CS2  - 


0.00004 

0.34438 

0.01214 


S  6 

cos  - 

H  2 


CO 


26. 52046 


S 


234.13940 


2  864.868  16 
15.03993 
0.0 


0.06724 

3.49270 

75.12695 


12.4151 3 


:***  ***************  *************************************** 


FUFL  AND  AIR  STREAM 
STREAM  NUMBER  27 


TEMPERATURE  (DEG.  FI  =  72.0  PRESSURE  (PSIA)  =  15.00 

_ STREAM  ENTHALPY  (BTU.)  =  -0. 560 1844E  07 


MOLE  NUMBERS  AP  E  - 


CH4 

1 07. 61998 

CO  2 

0.0 

02 

386.63965 

N2 

1454.43975 

H  20 

19.86998 

H2S 

0.0 

S02 

0.0 

S 

0.0 

S  2 

0.0 

S6 

0.0 

S  8 

0.0 

COS 

0.0 

CS2 

0.0 

H2 

0.0 

CO 

0.0 

S 

0.0 

'V  "iV  iV  7?  7;  vV  ->V  s'/  V-'  Y*-  -*»  A  «'■'  ■A*  >*'  ^  A>  A-  -%*#•  v*y  Jy  X  Jy 

^  4-*  ''*•  4s*  *¥*  “6  4v  4^  "6  -r»  <*"  V-  4“  •v*  v  3p*  -**•  -V  4-  65  -v-  rr-  V  '*  '4'-  ^  -  v  9 

sV  J'  -A  A*  Jy  4  A#  4  4  4  4  4  4  4 

y^x  .»^v  y^x  «»jX  y,x  4  ^  yjV  yjfx  y^x  yjx  y(x  >^x  yp»  -*,x  .Jjs 

ITEPATIVE  ADIABATIC 

TEMPERATURE 

CALCULATION 

* *****  *  * ******** * * *** *************************************** 


FINAL  CONVERGED  TEMPERATURE  IS  1200.4  DEG.  F 
PRESSURE  (PSIA.)  =  16.66  (CRIT  =  0.10F-03  ) 


**********  *.*  ************************************************ 


- 


■ 

'  . 


< 


•  ..  . 

\  < 

. 

’  *'  . 


II 

. 

‘  :  •  r  , 

. 


' 


. 


(  :  ,r' 


. 


■  .r  ! 

. 


E-123 


INCINERATOR  EXHAUST  STREAM 
STREAM  NUMBER  23 


TEMPERATURE  (DEG 
_ _ STREAM 

.  F )  =  1200.4 

ENTHALPY  (BTU.)  = 

PRESSURE  (RSI  A)  =  16.66 

-0.2249201P  09 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0.0 

C02  - 

421.78345 

0  2 

7  7 .  16615 

M2 

4319.35547 

H2  0  - 

2010.671 39 

H2S  - 

0.0 

SO?  - 

45.61459 

S 

0.0 

s? 

0.0 

S6 

0.0 

SR 

0.0 

COS  - 

0.0 

CS2  - 

0.  0 

H2 

0.00000 

CO 

0.00000 

S 

0.0 

s^:  ^3>£4c3!c  j{j  ^  : 


)  . ! 

. 


- 

. 

1 

E  - 1  2  4 


SULPHUR  PLANT  STACK 

EQUIPMENT  NUMBER  14 


H,  V  *•{.  /,S  . 


'  4c  4c  4c  4:  4=  4«  4c  4c  ❖  aj<  4=  4'  4c  4c  4c  Z-  4c  4'  4«  4;  4'  4c  4c  4=  4c  4;  4;  4c  4;  4c  *  4c  4;  -if.  #  4c  4=  4c  4:  4c  4;  4c 


EQUIPMENT  process  feed 


TEMPERATURE 

(DEG.  F)  =  1200.4 

PRESSURE  (PSIA)  =  16.66 

STREAM  ENTHALPY 

(BTU.)  = 

-0.2 249 20 IE  09 

MOLE 

NUMBERS 

ARE  - 

CH4  - 

0.0 

CO 2  -  421.78345 

07 

77.  16615 

N2  -  4319.35547 

H2  0  - 

2010.67139 

H7S  -  0.0 

SO  2  - 

45.61459 

S  0.0 

S2 

0.0 

S6  -  0.0 

S3 

0.0 

COS  -  0.0 

CS2  - 

0.0 

H2  -  0.00000 

o 

CD 

i 

0. 00000 

S  0.0 

■J*1  •V*-'  V1#  tf-'  J*  J/  vV 

>»,*  *V  /•,%  S’  »,s  S'1  -S’*  ■*!'  s'* 

X  ■>*>■  «&»  Jc  >•/  V*.  .’*>■  ’O  -vl*  V*. 

s%*  <**{*  S’  *-v^  S’  Sf’  sv  'Y* 

'V  <A>  A.->  -A.  vV  *A*  -J/  J.  >U  *•/  ’l*  ’U  -Oi»  >V  v**  -A.  vV  >*#■  -A,-  d/  -AU  ’V  A-  J-  A*  Ar  xO 

S’  ss  -Sv  S%  ^{’  s’  S’  S’  ■*/*  -’i’*  'i1*  'f*  s’  'S’  S’  S’  S’  s’  'iv  S’  S’  S‘  ,Siv  S’  S’  6’  S’  -'f’  S’  S’  -Y’ 

SULPHUR  PLANT  STACK  SIMULATION 


AMBIENT  TEMPERATURE  (DFG.F)  =  30. Q 
EQUIVALENT  STACK  TEMPERATURE  (DFG.F)  =  __  72.7 

TOTAL  GASEOUS  STACK  FLOWRATE  { C  .  F . S .  A  T  TE  Q I  V )  =  65  5.0 
POLLUTANT  ( S 02 )  FLOWRATE  (C.F.S.  AT  TEQIV)  =  4.346 
STACK  OUTLET  TEMPERATURE  (DEG.F)  =  1000.4 


o. 


.  ^  ^j\  rj*.  , 


STACK  DIAMETER  (FT.  AT  TOP)  =  3.70 

STACK  VELOCITY  {FT/SEC.  AT  TOP)  =  60.92 


ATMOSPHERIC  CONDITIONS 


STABLE  UNSTABLE 


STACK  HEIGHT  (FT.)  = 

MAX.  GROUND  CONCENTRATION  (PPM) 
WIND  SPEED  AT  MAX.  (FT /SEC)  = 
DISTANCE  (SOURCE  TO  MAX.,  FT.)  •= 
EFFECTIVE  STACK  HEIGHT  (FT.)  ■= 


130.0  130.0 

0.20_11  0.166  1 
14.67  ~ .  20 .00 

3312.  3136. 

416.6  313.6 


. 

* 


f  .VT 

i ; .  • 


■ 


■  ■  ■  ■  ?  - 
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EXAMPLE  4. 


SPECIFICATIONS 


PLANT  FEEDS 


BOILER  FEED 

NO.  1  INLINE 

NO.  2  INLINE 

INCINERATOR 

BURNER 

BURNER 

CH4 

33.5 

14.167 

19.375 

278.3 

C02 

1330.88 

23.17 

19.04 

COS 

1.13 

H20 

132.4 

2.29 

1.875 

H2S 

3100.1 

54. 

44.33 

02 

1396.7 

44.75 

35.83 

880.5 

N2 

5270. 

168.96 

135.5 

3321.7 

SPECIFIED  TEMPERATURES  AND  PRESSURES 

DEG. F . 

PSIA. 

AMBIENT 

45  • 

BOILER  ACID  GAS  FEED 

82. 

19. 

BOILER  COMBUSTION  AIR 

139. 

20.3 

INLINE  BURNERS  *  FUEL  AND  ACID  GAS  FEEDS 

120. 

19. 

INLINE  BURNERS'  COMBUSTION  AIR 

139. 

20. 

INCINERATOR  AIR  AND  FUEL  GAS 

100. 

20. 

BOILER  EXIT 

700. 

PRIMARY  (BOILER)  EQUILIBRIUM  CUTOFF 

2000. 

SECONDARY  (MASKING)  EQUILIBRIUM  CUTOFF 

2000. 

NO.  1  CONDENSER  EXIT 

445. 

NO.  2  CONDENSER  EXIT 

350. 

NO.  3  CONDENSER  EXIT 

339. 

NO.  4  CONDENSER  EXIT 

282. 

MISCELLANEOUS 


2  PASS  BOILER  30  FT.  LONG 

MINIMUM  FLAME  REACTION  RESIDENCE  TIME  0.6  SEC.  (BOILER) 
AND  0.5  SEC.  (INLINE  BURNERS) 

MAX.  FOG  IN  1ST*  2ND*  3RD*  AND  4TH  CONDENSERS  10*  5*  3* 
AND  3  LB.  SULPHUR/100  MOLES  INERT  EXIT  GAS  RESPECTIVELY 


■ 
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1(1) 


2 

(4) 


17(2) 


$  7(5) 


35 


15(2) 


' 


13 


'//lllUJu 

3(3) 


14 


$  r- 


15 


4 

(4) 


24 


25 


$5(5) 
~2£- 


17 


'////////, 

B(3) 


16 


$  I- 


18 


8 

(4) 


26 


20 


'////////< 

9(3) 


19 


21 


10 

(4) 


27 


22 


11(8) 


11 


LEGEND 

NUMBERS  DENOTE  STREAM  OR  EQUIPMENT  NUMBERS 
NUMBERS  IN  BRACKETS  DENOTE  EQUIPMENT  TYPES  - 


WASTE  HEAT  BOILER 

6- 

COMBINER/DIVIDER 

INLINE  BURNER 

7- 

AIR  AODER 

CATALYTIC  CONVERTER 

B- 

INCINERATOR 

SULPHUR  CONDENSER 

9* 

EFFLUENT  STACK 

ADIABATIC  COMBINER 

10- 

BLACK  BOX 

FIG- 


E-4 


EQUIPMENT  MODULE  (PROCESS) 
FLOWSHEET  FOR  EXAMPLE  4- 


E- 127 


PROGRAM  DATA  (CARP  IMAGE) 


C  EXAMPLE  4.  (SIMULATION) 

♦PROGRAM  CONTROL  PARAMETERS* 

_  OOOOOOOOOO  000  01 

♦  END* 

♦FLOWSHEET  DATA* 

I  0  1**5  0  1**9  0  11**7  0  15**6  0  15**3  0  17**7  0  17** 

3  5  15  5**36 . 1  7 . 7** . 

II  11  12**13  1  2**14  2  3**15  3  4**16  4  5**17  5  6**18  6  8** 

10  3  7 **20  7  9**21  9  10**22  10  11**24  2  0**25  4  0**26  8  0** 

27  10  0**30  12  0** 

♦  FNO* 

♦STREAM  SPECIFICATIONS* . 

1  1  33.5  2  1330.88  12  1.  125  ~6 . 3100.  1 . 5 . 13274 21 87. 77 1  9.** 

5  3  1396.7  4  5270.  21  139.  22  20.3** 

2  4  .25  1  14.  167  2  23.  1  7  6  54.  5  2.29  2  1  120.  22  19.  ♦♦ _ 

6  3  44.75  4  168.71  21  139.  72  20.** 

3  4  .333  1  19.375  7  19.04  6  44.33  5  1.875  21  120.  22  19.  ** 

7  . 3 . 35. 83 . 4 . 135 . 17 . 21  ...  139.  ??  2  0.** 

9  I  278.3  3  880.5  4  3321.7  21  100. . 22  20.**" 

*END* 

♦  EQUIPMENT  PARAMETER  SPECIFICATIONS* _ 

1  It  2  4 1  3  3,  4  4  ,  5  5,  6  3  ,  7  5  ,  8  4,  9  3t  10  4,  II  3,  12  9 

15  2,  17  2  ** 

.1 . i . 7. . 2 . 30.  .10  7  00.  15  .6  2  5  2000.  ** 

2  1  1.  7  24.  8  445.  10  10.** 

3  11. ** 

4  _ 1  2  .  7  25.  8  35  0.  10  5  .** _ 

6  17. ** 

8  1  3.  7  26.  8  339.  10  3.** 

9  _  13.**  ____  _ 

1 6  . T  4 .  7  2 7  . . 8  28  2. . 10  3  .  **  . 

11  *  9.** 

12  _ 1  45.** _ 

15  3  .5** 

17  3  .5** 

*FND*  _____ 

C  .  MOLECULAR  AND . THERMODYNAMIC  DATA  SAME  AS . EXAMPLE  1 . 


'  <  I  __  J 


frr  /' 


f 

■  . 

„  O  { 

.  r  •  •  ; 

. 

•  • 

y  . 

•* 

* 

■  f 

.  '  I 

«- 

r  .  r 

. 

•  . 

. 

.  , 


SULPHUR  PLANT  DESIGN  AND  SIMULATION 


PROGRAM . CONTROL  PARAMETERS 

END 

FLOWSHEET  DATA 
END 

STREAM  SPECIFICATIONS 
END 

EQUIPMENT . PARAMETER . SPCC IF ICATIONS 

END 

MOLECULAR  AMD  THERMODYNAMIC  DATA 


END  OF  ALL  DATA 


' 
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CALCULATION  SEQUENCE  OPTIMIZATION 

V*-1  J 

<,V  ^  ^  J ,N  '[ 

js  *  * 

*********  *  **  *  **  *******  ***  ***************  ********  *** 

INITIAL  SEQUENCE  IS  - 

1  2 

3 

4  5  6  7  8  0  10  11  12  15  17 

THE  OPTIMIZED  CALCULATION  SEQUENCE  IS  - 

L  2 

3 

41517  5  6  8  7  91011.  12 

*  *  *  *  *  *  i 

l£  ** 

NO  STREAMS  NEED  BE  ASSUMED 

*  ** ****** *** * * * *  *  *  * * * *  **  *************************** 

PRIMARY  "  P  E  AC  T  I  ON  “~C  iFf' ":WF"Te MPERATURE  Tb OILER’ > . = . "2000.  DEGTf 

SECOND A R v  REACTION  CUT-OFF  TEMPERATlJPF  =  2000.  DEG.F 

(RELOW  THIS-  TEMPERATURE,  THE  LAST  4  GASEOUS 
MOLECULAR  SPECIES  ARE  MASKED  EQR  THE  BOILER 

A N D  T  HE  CON V E  R  TER  COMPOS  if  f 0 N . CALCULATIONS. ) 

****** * * *  * * * * * * * * * * * * * * * * * * * * * * * ****** * * ************ * * ****** 


' 


' 

* 
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r GMBUST ION  REACTION  AMO  WASTE  HEAT  BOILER. 
EQUIPMENT  NUMBER  1 


CONDENSER  1 
EQUIPMENT  NUMBER  2 


CONVERTER  I 

. . EQUI  PM  ENT  N  U  M8ER  3 

f  EM  PE R A TUP  E  I S  L  ESS . THAN  ‘25 . DEG 7F . ABOVE . DEW . POINT. . 

467.429  459.590  7.839  18.432 

TEMPERATURE  IS  LESS  THAN  25  DEG.E  ABOVE  DEN  POINT. 
489.853  469.841  20.017  18.403 


CONOENSFR  2 
EQUIPMENT  NUMBER  4 


INLINE  BURNER. 
EQUIPMENT  NUMBER  15 


INLINE  BURNER. 

EQUIPMENT  NUMBER  17 


A  0 1  A  3  A  T I C  ST  RE A  M  COMB  I N E  R 
EQUIPMENT  NUMBER  5 


CONVERTER  2 

EQUIPMENT  NUMBER  6 

CONDENSER  3 

EQUIPMENT  NUMBER 

8 

ADIABATIC  STREAM  COMBINER 

EQUIPMENT  NUMBER 

7 

CONVERTER  3 

EQUIPMENT  NUMBER 

9 

CONDENSER  4 

EQUIPMENT  NUMBER 

10 

’ 


, '  ;  ■< 

. 

EXHA' 1ST  GAS  !  NC  I  NCRATUP 

EQUIPMENT  NUMBER  LI 


SULPHUR  PLANT  STACK 
EQUIPMENT  NUMBER  12 


' 


E  - 1 3  ? 


_ OVERALL  PLANT  MASS  AND  ENFRQY  BALANCE _ 

*  *  ******  *  *******  *  *  **********  *  *  *************  *  *  *************** 


ATOM  AND  TOTAL  MASS  BALANCES 


ATOM 

ATOM 

PERCENT 

Tv  re 

TOTAL 

ERROR 

S 

0.319955E 

04 

0.00075 

0 

0 . 759942E 

04 

0.0 

r 

0. 171956E 

04 

0.00003 

H 

0.8051 36F 

04 

0.00015 

N 

0 . 177923E 

05 

0.0 

TOTAL 

0.333622E 

05 

0.00009 

*  *  *  * *  *  *  * *  *  * *  *  * ********************** *  ****** * *  * *  * * ******** *  * * 


FNERGY  BALANCE 

. (  ENTHALPY . IS . RELATIVE  AND  IN . BTU . ? 

ENTHALPY  IN  =  -0.281556E  OP 
EN  THALPV  OUT  =  -0.556069F  09 
. DIFFERENCE . = 0. 274513F 09 

DIFFERENCE  SHOULD  BE  TOTAL  PLANT  HEAT  LOAD 
*  *  *** ************** ** ************ ************** ***  ****** *  *** 

^OVERALL" . PLANT . SULPHUR  “RECOVERY . 

PERCENT  OF  TOTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  97.23 

********************* *** ************************************ 


i 

. 

- 

. 

It 
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FQUIPMFNT  PAR  AMFTFR  SUMMARY 


:*#***  **  *******  ❖  ****  *$$$*.^  *$$$$$  *** 


PARAMETER . Nil  M  BE  R  S  AND  PAR  AMFTFR  V  A  H  J  F  S 


(  ' - ’  DFNOTFS  PARAMETER  VALUE  SPECIFICATION) 


-  *  *  » * *  *  »  »  -  *  4 »  *  * -’-  -'-  *  * -:- * -:-  *  *  *  7  *  *  *  7  *  *  *  *  *  *  *  *  7  *  *  *******  *  ******  *  *  *  * 


F GU T  PM EN T  NIJ M PER  l  . ‘ . WASTE . HEAT . BOI  LER 


1  -  0.70  00 QOE  01  *  _ 2  -  0.3QQ0Q0E  02  * 


3 

= 

0.361000E 

03 

4 

= 

0 • 445000E 

03 

r~ 

5 

~ 

0.0 

6 

= 

0.4000 00E 

01  * 

7 

— 

0. 300000E 

01 

5^ 

8 

= 

0,0 

Q 

— 

0 • 98924  3F 

03 

10 

= 

0. 699968F 

03  4 

11 

■n 

0.0 

12 

0. 179077E 

00 

13 

= 

0. 280899E 

00 

14 

= 

0.0 

15 

= 

0 . 26  8891 E 

00 

* 

16 

— 

0. 157345E 

06 

17 

rr 

0. 400000E 

02 

18 

0. 720000E 

02 

19 

r: 

o 

. 

o 

20 

= 

0.0 

21 

— 

0.  0 

22 

= 

0.0 

23 

— 

0.  0 

24 

- 

0.0 

25 

— 

0. 2 000 COE 

04 

<4/ 

26 

— 

0. 190698E 

04 

27 

0. 250000E 

03 

28 

0. 170248E 

09 

EQUIPMENT 

NUMBER  2 

CONOENSER 

1 

= 

0.  10 00 00F 

01 

A> 

2 

— 

0.751 564E 

01 

3 

= 

0.  1000 00E 

01 

4 

'•= 

0*  457400E 

04 

5 

0.  5  090  00E 

02 

6 

~ 

0. 399958E 

01 

7 

— 

0. 240000E 

02 

■Ar 

8 

'= 

0.4450 00 E 

03  4 

<7 

— 

0.0 

10 

= 

0.1 000 OOF 

02  4 

11 

= 

0. 745890F 

02 

12 

0. 336151F 

08 

EQUIPMENT 

NUMBER  3 

CONVERTER 

1  = 

0. 100000E 

01  * 

2  = 

0.  15681  IE 

04 

3  = 

0.  3000 OOF 

01 

4  = 

0. 47043 2E 

04 

5  = 

0.  1 4  7 4 6 8 F 

00 

6  •= 

0. 100000E 

01 

7  = 

0.2196  77 F 

01 

8  = 

0.5  000  OOF 

00 

I 


f 


- 

. 

. 

I . 

. 
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EQUIPMENT  PARAMETER  SUMMARY 


*  *'**********%&*■***■&****&#%.  >{<  5jC  *•£  **#*#***#* 

.  PARAMETER  NUMBERS  AND  PARAMETER  VAI UFS 

i  jJc  s';  %.  $  Ifc  jjc  if 

(  •*'  DENOTES  PARAMETER  VALUE  SPEC  IF  [CAT  ION ) 

*  *  *  $  sje  *  ##£#*#**  *  *  *  *  *  *  *  ****#**£.#*  *#$**$❖**❖  £***##** 

EQUIPMENT 

NUMBER  4 

CONDEN  SER 

1  = 

0. 20Q000E 

01 

#  2  - 

0. 107707E 

02 

3  = 

0. 10Q000E 

01 

4  = 

0. 390700E 

04 

5  = 

0.500000E 

02 

6  = 

0. 39996  IE 

01 

7  = 

0.  2  5  00  COE 

02 

❖  8  = 

0.350000E 

03  * 

9  = 

0.0 

10  = 

6. 5 000 COE 

01  * 

11  = 

0.937232E 

02 

12  = 

0. 233539E 

08 

EQUIPMENT 

NUMBER  15 

IN-LINE  BURNER 

1  = 

0.  1 6  00  OOF 

02 

2  = 

0.360000E 

02 

3  = 

0. 810600E 

00 

4 

0.539612E 

05 

5  = 

0.2351  11E 

04 

EQUIPMENT 

NUMBER  17 

IN-LINE  BURNER 

1  = 

0.  160000E 

0  2 

2 

_ 

0. 360000E  02 

3  = 

0.  100443E 

01  * 

4 

’SZ 

0.42291 5E  05 

5  = 

0.217703E 

04 

EQUIPMENT 

NUMB  FP  5 

ADIABATIC  COMBINER 

1  = 

o 

• 

o 

2 

— 

0.42 7293 E  03 

3  = 

o 

. 

c 

EQUIPMENT 

NUMBER  6 

CONVERTER 

1  = 

0. 200000E 

01  * 

2 

:= 

0.1 5589  IE  04 

3  = 

0. 300000E 

01 

4 

— 

0. 46 7673 E  04 

5  = 

0. 123546E 

00 

6 

= 

0. 1 00 00 OF  01 

7  = 

0.2206 7 BE 

01 

8 

- 

0 • 5 000 00E  00 

*  '  f 

• 

.  ■ 

.  ,  ■■ 

. 

'  1 


, 


* 
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EQUIPMENT  PARAMETER  SUMMARY 


*  * * *  *  *  * * * * *  ****** * * * * * * * * *  *  *  * * * ********************** ****** * 


. PAP  AMETER . NUMBERS  AND  PARAMETER  VALUES 

{  »* '  QE NOTES  ^ AR AME TER  VALUE . SPEC! FI CAT TONY 


* * *  *  *  *  *  *  *  *  *  *  ******  * ************************************  *  *  *  * * 


EQUIPMENT  NUMBER  3  co M D E N S E R 


l  -  0.30  0 POPE  01  » _ 2  =  0. 745528F  01 


3  = 

0. 100000E 

01 

4  = 

0.35  5500E 

04 

5  = 

0.  500000E 

02 

6  = 

0.  399975E 

01 

7  = 

0. 260000E 

02  * 

8  = 

0.339000E 

03  * 

<5  = 

0.  0 

10  = 

0. 300000E 

01  * 

r—* 

r— * 

ii 

0. 7 8443 3 E 

02 

12  = 

0. 104807E 

08 

EQUIPMENT  NUMBER  7 

ADIABATIC  COMBINER 

1  =  0.0 

2  =  0. 397639E  03 

o 

• 

Q 

1! 

rn 

EQUIPMENT 

NUMBER  9 

CONVERTER 

l  = 

0. 300000E 

01  * 

2 

= 

0.  15  56  74E 

04 

3  = 

0. 300000E 

01 

4 

— 

0. 46 702 2 E 

04 

5  = 

0.  124727F 

00 

6 

- 

0. 100000E 

01 

7  = 

0.225363E 

01 

8 

0.5000  COE 

00 

EQUIPMENT 

NUMBER  10 

CONDENSER 

1  = 

0. 400C00E 

01  4 

2 

= 

0. 162759E 

02 

3  = 

0. 1000 00 E 

01 

4 

0.356700E 

04 

5  = 

0. 500000E 

02 

6 

- 

0. 399972E 

01 

7  = 

0. 270000E 

02  * 

8 

- 

0. 29 1055E 

03  * 

9  = 

0.0 

10 

= 

0. 300000E 

01  * 

11  = 

0. 3341 70E 

02 

12 

— 

0. 101 124E 

08 

EQUIPMENT 

NUMBER  11 

INCINERATOR 

1  = 

0.0 

2  = 

0.0 

3  = 

0.0 

4  = 

0.0 

5  = 

0.  0 

6  — 

0.0 

7  =  0.9C9000E  01  * 


. 


* 

. 

-  ' 


, 


■  . 


. 


. 
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EQUIPMENT  PARAMETER  SUMMARY 


C  *  *  *  *  ****  *  *******  *  *  *  *  *  #  *  -  *  *  *  ***  *  *  *  *  *  *  *  **************  *  *  *  *  * 


. PAP  AMETFR . NUMBERS  AND  PARAMETE R  V A L U F S 

(  '*»  DENOTES  PARAMETER  VALUE . SPECIFICATION) 


*  » *  *  *  V  »  »  *  »  ft ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  *  &  ft  ft  ftft  ft  ft  ft  5*C  ft  *  *  *  ft  ftft  ft  ftft  ftft  ftft  ft  * 


EQUIPMENT 

NUMBER  12 

STACK 

1  = 

0. 450000E 

02  * 

2  = 

0. 133725E 

04 

3  = 

o. 11 3436E 

03 

4  = 

0.  5 1 4 6 6 7 E 

01 

5  = 

0. 200000E 

00 

6  = 

0.600000E 

02 

7  = 

0.2 000 ODE 

02 

8  = 

0.1 OOOOOE 

01 

*  *  *  *  *  *  ft  *  *  *  *  *  ft  ft  ft  ft  *  ft  ft  *  *  *  ft  ft  ft  ft  *  ft  ft  ft  *  ft  ft  ft  *  ft  ft<  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  ft  *  ft  ft  ft  ft  *  ft  ft  ft  *  ft  ft 


*  . 

J . 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


'jsj*  ^  *»V  »'■'  7'  iV  V'  'V  •i'  -»V 

'*(*■  -"(X  Ajx  ryv  »fyx  ry-  r,-x  -yx  .djx  •'<’»  r-,V  >f-v  -y-  .y.  ryx  r,  v  yx  .rjv  yx  y. 

UNITS  ARE  - 

-fy  *  3);  ^  ;;;  £  J-  y  ;;;  ^ 

ifi  %  #  s^t  sjs  if.  # it  it  if:  if.  sJrjSc  -ajc  Sjs  y,c  if  $3je  sjcsjt 

COMPOSITION  -  MOLFS/HR. 

ENTHALPY  - 
TFMPER  ATI  JR  E 

MMBTU  ./HP . 
-  OEG.F. 

VOLUME  -  ClJ 

.FT. /MIN.  (GAS  ONLY) 
PRESSURE  -  PS  I  A. 

^  v*/  >•/  N*'  -Jt*  ^  >•-  -Jy  -dx  -»V  -A*  »iU  -A»  st»  dr  J,- 

'i*'  •'->  ^  •***•  5*  5*  -*’»  -v-  -s'*  -'■}'•  -r  -v*  T  ^  ■*i+  W'  A' 

STREAM  NO.  1 

i:  j{{  3js  sir  sjc  s?<  sje  it  i<  sjc 

2 

s)c  it  J;  i. ;  i* 

3 

19.3750 

19.0400 

w  d^  -,V  Tdr"  d#  *V  d/  *-V  d«  dt> 
’T'  '1'  T  T  •*1*  5*  ^  •'i'  55 

5 

0.0 

0.0 

^  ^  5^ 

6 

CH4 

Cn? 

33.5000 

1 330. 3706 

14. 1670 
23.1700 

0.0 

0.0 

0? 

0.0 

0.0 

0.0 

1396.7000 

44. 7500 

N? 

0.0 

0.2500 

0.3330 

5270.0000 

168. 7100 

H  20 

132.4000 

2.2900 

1 .8750 

0.0 

0.0 

H2S 

3100. 0999 

54.0000 

44.3300 

0.0 

0.0 

S02 

0.  0 

0.  0 

0.0 

0.0 

0.0 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S2 

0.0 

0.0 

0.0 

0.0 

0.0 

S6 

0.  0 

0.0 

0.0 

0.0 

0.0 

S8 

0.0 

0.0 

0.0 

0.0 

0.0 

cos 

1.  1250 

0.0 

0.0 

0.0 

0.0 

CS2 

0.0 

0.0 

0.0 

0.0 

0.0 

H2 

0.0 

0.0 

0.0 

0.0 

0.0 

CO 

0.  0 

0.0 

0.0 

0.0 

0.  0 

s 

0. 0  ' 

0.0 

0.  0 

0.0 

0.0 

TOT.  MOLES 

4598.000 

93.877 

84.953 

6666.699 

213.460 

TOT.  LBS. 

166948.7 

3130.4 

2698.  1 

192254.4 

6155.9 

TOT. LB. SIM) 

0.0 

0 . 0 

0.0 

0.0 

0.0 

TOT.LB.SCE) 

99239.2 

1728 . 0 

1418.6 

0.0 

0.0 

enthalpy 

-266.930 

-5.051 

-4.396 

2.886 

0. 092 

VOLUME 

23443 . 1 

5  12.2 

463.5 

35161  .3 

1142.7 

TEMPERATURE 

82.00 

120.00 

120.00 

139.00 

139.00 

S.  new  PT. 

0.  0 

0.0 

0.0 

0.0 

0.0 

PRESSURE 

19.00 

19.00 

19.00 

20.30 

2  0.00 

S*I 

dx  >A>  -vV  J'  d/  sY  >Ar 

-c,x  y<x  yx  -»yx  r,x  rtx  A-'  "6  "V' 

:ic  it  sjt  it  >Jc  it  Jit  si;  ;J;  J-  ^ 

A"  d«  >1/  dt»  dy  d/  d/  -A<  d/  ds  vl<  vV  *A»  d/  d» 

ryx  yx  -», «  ryx  y«  y  x  yx  y  ry»  yx  yX  yx  .y  yx  yx 

d»  s's  dr  dr  -dr  dr  dr  dr  .V  dr 
y  v  y  .yx  yx  -yx  yx  y  .>x  yx 

f  ’ : '  , 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


■v*''  six  v1'  sU  JS#  »♦/  <JU  J/  -six  -J/  -.V  Jr 

-V-  4**  ^y*-  4s  -yv  ^  -v'  *>s  -4>  v.  3;*  s,C  3"£  3J5 

Vr  ‘Y  "Y  s*x  4;  4/  4<  -X-  -A 
i  >  4v  Jr*  36  ■mv  '•)'  -v  Ar 

'  ;Y  4.  4^  -.O  4.  4»  4.  4»  >V  4#  4/  six  4.  -.V  A 

V  x,s  XjS  x^s  -ys  Xy4  -y.  xys  «^s  xys  x,-.  x,v  x,s  x,v  ^  -x,s  x,s  X,C  xjK  x,s 

&  3*S  ^  !?«  if.  >*r 

UNITS  ARE  - 

COMPOSITION  - 

MOLFS /HR. 

ENTHALPY  - 

MMBTU  .  /  HR. . 

VOLUME  -  CU. 

FT. /MTN. 

(GAS  ONLY) 

TEMPERATURE 

-  DEG.E. 

PRESSURE  -  PST  A. 

S*x  >A/  J/  ■»*#  »t»  v«x  -Jc  vV 

■*lx  'S'-  xys  x>-s  xys  *f-s  X^s  .y<s  -ys  J^Z 

4.  4->  4/  4^  v*#  4/  4/  4/  4*  4> 

x,s  X  s  XjK  xjs  *,a  xy»  »y\  xy- 

'Y  ^  i1'  -V  4"  4.  P"  A>  4. 

-tV  X„S  .X^S  XjC.  xj*  xjt  -,s  xyv  xys 

’  -six  4*  4x  4x  4x  six  six  six  six  4x 

■  -".s-  xys  yys  -*y»  -xys  /js  -vs  Xj  v  X(s 

six  4x  six  six  -Ax  six-  six  -six  six 

X,-H  XyS  X«|S.  XjS  Xj-s  x_s  XjS  x:,S  **,s 

4»  4-  -six  six  six  sV  <Jx  six  six  six 

4*  36  'y*  •y*  *ys  x,s  #4v  x,s  x,s 

STREAM  NO. 

7 

9 

l  1 

13 

1  4 

CH4 

0.0 

278.2993 

0.0000 

0.0000 

0.0000 

C02 

0.  0 

0.  0 

1710.1 897 

1143 . 6404 

1143.6404 

02 

35.8300 

380.5000 

0.0000 

0.0000 

0.0000 

N2 

135.  1700 

332 1.7000 

3896.  1563 

5270.0000 

5270.0000 

H20 

0.0 

0.0 

4000.7364 

2485.9543 

2485. 9543 

H2S 

0.0 

0.0 

4.0386 

593 . 3943 

593. 3943 

S02 

0.0 

0.0 

84.4457 

296.8247 

296. 3247 

S 

0.0 

0.0 

0.0000 

0.0 

0.0 

S  2 

0.0 

0.0 

0.2023 

16.8574 

0.0602 

S6 

0.  0 

0.0 

0.0 

195.2364 

19.0666 

SB 

0.  0 

0.  0 

0.0 

123.6637 

51 . 3909 

COS 

0.0 

0.0 

0.0516 

16.4231 

16.4231 

CS2 

0.  0 

0.0 

0.0000 

0.0656 

0.0656 

H2 

0.0 

0.  0 

20.3501 

220. 1507 

220. 1 507 

CO 

0.0 

0.0 

9.3141 

205. 3755 

205.  3  755 

s 

0.0 

0.0 

0.0 

0.0 

31.9746 

TOT.  MOLFS 

1 71 .000 

4430.496 

14726.020 

10567.563 

10334. 301 

TOT.  LBS. 

49  31  .3 

125636.3 

402215. 1. 

359202.5 

306824.3 

TOT.LB.S(M) 

0.0 

0.0 

12.9 

70222. 1 

17843.9 

TOT.LB.S (E) 

0.0 

0.0 

2346.1 

99238.9 

46  860.6 

ENTHALPY 

0.0  74 

-3.231 

-537.573 

-434.131 

-472.505 

VOLUME 

915.4 

22422 . 9 

297698.4 

11 8 1 69 . 6 

90284.3 

TEMPERATURE 

139.00 

100.00 

1537.25 

699.97 

445 . 00 

S.  DEW  PT. 

0.0 

0.0 

251.33 

535.64 

444.69 

PRESSURE 

2  0.  00 

20.00 

17.67 

18.55 

18.46 

J'  4/  4.  »V  4r  six-  4>  \V  six  4/  4-* 

v  X^K  X^S  -X> v  -ys  x?«s  X^„  X-^S  ^*|S 

»t.  4^  4^  4/  nl>  4»  4*  4^  .1/ 

"i*  -*,»  xy*  -♦*»  ■*,>.  x,-. 

-4.»  »Y  '*»  4.  >V  4»  -»U  4j»  4» 

-j-,  »yS  <ys  <y*  X,S 

six  sV  4x  -six  six  -six  >*x  4x  4x  six 

XV*  xys  xys  x^s  x,s  x(s  86  x,s  xjt  -,s 

■six  six  4x  six  s8—  sly  six  six  s*x  • 

-s'  ■6*'  36  4**  36  -r'  -v  *->"  • 

six  -six  six  six  six  six  six  six  six  six 
.,s  »y*  X,S  >ys  xys  -,s  XjS  x^s  x,s  x,S 

.  - 
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STREAM  COMPOSITION  AMO  PROPERTY  SUMMARY. 


vly  \L-  -Jy  sly 

*V*  y,x  -,x 

*  if  s^  if  sit  if  if  s,>t  sit  if  sjt  if  if  if  ifif 

if  i<  if  ^t  s?c  *  sit  sjt  if  if 

;!t  sit  )Jt  £  sit  if  sit  it  sit 

sit  if  if  5js  if  if  sic  s^t  if  4;  if  *  if  if  s^  if  *  *  if  if 

UNITS 

ARE  - 

COMPOSITION  - 

MOLES /HR. 

ENTHALPY  - 

MMBTU  ./HR. 

VOLUME  -  CU 

.CT./MIN. 

(GAS  ONLY) 

TEMPERATURE 

-  OF  G . F  . 

PRESSURE  -  PS  14. 

*  *  s'  *  *  -!=  'It  *  Y-  *  *  if  =Ic  *  *  *  -It  sit  *  if  sit  Sit  *  s»:  *  t  ;IC  ;l!  ^  ^  $  s.  J;  s.  *  *  *  J;  y-  js  *  J;  *  J,  X  *  %  #  #  $  £  #  *  £  o. 

STREAM 

NO. 

15 

16 

17 

18 

19 

CH4 

0.0 

0.0 

0.0000 

0.0000 

0.0000 

€0  2 

1143.6404 

1143. 6404 

1167.7915 

1167.7915 

1167.7915 

0? 

0.0000 

0. 0000 

0.0000 

0.0000 

0.0000 

N2 

5270.0000 

5270.0000 

5433.9570 

5438.9570 

5438.9570 

H20 

2934.  37  18 

2934, 8718 

2998.3010 

3099.2256 

3099.2256 

H2S 

144. 4763 

144.4763 

153.7638 

52.8388 

52.8338 

S02 

72.3655 

72.3655 

73.9723 

28.5097 

28. 5097 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S  2 

1.0782 

0.0020 

0.0253 

0.0653 

0.0013 

S6 

72.2747 

1. 6542 

5.0452 

11 . 8472 

1.2359 

S8 

99. 3992 

6.4623 

10.5918 

24.4037 

5. 0505 

COS 

16.4231 

16.4231 

16.7342 

16.7342 

16.7342 

CS2 

0.  06  56 

0.0656 

0.0667 

0.0667 

0.0667 

H2 

220. 1507 

220.1507 

232.05 80 

232.0580 

232.0530 

CO 

205. 3755 

205. 3755 

218.2491 

218.2491 

2  18.2491 

S 

0.0  ■ 

15.6365 

0.0 

0.0 

9.6135 

TOT. 

MOLES 

10  180.  102 

10031 .098 

10320.531 

10290.719 

10270.305 

TOT. 

LBS. 

306824.3 

269904. 8 

279190.3 

279  190.8 

272502 .5 

TOT. 

LB 

.  S  (  M ) 

39391 .9 

2472 . 4 

3681.3 

8526.2 

1 837.9 

TOT. 

LR 

.Si  E) 

46860.6 

9941.1 

11669. 1 

11669.1 

4980.8 

ENTHALPY 

-472.383 

-498.712 

-503.670 

-503.669 

-514.667 

VOLUME 

101079.6 

79702 . 3 

39970.7 

93062.8 

31508.6 

TEMPERATURE 

557.  15 

350.00 

427.29 

454. 18 

339.00 

S.  DEW 

PT  . 

494. 69 

^49 .91 

3 74.70 

411.31 

339.18 

PRESSURE 

18.31 

18.20 

18.20 

18.07 

17.98 

sit  'l-  ^  if  s';  *  *  if  if  s1^  s*ts»t  sit  sltsjt*  if  ^t^CJjtsJc  s^t  >1;  sit  *  sit  s>c  *  if  sit  si;  if  if  s«;  *  sit  sj; j*t  ;;c  if.  i,t  if  if  if  ix  sit  *  si:  if  if  if  if  if 
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STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


s',;  #  #  sfc#  *>;;  -?~  ■*?■  * 

:  #  4  *  ❖  %  £  *  *  *  *  ifi  *  4c  #  sjc  #  s*c  *  &  *  *  s*  #  #  $  £  #  *  >Jc  £  >>;  #  *  3$;  *  * 

UNITS  ARE  - 

COMPOSITION  - 

MOLES /HR. 

ENTHALPY  - 

MMPTU  ./HP  . 

VOLUME  -  CU. 

FT. /MIN. 

(GAS  ONLY) 

TEMPERATURE 

-  DEG.F. 

PRESSURE  -  PSIA. 

*  ^  #  3|<^^3?!3*t^  sfc  sje  ^  s’;  *  *  **  *  *  *  #  jjs  *  £  *  j;;  s!c  #  #  #  ;J;  J; 

sjc  sjc  s’;  j<c  ■%. 

-A»  Jf  s?/  J/  .V  ■»<.  ->A, 

'#*■  *1C  ¥  +4>  ¥  V  ’V 

STREAM  NO, 

20 

21 

22 

24 

2  5 

CH4 

0.0000 

0.0000 

0.0000 

0.  0 

0.0 

C  0  2 

I 188. 3562 

1188.8562 

1138.8562 

0 . 0 

0.0 

0  2 

0.0000 

0.0 

0.0 

0.0 

0.0 

N? 

r,R74.457o 

5574.4570 

5574.4570 

0.0 

0.0 

H20 

3 149, 7458 

3183. 4953 

3183.4953 

0.0 

0.0 

H2S 

70.7452 

36.9944 

36.9944 

0.0 

0.0 

S02 

29.3190 

12.4436 

12.4436 

0.0 

0.0 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S2 

0,0101 

0.0151 

0.0002 

0.0 

0.0 

S  6 

3 . 1403 

4.9233 

0.2661 

0.0 

0.0 

S  8 

7.9533 

12.9431 

1.3295 

0.0 

0.0 

COS 

17.2871 

17.2871 

17.2871 

0.0 

0.0 

CS2 

0.0707 

0.0707 

0.0707 

0.0 

0.0 

H2 

240 . 5859 

243. 5859 

248.5859 

0.0 

0.0 

CO 

235. 0422 

2 35.0422 

235.0422 

0.0 

0.0 

s 

0.0  ’ 

0.0 

9. 34! 1 

1636.8123 

1153.7310 

TOT.  MOLES 

10525 . 188 

105 15.090 

10508.648 

1636.812 

1153. 731 

TOT.  LRS. 

280131 . 7 

280131 . 7 

776578.4 

52378.0 

36919.4 

TOT.LB.S(M) 

263P  .6 

4759. 7 

706.4 

52378.0 

36919.4 

TOT . L  R  .  S { E ) 

6399.4 

6399 .4 

2846. 1 

52378.0 

36919.4 

ENTHALPY 

-518.989 

-518.985 

-529.341 

4.643 

2.917 

VOLUME 

89743  .3 

91238 .6 

79791  .6 

•>*'  vix  j/<  j.  -»o 

•#yv  ->J«.  >|S.  -')V  ,/j» 

TEMPERATURE 

397.64 

406. 66 

291.05 

359.31 

326.46 

S.  DEW  PT. 

35°, 50 

378.64 

291 . 74 

0.0 

0.0 

PRESSURE 

17.98 

17.86 

17.67 

18.46 

18.20 

s’;  sje  #  >!<  jje  *  frsfcsje:*  #  $#***#*:£:£*##*#*#  #**❖❖❖❖#*❖$❖$  *$#*  *  *  ❖  Y* 
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STREAM  COMPOSITION  AND  PROPER  T Y  SUMMARY. 


••V  '£■'  >V  nV  ^1*.  -J.  J/  *K- 

4V  -44  A4,  *YV  ■')'*■  *6  4*  -**-  -rj*-  -'(*> 

UNITS  AR  E  - 

s^7  -V^V-  \*7  nO  J7  -Y  Y,  «#7 

'•jX  7,  V  jTjS  _^X.  7j-v  -7,V 

Yf  lV  Y.  Y.  Y7  *(/  Y7  Y>"  Y.  Y7  Y.  Y/  Y^  Y7  Y#  Y7  Y^  Y/  Y/  Y>  Y.  Y.  Y/ 

-^»v  V  iK  •*>*■  'r*>  -4*.  -'s'-  -T  *1*'  '>*•  -r  *iv  Ap  '1*“  'Vs  -V  ‘V-  "»•>  -*-sv  7"  '*)’•  'V-  7^  7JV  3j?  ^yt  Jjc 

COMPOSITION  - 

HjL  *  •%  !}c  ;;c  sjt  ^  7,  j, 

MOLES/HR. 

ENTHALPY  -  MMBTU./HR. 
TEMPERATURE  -  DEG.F. 

VOLUME  -  CU. 

FT. /MIN.  (GAS  ONLY) 
PRESSURE  -  PS  I  A. 

sjt  ^  #  sjc  *  ■?{.  ^  ^  A 

STREAM  NO. 

5jc  sjs  #  5k 

26 

YSr  Yf  -4  y.7  vV  -A<  Y7  Y.  Y7 

"«*■  jv  -t*  "c-  -v*  '»v 

27 

i[t  ^  £  *  S|.'  *  #  £  s’:  sjt  #  ^  s';  7;  *  J;  #  sjc  Jc  ^  ^  jf  ...  j; 

30  35  36 

CHA¬ 

CO? 

0.  0 

0.0 

0.0 

0.  0 

0.0000 
1710.  1897 

0,0000 
24. 151? 

0.0000 

21 . 0649 

0? 

0.0 

0.0 

0.0000 

0.0000 

0.0000 

N2 

0.  0 

0.  0 

8896. 1 563 

168.9600 

135.5030 

H20 

0.0 

0.0 

4000.7864 

63.4292 

50. 5204 

H2S 

0.  0 

0.0 

4.0386 

9.2875 

17.9065 

S02 

0.0 

0.  0 

84.4457 

6.6063 

0.3093 

s 

0.0 

0.0 

0.0000 

0.0052 

0 . 0  G  1 3 

S2 

0.0 

0.0 

0.2023 

18.8936 

12.5260 

S  6 

0.0 

0.0 

0.0 

0.0000 

0.0000 

S8 

0.0 

0.0 

0.0 

0.0 

0.0 

COS 

0.0 

0.  0 

0.0516 

0.3111 

0. 5529 

CS2 

0.0 

0.0 

0. 0000 

0.0011 

0.0040 

H  2 

0.  0 

0.  0 

20.8501 

1  1.9072 

16.5279 

CO 

0.0 

0.0 

9,3141 

12.8736 

16. 7931 

s 

209.0067 

1  1  1.040  3 

0.0 

0,0 

0.0 

TOT.  MOLES 

0 

vO 

. 

0 

*Zj 

-y 

1  11 .0  40 

14726.020 

316.426 

272,209 

TOT.  LBS. 

66  38  .2 

3553 . 3 

402215.  1 

9286.2 

7629 .4 

TOT. LB. SIM) 

6688.2 

3553.3 

12.9 

1209.4 

801.7 

TOT. LB. S ( E) 

66  88 .2 

3553 . 3 

2346.1 

1728.0 

1418.6 

ENTHAL PY 

0.513 

0.241 

-564.383 

-4,959 

-4. 322 

VOLUME 

\*7  s*7  V7  J7  x*7  J7  -*7 

Y7  Yr  Y7  A,  Y/  »<7  -Y-7  Y7 
•*1'  '9  4*"  T^S.  -7,V  ^,V. 

267883. 1 

8371 , 4 

6755.6 

TEMPERATURE 

318.43 

287. 32 

1337.25 

2351 . 1 1 

2177.03 

S.  DEW  PT. 

0 . 0 

0 . 0 

251.33 

583. 79 

563,76 

PRESSURE 

17.98 

17.67 

17.67 

19.00 

19.00 

J.  \l*  >t>  -»V  J#  ^*7  >*-»  Jr 

-  ->)V  -7,H  7(-V  7---.  -j*.  VyX  7,N  7,'  -y*X 

•J*  '*7  V*7  <^7  -Jz  \*7  ■A*  >>7  \*7 
•*<x.  -7.V  /■,*»  ->^V  _*yv  7,-v  -y.  7,N 

■sO  J.  Y7  Y/  Y7  Y/  s*#  -J7  Y/  *X- 

7,-.  y V  V  /»ys  7,s  — ,V  -r{  s  yx 

Y«  Y»  Y7  Y»  Y7  YU  Yf  Y7  Y7  Y/  Y.  A,  Y»  v<7  Y.  Yr  Y.  Y7  Y.  ■ 

AX  7,%  77jX  7,x,  7|K  .«,*  7jX  yv  7|l  ./-.X  7tX  »,X  --jV  7,X  7|X  7,*  TyX.  , 

Y»  x*7  Y»>  >*7  Y/  Y/  Y.  Y.  Yr  Y<» 

«)'  -p  4**  V*  '*■*  -'•i**  ^ 

' 
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. 

* 

. 

a 

. 

.  ' 

. 

\  « 

. 

• 

■  . 

«• 

'  •  ‘  1  *  !  J 

• 

« 

. 

* 

. 

r 

E-142 


EXAMPLE  5. 


SPECIFICATIONS 


PLANT  FEEDS 


BOILER  FEED 

NO.  1  INLINE 
BURNER 

NO.  2  INLINE 
BURNER 

CH4 

1.07 

0.06 

0.03 

C02 

177.09 

10.05 

4.29 

H20 

10.93 

1.0 

0.35 

H2S 

535.48 

30.39 

12.98 

02 

250.03 

22.85 

7.99 

N  2 

940.52 

85.95 

30.05 

SPECIFIED  TEMPERATURES  AND  PRESSURES 

BOILER  AND  INLINE  BURNERS  ACID  GAS  FEED 
BOILER  AND  INLINE  BURNER  COMBUSTION  AIR 
BOILER  EXIT 
BOILER  STEAM 

PRIMARY  (BOILER)  EQUILIBRIUM  CUTOFF 

SECONDARY  (MASKING)  EQUILIBRIUM  CUTOFF 

NO.  1  CONDENSER  EXIT 

NO.  1  CONDENSER  STEAM 

NO.  2  CONDENSER  STEAM 

TAIL  GAS 

MISCELLANEOUS 


DEG. F . 

PSIA. 

88. 

17.2 

88. 

18. 

700. 

270. 

2000. 

2000. 

276. 

35. 

56 . 

274. 

15. 

-  2  PASS  BOILER  25.  FT.  LONG 

-  MINIMUM  FLAME  REACTION  RESIDENCE  TIME  0.6  SEC.  (BOILER) 
AND  0.7  SEC.  (INLINE  BURNERS) 

-  NO.  2  CONDENSER  -  1122  1.032  IN.  DIA.  TUBES  16  FT.  LONG 

-  MAX.  FOG  IN  1ST  AND  2ND  CONDENSERS  10  AND  5  LB.  SULPHUR 
PER  100  MOLES  INERT  EXIT  GAS  RESPECTIVELY 


E  —  1 4  3 


LE 


ca:  b 


NUMBERS  DENOTE  STREAM  OR  EQUIPMENT  NUMBERS 
NUMBERS  IN  BRACKETS  DENOTE  EQUIPMENT  TYPES  - 


1-  WASTE  HEAT  BOILER 
E.  INLINE  BURNER 
3-  CATALYTIC  CONVERTER 

4.  SULPHUR  CONDENSER 

5.  ADIABATIC  COMBINER 


6-  COM8INER/OI VIDER 

7-  AIR  ADDER 
0*  INCINERATOR 

9*  EFFLUENT  STACK 
iO.  BLACK  BOX 


FIG*  E-5  EOJIRvENT  MODULE  (PROCESS) 


FLOWSHEET  FOR  EXAMPLE  5- 


■  u m 


PROGRAM  DATA  {CARD  I  M  A  G  E } 


C  EXAMPLE  5.  {SIMULATION) 

★PROGRAM  CONTROL  PARAMETERS* 

_ 0  OOIOOOOOO  000  01 

*END* 

♦FLOWSHEET  DATA* 

1 0 1**2 0  1**3  1  2**4  2  3**5  0  4**6  0  4**7  4  3**8  3  5** 

q  5  6**10  6  0**1  1  6  7**12  0  8**13  6  8**  14  8 7**15 7 9** 

16  9  10**18  2  0**17  10  0** 

*FNO* _ 

♦STREAM  SPECIFICATIONS* 

1  2  1*7.09  6  535.48  1  1.07  21  88.  22  17.2** 

2  _ 3  25  0.  03  4  940.5  2  5  10.93  21  88.  2?  18.** 

5  2  10.05  6  30.39  l  .  Oo  'T] . 88  . . 27 . 17.  p** 

6  3  22.85  4  35.95  5  1.  21  83.  22  18.** 

17  _ 2  4.2  9  6  12.98  1  ,03  2  1  88.  22  17.2** _ 

1?  3  7.99  4  30.05  5  .35  21  38.  22  20.** 

1 7  21  2  74.  2  2  15.** 

♦END* 

*  EQUIP  MENT  PARAMETER  SPECIFICATIONS* . 

1  1,  2  4,  3  5,  42,  5  3,  6  4,  7  5,  8  2,  9  3,  10  10,  ** 

1 _ 1  2.  2  25.  10  700.  15  .6  25  2000.  27  270.  ** _ 

4  3  .7**  8  3  .7** 

5  11.**  912.** 

6  . 1  2. . 2 . 16.  3  1.0  32  4  1122.  5  56.  7  10.  10  10.  ** 

7  1  1.  5  35.  7  18.  8  276.  10  5.** 

♦end* 

C  MPLFCULAS  AN  0  THERMODYNAMIC  DATA  SAME  AS  EXAMPLE  l. 


.  [  ' 

. 

■  f  .  ' 
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SULPHUR  PLANT  OF  SIGN  AND  SIMULATION 

l 


PROGRAM . CONTROL  PARAMETERS 

END 

FLOWSHEET  DATA 
END 

STREAM  SPECIFICATIONS 
END 

EQU I  PM EN T  PARAMETER  SPECIFICATIONS 

END 

MOLECULAR  AND  THERMODYNAMIC  DATA 
END  OF  ALL  DATA 
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CALCULATION  SEQUENCE  OPTIMIZATION 


*  *  *  *  *  ■*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ***  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  **************  * 


. INITIAL . SF CUE MCE . IS  - 

1  23  4  5678910 


. THE . OPTIMIZED . CALCULATION  SEQUENCE  I S  - 

1  24  3  56  8  7  910 

NO  STREAMS  NEEP  BE  ASSUMED 

*******  **********  *  *  *  s®e  *  *  *  * *  *  *  *  *  4s  *  *  *  *  *  sjt  *  ******  *  **************  * 


PRIMARY  REACTION  CUT-OFF  TEMPERATURE  (BOILER)  -  2000.  DEG.F 
SECONDARY  RE  ACTION  CUT-OTF  TEMPER  MURE  ^  2000.  QEG.F 


(BELOW  THIS'  TEMPERATURE,  THE  LAST  4  GASEOUS 

. MOLECULAR.  SPECIES  ARE  MASKED  FOR  THE  BOILER 

AND  THE  CONVERTER  COMPOSITION  CALCUL ATI  ON S I T 


********  *  *  ***************************** * * * * * *  *  * * * ******** * * * 


T 


COMBUST  in N  REACTION  AND  WASTE  HEAT  BOILER. 
EQUIPMENT  NUMBER 


l 
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_ CONDENSER  1 _ 

EQUIPMENT  NUMBER  2 

*********************  *  *  *  *  *  *  *  *  *  *  ****  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ******* 


EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG 
STREAM 

.  F )  -  700.2 

ENTHALPY  ( 3TU. ) 

PRESSURE  (PSIA)  =  16.64 

=  -0.66 5689 IE  08 

MOLE  NUMBERS 

ARE  - 

CH4  - 

0. 00000 

C02  - 

150.29643 

02 

0.00000 

N2 

940. 51978 

H20  - 

4  20.  178  71 

H2S  - 

92.72598 

...  _  _ so 2 . -  . 

58.27095 

S 

0.0 

S7 

3. 12534 

S6 

34.3906 1 

S3 

21. 23428 

COS  - 

1.9966C 

r  s  7 

- '•*  ^  - _ 

0.00738 

H2 

35.64479 

CO 

25. 35953 

S 

o 

« 

o 

****** ************ ****************************************** 


CONDENSER  DESIGN 

****** ******  *********  ***  ****************  * *** ****  *********  *** 

TUBE  LENGTH  (FT.)  = 

TUBE  DIAMETER  (IN.)  = 

23.2 

1  .  000 

NUMBER  OF  TUBES  = 

77  1 

MAXIMUM  FLOW  RATE  ( LB / SO . F T . SEC )  = 

4.00 

OUTLET  GAS  TEMPERATURE  ( DEG . F )  = 

U  (OVERALL)  ( BTU/HR. SQ.FT.  DEG. F)  = 

2  76.0 

14.36 

*  *****************  ********  ********************************** 


EQUIP.  HEAT  DUTY  (BTU/HR)  IS 


0. 8 722 92 3 E  07 


STEAM  TEMP.  <DEG,F.)  = 
PRESS.  (PST  A)  = 

L  AT EN  T  '  HE" AT . Cs  T  U 71 B  ) 

L.H.  CORRECTION  = 
PRODUCTION  (LB /HR)  = 


259.3 
_  __  35.000 
941.2 
0.0 

0.926 f  7 0  3  E  04 


******  **** *******  ************  ******************************* 


■  ,  ■ 

- 

• 

' . 

. 


'  v 


.  ' 
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CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  99.65,  PERCENT  RECOVERY  =  54.69 

. SULPHUR . FOG . - .  171.96  MOLES,  OR  5502.6  LBS. 

SULPHUR  LIQUID  -  209 . 19  MOLES  »  OR . 6694.1  LBS. 

(STREAM  NO.  18  ,  TEMPERATURE  =  264.1  DEG.F.) 


>.*<•  sV 


********  *  *  *  *  *  **********  *  *  *  *  *  *  31c  *  *  *  *  **********  ****  **  ; 


SPECIFIED  MAXIMUM  ALLOWABLE  FOG  FORMATION, 
{ L  B  S.  S 7 1 0  0  L  B .  M OLE S . INERTS  ) . = . 5 . 0  0 . 


EXISTENCE  OF  PE-M  T  STFP  PADS  IS  IMPL IFD 


. . . REVISED . SULPHUR . OUTLET 

PERCENT  CONDENSATION  -  99.65,  PERCENT  RECOVERY  =  98.95 


SULPHUR  FOG  -  2.70  MOLES,  OR  86.8  LBS. 
SULPHUR  LIQUID  -  378.45  MOLES,  OR  12110.4  LBS. 
. (  STREAM  NO.  18  ,  TEMPERATURE  =  2  6  9.4  DEG.F.) 


********&*****#****#*:£  j. 


CONDENSER  GASEOUS  EXIT  STREAM 
 STREAM  NUMBER  4 


TEMPERATURE  (DEG.  F)  =  276.0  PRESSURE  ( PS  I A  5  =  16.42 

. STREAM . ENTHALPY  (  BTU .  ) . =_  -0.7611U5E  08 


MOLE  NUMBERS 

ARE  - 

CH4 

0.00000 

CQ2 

- 

150.29648 

02 

0.00000 

N2 

- 

940.51978 

H20 

420.17871 

H2S 

— 

92. 72598 

SO  2 

58.27095 

S 

- 

0.0 

S2 

0.00001 

S6 

- 

0.02712 

SB 

0.14467 

COS 

— 

1 .99660 

CS  2 

0.00738 

H2 

- 

35.64478 

CO 

-  25.85953 

S 

— 

2.6961  1 

~A»  Jy  -vly  Jy  vly  «X y  -S*y  sly 
-rp.  <,s  y,x  -vV 

Yy  >ly  sV  N*y  ■>■*-»  sU  sV  sly  sty  sly  A>  sly  -Jy  sly  Jy  Jy  Jy  -sly  'sly  sly  >ly  -Ay  sly-Jy 

y.'  *  )*s  "O  yj*s  >/s  -*jS  y^s  y>s  y,  s  -^s.  v  y^s  yys  y^s  y,s  y,s  -*|S  y(-K  y^-.  y^/is  y  ,s.  y .  s 

5$C  i*C  5jt  3^  3*C 

»V  sAy  sly  sly  sly 

4^-  ^)v  -iv  'Is-  4" 

sly  X.y  sV  sly  sly  s*y  sly  s*y  sty  sV  sly  V*y  sjy  sly  sly  sty 

'lv  At"  -V*  V  'I*1  -#**  V*  'V*-  ‘V’  4'  V  41*-  -*V‘  ^4" 

. 


INLINE  BURNER » 
EQUIPMENT  NUMBER  4 


ADI  A  VATIC  STREAM  CDMBINER 
EQUIPMENT  NUMBER  3 


CONVERTER  1 
EQUI P M E N T  NU MB E R  5 
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_ CONDENSER  2 _ 

EQUIPMENT  NUMBER  6 

*********************** ******  * *  * * **** *  *  * * * *  **************** * 

EQUIPMENT  PROCESS  FEED 


TEMPERATURE  (DEG.  c)  =  594.1  PRESSURE  (PSIA)  =  16.32 

STREAM  ENTHALPY  (BTU.)  =  -Q.7816872E  08 


MOLE  NUMBERS  ARE  - 


r- H 4 z _ 0^0 _ C- 0 2  - _ 15  7.  642  84 


02 

0. 00000 

M2 

1026.46973 

H  20  - 

5 19. 43750 

H2S  - 

21.79268 

. SO 2  . . - . 

33. 31287 

S 

0.0 

S2 

0.3  8368 

S6 

9.93005 

S  8 

8.  73762 

COS  - 

2.04523 

C  S  2  - 

0.00747 

H2 

3  8. 82  82  9 

CO 

28 . 57443 

S 

0.0 

******  *  *  ****  *  *  *  **********  *  *  *  *  *  *  *  #*£***#***#*$*#  *  ****  *  *  *  *  *  *  *  * 


CONDENSER  S I  MU L  A T I ON 

*** *  **********  * * * * * ** ********  *  * * **** * * * * *  *  * *  *  ******** * ****** 


TUBE  LENGTH  (FT.)  =  16.0 

TUBE  DIAMETER  (IN.)  = _ 1.032 

NUMBER  OF  TUBES  =  1122 

MAXIMUM  FLOW  RATE  (  LB/ SQ.FT  .SEC)  _ _ 2.26 

0 .  jT  j_ LI  GAS  T E  M P E  R A T UR E  (  DEG •  E  )  =  . . . . 3  12.9 

U  (OVERALL)  ( 9TU/HR .SQ.FT  .DEG. F)  =  8.9  8 


*  *****  *  *********** *** ********  *****  ****************  *  ********* 


EQUIP.  HEAT  DUTY  (3TU/HR)  IS 


0. 486 101 2 E  07 


STEAM  TEMP.  { D E 3 »  F . )  = 
PRESS.  (PSIA)  - 

L AT EN T  HE  AT . (BTU /LB) 

L.H.  CORRECTION  - 
PRODUCTION  (LB/HR)  - 


288.3 
_ 56.000 

919.1 

0.0 

0.528 88 01 E  04 


*  *  *****  *******  ********************  *  *  * *** ************ ** ****** 


-  f 


* 


. 


. 


'  1 

. 

. 

r  i: 

. 

' 

CALCULATED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  96.40,  PERCENT  RECOVERY  =  50.36 

. SULPHUR  FOG - . 59. 96  .MOLES,  OR  1918.8  LBS. 

S  Ut  P  HU  R  L  I  QU  ID-  65.59  MOL  E  S ", OR 2098.9 LBS. 

{ STREAM  NO.  10  ,  TEMPERATURE  =  289.7  DEG.F.5 


-V-  4  4  *  *  Jjc  ijc  ^  ^  Jf.  *  sjc^c  -fa  2j<  ^  ;J;  7yv  2^  # 1~  >1'  ❖  *  *  #  *  *  4-  £  &  #  *  *  *  3$c  # 


SPEC  I  PIED . MAX  I M UM  ALLOWABLE  FOG  FORMATION , 

(LBS.  S/10 6  L B .  M OLE S . I  HERTS) . = . . 10.00 . 


FVTSTFNCE  OF  DE-MISTER  s>ADS  IS  IMPLIED 


REVISED  SULPHUR  OUTLET 


PERCENT  CONDENSATION  =  96.40,  PERCENT  RECOVFRY  =  92.01 


SULPHUR  FOG  -  5.71  MOLES,  OR  182.8  LBS. 
SULPHUR  LIQUID  -  119.84  MOLES,  OR  3834.9  LBS. 
... J.. SIR E  AM  NO.  10 . ,  TEMPERATURE  =  300.3  D E G .  F .  ) 


V*.  >'»■  >,V  ■*fr’  •A*  -Xr  A-  J/  -,t»  J,  sfis  \t-  J,  , 

4V  T*  ■'j'  ■(»  -'f'  ')>■  A.  -»,-v  . 


■A'  »i-  -S*r« 

4  4'-  4'-  ',** 


CONDENSER  GASEOUS  EXIT  STREAM 
STREAM  NUMBER  11 


TEMPERATURE  (DEG.  F)  =  312.9  PRESSURE  (PS  I  A)  -  16.25 

STREAM  ENTHALPY  ( BTU. 5  =  -0.8 332501 E  08 


MOLE  NUMBERS  ARE  - 


CH4  - 

0.0 

C02  - 

157. 64284 

0  2 

0.00000 

N.2 

1026.46973 

H20  - 

519.43750 

H2S  - 

2  1.792  6  8 

SOP  - 

33 . 312  87 

S 

0.0 

S2 

0.000  10 

S6 

0.11480 

SB 

0.  50074 

COS  - 

2.04523 

CS2 

0.00747 

H2 

38.82829 

CO 

28.57443 

S 

5.71284 

&  *  *  *  *  *  *  :M<***5Mt****  ******  **********  *  * *  *  *  *  *  *  *  *  *  5*  *  *  *  ****  *  *  *  *  *  *  * 


♦  •  '  «  >' 


T 

,  ' 


. 
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INLINE  BURNER. 


EQUI PMENT 

/  ;  \  'JL’M 

NUMBER  8 

ADIABATIC  STREAM  COMBINER 

EQUIPMENT  NUMBER  7 

CONVERTER  2 

EQUI PMENT 

NUMBER  9 

TEMPERATURE 

IS  LESS  THAN 

25  DEC. E  ABOVE 

DEW 

POINT. 

395.016 

376.685 

18.331 

16.227 

TEMPERATURE 

IS  LESS  THAN 

25  DEG.F  ABOVE 

DEW 

POINT. 

40  1. 087 

385.808 

15.279 

16.205 

TEMPERATURE 

IS  LESS  THAN 

25  DEG.F  ABOVE 

DEW 

POINT. 

407. 159 

39  3.5  31 

13.628 

16.184 

TEMPERATURE 

IS  LESS  THAN 

25  DEG.F  ABOVE 

DEW 

POTNT. 

41 3.231 

400.249 

12.982 

16.16? 

TEMPERATURE 

IS  LESS  THAN 

25  DEG.F  ABOVE 

DEW 

POINT. 

419.303 

406.215 

13.088 

16. 141 

BLACK  BOX 


EQUIPMENT  NUMBER  10 


.  ■ 


. 

-'l  ‘  .  r  0, 

•  ' 

- 


.  I 


E  - 1 54 


OVERALL  PLANT  MASS  AND  ENERGY  BALANCE 

#  #  *  if:  #  *  -if.  afcs?:  ** if:  :V  *  *  *  if:  *  *  ❖  ❖  *  £  #  *  *  if:  Ijt  if:  *  :je  *  ^  4s  *  *  if:  ifss*:  ijsif;  *  a{c  *  *  3«c3«c^<  #  ##  ijsi^s 


ATOM  AND  TOTAL  MASS  BALANCES 


ATOM 

ATOM 

PERCENT 

TYPE 

TOTAL 

ERROR 

S 

0 .  5  78  8  50E 

03 

0.00080 

0 

0 .95637PE 

03 

0.00020 

C 

0 . 1 9259QE 

03 

0.00002 

H 

0 .  1 186  90  E 

04 

0.00035 

N 

0.2L1304E 

04 

0.0 

TOTAL 

0 .502825F 

04 

0.00021 

s|;  sjc 4e -sje # sf:  t* ^ aje * s)t *  &  4c  sfc  $  ***&:*:  ❖ * ass#*#*#  aje # * Sje & 4c  *  ^ 4c 4c 4< 4=  *  ❖  4£4e4e4s4e4s4s4< 


k-  ENERGY  BALANCE 

I  ENTHALPY  IS  RELATIVE  AND  IN 

BTU  .  ) 

ENTHALPY  IN 

-  — Q . 38  569  7 F 

08 

ENTHALPY  OUT 

=  -0. 8 5 3040 E 

08 

DIFFERENCE 

=  0 . 46  7343F 

08 

DIFFERENCE  SHOULD  BE 

TOTAL  PLANT 

HEAT  LOAD 

*  4*  *  4c  4s  #  *  4c  *  *  >fc  ^  *  *  *  *  *  *  *  *  *  3jc  4<  *  *  ❖  *  *4<*4:4<**:4c  4*  *  *****  *  * 


OVERALL  PLANT  SULPHUR  RECOVERY 


PERCENT  OE  TOTAL  INLET  SULPHUR 
OUT  AS  ELEMENTAL  SULPHUR  =  04.64 


************************************************************ 


. 


'  ••  . 


.  -n  • 


* 


EQUIPMENT  PARAMETER  SUMMARY 


#  >J<  :?=  j{e  jjs^t  jfoJcsjcTjt^e^cjjc  jJ«3?£  4c  $$$£  $  $$$$$-$  4c4c4c4c4e4e4c4c4c4e4c$4c4c*!c 


parameter  numbers  and  parameter  values 

{  *  *  •  DENOTES  D A R A M E T E R . V  ALUE . S PE C  l  EIC  AT To  N) 


j*-  V?  ’.t'  xV  -*i»  xl#  -Ar  x*»  jy  x*/  Jy  V'  xly  -A»  -A»  *V  J;  *•'  >jy  J/  v<y  -A*  Jy  Vy  Jy  Jy  '/y  ^y  Jy  »V  Jy  xO  <A»  X*y  Jy  X*y  Jy  xty  xAy  Jy  Jy  Jy  -Jy  »9y  4y  -Jy  xiy  xly  xV  Jy  xfc>  Jy  Jy  <^y  s*y  4y  X*y 

y,;>  y,x  y  ]X  yj X  yj\  y,  X  ‘jX  y^x  y^-x  -y/x  y^x  y^x  y^x  *A|  X  y^x  y^x  yjx  y  |X  y}x  y^x  y/x  -yfx  '/X  y^  x  y.x  y.|X  .-^x,  y^N  y.,x  yjx  '/X  y^x  y^x  y^x  yjX  y  ,x  y« X  yfx  y |X  y^x  y^x  y^x  -y ,x  y^v  y,x  y^x  yjx  y.x  > .x  y^x.  y^-x  yjX  y^x  y,v  yjx  y^x  y^x  y|x  >^x  yjX 


EQUIPMENT  NUMBER 


WASTE  HEAT  801 LER 


l 

z= 

0. 200000E 

01 

Jy 

2 

•=: 

0.2 500 00E 

02 

Jy 

y,x 

3 

- 

0.83 90  DOE 

02 

4 

— 

0. 142000E 

03 

5 

= 

0.  0 

6 

— 

0 . 300000E 

01 

* 

7 

= 

0. 250 1 C0F 

01 

Jy 

8 

0.0 

9 

— 

0. 1G0106E 

04 

10 

= 

0. 700174E 

03 

❖ 

1  I 

— 

0.0 

12 

- 

0. 374150F 

00 

13 

- 

0.  IP 49  79E 

00 

14 

— 

0.0 

15 

•= 

0. 823880E 

00 

* 

16 

— 

0.4  7474  3*= 

05 

17 

= 

0. 240000E 

02 

18 

— 

0. 720000E 

02 

19 

= 

0.0 

20 

:- 

0.  0 

21 

0.  0 

22 

— 

0.0 

23 

- 

0.  0 

24 

- 

0.0 

25 

— 

0. 200000E 

04 

26 

— 

0. 201 04 BE 

04 

2P 

- 

0. 270000E 

03 

28 

— 

0.309624E 

08 

EQUIPMENT 

NUMBER  2 

CONDENSER 

1  = 

0.  1 0  00  OOF 

01 

xfy 

2  = 

0.  23233  BE 

02 

3  - 

0. 100000E 

01 

4  = 

0.  77 1 0 COE 

03 

5  = 

0. 350000E 

02 

xiy 

'C' 

6  = 

0.399957E 

01 

7  = 

0. 180000E 

02 

Jy 

8  = 

0.2 7600 0E 

03 

2x 

9  •= 

0.0 

10  = 

0 . 5000  G0E 

01 

Jy 

'T- 

11  - 

0. 989494E 

02 

12  = 

0. 872293E 

07 

EQUIPMENT 

NUMBER  4 

IN-LINE 

BURNER 

1  = 

0. 160000E 

02 

2  = 

0. 360000E 

02 

3  = 

0. 151795F 

01 

xiy 

*V 

4  = 

0. 270659E 

05 

5  = 

0. 245443E 

04 

EQUIPMENT  NUMBER  3 

adiabatic  cgmbinfr 

1  =  0.0 

2  = 

0 . 4923 95 E  03 

3  =  0.0 

'  »  \ 


• 

.  ... 

•i 

«• 

* 

f  '  , 


'  . 

r  „v 


' 


'•  '  i  . 


* 
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EQUIPMENT  PARAMETER  SUMMARY 


❖  #  #  ;»«  *  £  ^  #  $  *  *  #  t-  £  *  #  sfc  ❖  ❖  *4  4  4 4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  44 

PARAMETER  NUMBERS  AND  PARAMETER  VALUES 

{  »*«  DENOTES  PARAMETER  VALUE  SPECIFICATION) 

4  *  4444444444  44  s{<  ^ct?c  4444444  3?s a}t  s*;  44444444444  4  444444  4444444444  444 

EQUIPMENT 

NUMBER  5 

CONVERTER 

1  = 

0. 1O0Q00E 

01  * 

2  = 

0. 335374E 

03 

3  = 

0.  3 0 0 0  0 0 F 

01 

4  = 

0.  1006 12F 

04 

5  = 

0. 964490F- 

•01 

6  — 

0.  I  0 0 0 0 0 F 

01 

7  = 

0. 185613E 

01 

8  = 

0.5 000  COE 

00 

EQUIPMENT 

NUMBER  6 

CONDENSER 

l  = 

0. 200000E 

01  * 

2  = 

0. 1 60000 E 

02  * 

3  = 

0.  1032  OOF. 

01  * 

4  = 

0. 1 12200E 

04  * 

5  = 

0.  5 6 0 0 0 0 E 

02  * 

6  = 

0. 226184E 

01 

7  = 

0. 100000E 

02  * 

8  = 

0.312922F 

03 

9  = 

0.0 

10  = 

0. 100000F 

02  * 

11  = 

C. 920090E 

02 

12  = 

0.486101E 

07 

EQUIPMENT 

NUMBER  8 

IN-LINE  BURNER 

1  = 

0. 10 0000 E 

02 

2  = 

0 . 2 400 00 E 

02 

3  = 

0. 1203 26 E 

01  * 

4  = 

0. 334665F 

05 

5  - 

0. 227044E 

04 

EQUIPMENT 

NUMBER  7 

ADIABATIC 

.  COMBINER 

1  = 

0.0 

2  = 

0. 3 8 8944 E 

03 

3  = 

0.  0 

EQUT PM ENT 

NUMBER  9 

CONVERTER 

1  = 

0. 200000E 

01  * 

2  = 

0.30528 7 E 

03 

3  - 

0.3 000  OOF 

01 

4  = 

0.9 1586  IE 

03 

5  = 

0. 107363F 

00 

6  = 

0. 100000E 

01 

7  = 

0.205439E 

01 

8  = 

0.5 000  OOF 

00 

. 


•  ’  } 

•  .  *  • 


. 


:  ,  < 

. 


<  ••  * 


. 
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EQUIPMENT  PARAMETER  SUMMARY 


*  ■#  *  *  *  5*;  J;  $$$:$&  s*#  ❖  %  **  *  #  * 

PARAMETER  NUMBERS  AND  PARAMETER  VALUES 

(  »*•  DE NOTES  PARAMETER . VALUE . SPECIFICATION) 

^  Jf:  *  #:####  *sjc-fc  *  * sjc  #  $  if.  if  ;)<  #  sjc  %.  sjc  *  s)c #  #  ^  sic  sk  *  if  jjc  ^c  *  s£  iftf  :£  $  #  £  #  if  if  if 


EQUIPMENT  NUMBER  10 
1  =  Q.Q 


BLACK  BOX 


if  sjc  --k  if  *  :J;  if  si:  *  *  *  si<  *  if  *  ^  Jjojc  ^  if  *  &  #  #■#  #  #  j$c  Jjcsj:  :(£  sic  *  if  sj:  jje  if  #  sic  sjt  *  #  *  £  *  s>c  4c  #  :fc  s$c  #  :$c  ^c  #  jJ;  sjc  ^  & 


E-15B 


STREAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


Y.  J/  J.  Y#  -A-  Y'  Yy  Y<  Yy 

y^v  yjj*  rfj*.  ^  /j\  ,'^v  >(»  /jV  y  ,  v 

Yy  Yy  Yy  Y-  Yy  Yy  -Yy  Yy  Y  -  - 
/y*  yy*  Yjv  >>-  y,'-  yyv  -yy".  yj*  y(*  - 

'V  Yy  Yy  Yy  Yy  Yy  Yy  -Yy  Yy  Yy 

>*  'j*-  y>-  yy*-  yjv  yjx  y*y**  y^*.  y^-* 

Yy  Yy  Yy  Yy  Yy  -Yy  Yy  Y»  Yy  Yy 

5s*  *y*  "Y*  'V»  4s  -V-  *»» 

>*y  H*y  Yy  Yy  Yy  Yy  Yy  Yy  Yy 

Rp*  4s*  -Is  -y*  -w*  4"  -«*  ^6  V 

UNITS  ARE  - 

COMPOSITION  - 

MOLES/ HR. 

ENTHALPY  -  MMBTU./HR. 

VOLUME  -  CU. 

FT. /MIN.  (GAS  ONLY) 

TEMPER  ATURE 

—  0  E  G .  F  • 

PRESSURE  -  PS  I  A. 

if  if  j*t  s|<  *:  S*s  if  3^ 

sfc  *  #*-3{c3fc:  #3^3^  $  *  if  if  if  it  ifkifif  if  #  *  it  ^  3}c 

Y/  Yy  Yy  Yy  Yy  Yy  Yy  Yy  Yy 
yy*  4*  '»•*  4*  yy*  y,'  ?js  rfjj* 

STREAM  NO. 

1 

2 

3 

4 

5 

CH4 

1  .  07  00 

0.0 

0.0000 

0.0000 

0.0600 

C02 

177.0900 

0.0 

150.2965 

150. 3965 

10.0500 

02 

0.0 

250.0300 

0.0000 

0.0000 

0.0 

M2 

0.  0 

940.5198 

940.5198 

940.5198 

0.0 

H20 

0.0 

10.9300 

420. 1 787 

420. 1 787 

0.0 

H  2  S 

535.4797 

0.0 

92.7260 

92.7260 

30.3900 

SO  2. 

0.  0 

0.  0 

58.2710 

58.2710 

0.0 

S 

0.0 

0.0 

0.0 

0.0 

0.0 

S  2 

0.  0 

0.0 

3.1258 

0.0000 

0 . 0 

S6 

0.  0 

0.0 

34.3906 

0.0271 

0.0 

S  8 

0.0 

0.0 

21.2343 

0.1447 

0.0 

COS 

0.0 

0.0 

1.9966 

1.9966 

0.0 

CS2 

0.0 

0.0 

0 . 00  74 

0 . 00  74 

0.0 

H2 

0,0 

0.  0 

35.6448 

35.6448 

0.0 

CO 

0.0 

0.0 

25.8595 

25.8595 

0.0 

S 

0.0  , 

0.0 

0.0 

2.6961 

0 . 0 

TOT.  MOLES 

7  13.640 

1201.479 

1 784.250 

1728.367 

40. 500 

TOT.  LBS. 

26015.4 

34532 . 2 

60547.6 

48437.0 

1476.4 

TO  T . L  B . S { M ) 

0.0 

0.0 

12239.0 

128.5 

0.0 

TOT.LB.S(E) 

17135.4 

0.0 

17135.3 

5024.8 

9  7  2.5 

ENTHALPY 

-34.594 

-1.045 

-66.569 

-76.111 

-1 . 963 

VOLUME 

4063 .8 

6537.7 

22239.7 

13829.9 

23  0.6 

TEMPERATURE 

8  8 . 00 

88.00 

700.17 

276.00 

88.00 

S.  DEW  PT. 

0.0 

0.0 

530.72 

278.46 

0,0 

PRESSURE 

17.20 

18.00 

16 .64 

16.42 

17.20 

Y»  Y/  Yy  Yy  -Yy  Y»  Y<  Yy  A>  Yy  Yy  -<y 

-y»  >,*■  y,'.  .yy*  »  '  yy*  y'  yy*  rt*'  '1 

»  y*y  Yy  -Yy  Yy  Jy  Yy  Yy  Yy  Y-- 

•  *v  A"'  t  'A  ,i'  '■iw  *Y- 

;!t  if  3>:  if  if  it  *  sjt  if  itifi ti'  if  *  if  if 

■  Yy  Yy  Yy  -vV  Yy  Y.r  Yy  Yy  Yy  Yy 

•  "6  4  -V“-  ‘V'  4*  ■  V*  -r«v  -v^ 

i{s.j{c  ijc  5*C  Sfc  if 

r 


'  : 

.  '  , 


.  1  1  . 

.  ■ .. 


!  . <;  >  -  . 


. 


. 

* 

.  r 

. 

'  , 

r 

* 

•  ,  • 

r  . 

* 

. 

'  i . 

.  r: 

. 

* 

* 

• 

. 

* 

,  •• 

♦ 

.  : 


* '  ■*? 


,  i 


'  . 
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STRFAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


•Jr  «.*/  -Jr  Yr  Jr  >>!•  Jr  Jr  Jt  Jr  Jr  Jr 
-'('*■  '}*»  ryv  -r,-*-  r^V  »|S  r,\.  -r/<»  r^% 

^  2)5  ‘if.  sjc 

:^s  %  %  #  #  Sjs 

-Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  Jr  -Jr 

-)*•  *6  -4**  -a  -r-  '»•'*  4*  3'  -}■*• 

UNITS  ARF  - 

COMPOSITION  - 

MOLES/HR. 

FNTHALPY  -  MMETU./HR. 

VOLUME  -  CU. 

FT. /MIN.  (GAS  ONLY) 

TEMPER  A TUP F 

-  DFG.F. 

PRESSURE  -  PS  I  A. 

Jr  Jr  Jr  J'  Jr  Jr  Jr  Jr  Jr  Jr  Jr*  Jr 
rt>.  r>,\  rjv  rjv  r*A  rf\  >J-S  >■,-»  r»^  r,x  rj>* 

Jr  Jr  -Jr  Jr-  Jr  Jr  Jr  J*  Jr-  Jr 

<Y*  ^  -y  -A  5-  -a  4V  -<■*  -jv 

#  -ffi  *  ^  £  £  £  %  it 

^  s<;  %.  ^  3j<  :*t  A  t'  *  v  -k  4'  * 

>V  Jr  Jr  Jr  -Jr  Jr  Jr  Jr  Jr 

r/»  -Y-  y  r^i,  »j»  rj^  r^%  -V*  r,\ 

STRFAM  NO. 

6 

7 

i 

8 

9 

10 

CH4 

0.0 

0.0 

0.0000 

0 . 0 

0.0 

002 

0.0 

7.3464 

157.6428 

157. 6423 

0.0 

02 

22. 8500 

0.0000 

0.0000 

0.0000 

0.0 

N  2 

85. 9500 

8  5.95  00 

1026.4697 

1026.4697 

0.0 

H  20 

I .0000 

26.5070 

446.6855 

519.43  75 

0.0 

H2S 

0.0 

1.3194 

94.5454 

21.7927 

0.0 

SO  2 

0.0 

1 1 . 4 1.  8  3 

69.6892 

33 .3129 

0.0 

S 

0.0 

0.0046 

0.0 

0.0 

0.0 

S  2 

0.0 

8.5495 

0.0262 

0.3837 

0.0 

S  6 

0.0 

0.0 

1 . 3  8  40 

9.9300 

0.0 

ss 

0.0 

0.0 

1.5954 

3. 7376 

0.0 

cos 

0.0 

0.0486 

2.0452 

2.0452 

0.0 

CS2 

0.0 

0.0001 

0.0075 

0.0075 

0.0 

H2 

0.0 

3.1835 

38.8283 

33.8283 

0.0 

CO 

0.  0 

2.7149 

23.5744 

28. 5744 

0.0 

S 

0.0 

0.0 

0.0 

0.0 

119.8404 

TOT.  MOLES 

109.800 

1 47.542 

1867.493 

1847.161 

119. 840 

TOT.  LBS. 

3155.3 

4632 . 2 

53069.3 

53069. 2 

3834.9 

TOT. LB. SIM) 

0  .0 

547 . 3 

675.8 

4168.0 

3834.9 

T0T.LB.St  E) 

0.0 

9  7  2.5 

5997.3 

5997.3 

3834.9 

ENTHALPY 

-0  .0  96 

-2  .059 

-73.170 

-78.169 

0. 2  74 

VOLUME 

597.5 

4470.4 

19368.7 

21329.3 

Jr  Jr  Jrf  J/  Jr  Jr  Jr 
■y  -a  5V  y  y  -j*  V' 

TEMPERATURE 

3  8.00 

2454.43 

492.39 

594. 08 

300.30 

S.  DEW  PT. 

0.0 

573 . 70 

372. 88 

459. 79 

0.0 

PRESSURE 

18.00 

17.2  0 

16.42 

16.  32 

16 .25 

V#  «V  >A>  J.  «#/  •A'  *1/  Jr  -Jr  -Jr  M?  >Y  4r  X*;  - 

*A  r,%.  -,w  -  ^  '♦■»  'y*  'A  -A  -V  -iv  Mj"  -a  '«'  A"  7r  **a  "f-  A  Ma  'V*  nr»  V*  -4s*  'i'  - 


:  :£  sjejjj  :£  :£  #  : 


:  jJ;  : 


.  H  \ 


. 

* 

. 

* 

*' . 

» 

.  ' 

* 

J 

•  • 

, 

■ 

* 

t 

. 

■  , 

N 

■  . 

. 

.  r  r 

'  . 

• 

.  ♦  ; 

\ 
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ST REAM  COMPOSITION  AND  PROPERTY  SUMMARY. 


>V  v*r  *X*  -A'  A  A  A  A  A  A  A  A  A  A  A  •***• 

V  >|X  ^j*v  -r^-x  _/*j*x  ^jX»  X .  *■  «*,x  J.X  -^X  ^’X  #"jV 

A  A  A  A  A  A  A  Aj  -A  A  -A 

A  A  -A  A  -A  A  A  A 
-*C*  7'  '*»•'  ">'  '’t'-  ->■“  -'f 

A  A  x*r  A  A  A  x*#  A  A 

*,•'  "•(■>■  <,-X  x,x.  ^,x  /ji  -L,x  >JX- 

jjt  a};  ;!c  *  xjc 

UNITS  ARE  - 

COMPOSITION  - 

MOLES /HR. 

ENT  HAL  DY  - 

MMP  TU ./HR . 

VOLUME  -  CU. 

FT. /MIN.  (GAS  ONLY) 

TEMPER  A TORE 

-  DEG. P . 

PRESSURE  -  PSIA. 

A»  A  xV  A  -x.V  A  x*-  A  A  >*'  A 

-"fx  /i(x  /■,»  -'jX  J^x  -» ;x  y-j*.  >SX  ^x  *-,v 

xi.  A  »*'  A  A  A  A  xl»  AV' 

.',x  <-,v  >t*X  _r,x  -yx  >JX  *yx 

it  it  3?C^«  Jjt  3^e^e.Tge  # 

-A  A  «A  A  A  A  A  x*/  •A' 

vyx.  ^  ^  -»fV  '«*'  V 

STREAM  NO. 

11 

12 

13 

14 

15 

CH4 

0.0 

0.0300 

0.0 

0.0000 

0.0000 

C  02 

157. 6428 

4.2900 

0.0 

3.3440 

160.9868 

02 

0. 0000 

0.0 

7.9900 

0.0000 

0. 0000 

N2 

1026.4697 

0.0 

30.0500 

30.0500 

1056.5195 

H  20 

519.4375 

0.0 

0.3500 

10.9971 

530.4346 

H2S 

21. 7927 

12. 9300 

0.0 

1.2206 

23.0133 

S02 

33. 31 2° 

0.0 

0.0 

3.  1245 

36. 4373 

S 

0.0 

0.0 

0.0 

0.0007 

0.0 

S  2 

0.0001 

0.0 

0.0 

4.3019 

0.0016 

S6 

0. 1148 

0.0 

0.0 

0.0000 

0.6553 

S3 

0.5007 

0.0 

0.0 

0.0 

1 .8847 

COS 

2.0452 

0.0 

0.0 

0.0302 

2.0755 

C  S  2 

0.0075 

0.  0 

0.0 

0.0001 

0.0075 

H2 

38.8233 

0.0 

0.0 

1 .1723 

40. 0006 

CO 

2  8.5  744 

0.0 

0.0 

0.9457 

29. 5201 

S 

5.7128 

0.  0 

0.0 

0.0 

0.0 

TOT.  MOLES 

18  34.43  8 

17.300 

38.390 

55.187 

1881 . 536 

TOT.  L3S . 

49234.3 

630.6 

1103.4 

1 733.9 

50968 . 3 

TOT.LB.S(M) 

3  33.0 

0.0 

0.0 

2  75.3 

60  8.4 

TOT.LB.S(E) 

2162.4 

415.4 

0.0 

415.4 

2577.7 

ENTHALPY 

-83 .325 

-0.838 

-0.033 

-0.872 

-84. 197 

VOLUME 

15550.6 

9  8.5 

188.0 

1566.5 

17574.0 

TEMPERATURE 

312.92 

88.00 

8  8.00 

2270.44 

388.94 

S.  DEW  PT. 

314.21 

0.0 

0.0 

597.31 

365.37 

PRESSURE 

16.25 

17.20 

20.00 

17.70 

16 .25 

#  jjejfcjJCSjC:#  %  JtojC  &  $  S{C3{C  #  ##  Jfc  Sje  ^  # 

■if.  >!;  £  £  ■&  ;!<  % 

, 

• 

. 

• 

. 

. 

. 

•  . ' 

* 

. 

« 

■  ’  .  • 

’  r  .  V 

■  :  , 

W 

i  - 

'  '  . 

• 

• 

* 

.  : 

. 

v  . 

• 

. 

.81 

»- 

' 

. 

(  '  '  .  ' . 

. 

— 

» 

. 

1 

"  T  .  ; 

I  .  i 

.  m  n  .8 

. 

.  T 1 

4 

STREAM  COMPOSITION  AND  PROPERTY  SUMMARY . 


s’;  if  if  £  is.  i;.  if  if  *  if  s;<  if  if  #  *  if 

UNITS  ARE  - 

❖  i~  i~  s,';  if  s’,;  *  *  sfe  £  ft  s’;  ;,V  i,i  if  if  *  *  s’;  if  if  4' if  iiifif 

COMPOSITION  -  MOLFS/HR. 

ENTHALPY  - 
TEMPER ATURE 

MMBTU ./HP . 
-  QEG.E. 

VOLUME  -  C  U  .  F  T ./MIN.  (GAS  ONLY) 

PRESSURE  -  PS  I  A. 

STREAM  NO. 

16 

1  7 

18 

CH4 

0.0000 

0.0000 

0.  0 

C  02 

160,9868 

160.9868 

0.0 

0  2 

0.0000 

0.0000 

0.0 

N2 

1056.5195 

1 056.5195 

0.0 

H  20 

550. 7683 

550.7683 

0.0 

H2S 

2.6788 

2.6788 

0.0 

SO? 

26.2700 

26.2700 

0.0 

s 

0.0 

0.0 

0.0 

S  2 

0.0050 

0.0000 

0.0 

S6 

1 . 76  44 

0.4440 

0.0 

S  8 

4 . 86  4  7 

5.8563 

0.0 

COS 

?.  07  5  5 

2.0755 

0.0 

CS2 

0. 0075 

0.0075 

0.0 

H? 

40. 0006 

40.0006 

0.0 

CO 

20. 5201 

29.5201 

0.  0 

s 

0.0 

0.0 

378.4514 

TOT.  MOLES 

1875.460 

1875. 127 

378.451 

TOT.  LBS. 

50968.3 

50968 . 3 

12110.4 

TOT. LB. SIM) 

1584.4 

1584.4 

17110.4 

TOT.LR.SIE) 

25  77  .7 

2577 . 7 

12110.4 

ENTHALPY 

-84 . 196 

-36 . 340 

0.762 

VOLUME 

18264 . 7 

16402 . 1 

s’;  if  if  if  if  -r  if 

TEMPERATURE 

41 9.30 

274.00 

269.44 

S.  DEW  PT. 

406.21 

400. 57 

0.0 

PRESSURE 

16.14 

15.00 

16.42 

*  if  *  *  -;c  jje  *  *  *  *  *  *  *  *  *  if  ^  *  sjc  *  *  5;-  *  *  *  *  *  *  *  *  *  #  ^  *  *  if  *  *  *  *  *  *  if  *  *  *  *  *  5*;  *  %-.  if.  £  *  *  £  *  #  *  * 
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